1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# $Id: PLXWin.itk 6382 2005-10-31 22:31:27Z mlebrun $
# Geoffrey Furnish
# 10 June 1994
#
# @> [incr Tcl] interface to PLplot
###############################################################################
itcl::class PLXWin {
inherit PLWin
constructor {args} {
eval PLWin::constructor $args
} {
# Set up defaults
plw::setup_defaults $hull
# Make frame for top row widgets. plframe widget must already have been
# created (the plframe is queried for a list of the valid output devices
# for page dumps).
plw::create_TopRow $hull
pack $hull.ftop -side top -fill both -before $hull.plwin
# Initialize plplot widget. Enable keyboard traversal when widget has
# the input focus. Also grab the initial input focus.
tk_bindForTraversal $hull.plwin
focus $hull.plwin
}
}
|
