2 namespace eval dlg_name_axis {
15 proc dlg_name_axis::reset { parent } {
17 # For programming facilities
18 upvar dlg_name_axis::widgets widgets
20 set widgets(base) "$parent\.dlg_name_axis"
21 set widgets(lbl001) "$parent\.dlg_name_axis.lbl001"
22 set widgets(frame) "$parent\.dlg_name_axis.frame"
23 set widgets(lbl002) "$parent\.dlg_name_axis.frame.lbl002"
24 set widgets(edtName) "$parent\.dlg_name_axis.frame.name"
25 set widgets(btnOk) "$parent\.dlg_name_axis.btnOk"
26 set widgets(btnCancel) "$parent\.dlg_name_axis.btnCancel"
30 proc dlg_name_axis::show { parent } {
32 # For programming facilities
33 upvar dlg_name_axis::widgets widgets
34 upvar dlg_name_axis::name name
36 dlg_name_axis::reset $parent
39 toplevel $widgets(base) -class Toplevel
40 wm focusmodel $widgets(base) passive
41 wm geometry $widgets(base) 321x151+95+255
42 wm maxsize $widgets(base) 1030 755
43 wm minsize $widgets(base) 106 2
44 wm overrideredirect $widgets(base) 0
45 wm resizable $widgets(base) 0 0
46 wm title $widgets(base) "$string_table::str_choose_a_name"
48 frame $widgets(frame) -height 30 -width 30
50 label $widgets(lbl001) -borderwidth 0 -text $string_table::str_no_name_choose_yet
51 label $widgets(lbl002) -anchor w -borderwidth 0 -text $string_table::str_new_axis_name
53 entry $widgets(edtName) -textvariable dlg_name_axis::name
55 button $widgets(btnOk) -default active -text $string_table::str_ok -command "destroy $widgets(base)"
56 button $widgets(btnCancel) -text $string_table::str_cancel -command "set dlg_name_axis::name \"\"; destroy $widgets(base)"
58 bind $widgets(btnOk) <Key-Return> "$widgets(btnOk) invoke"
59 bind $widgets(edtName) <Key-Return> "$widgets(btnOk) invoke"
61 place $widgets(lbl001) -x 30 -y 30 -anchor nw -bordermode ignore
62 place $widgets(frame) -x 30 -y 60 -width 245 -height 25 -anchor nw -bordermode ignore
63 pack $widgets(lbl002) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
64 pack $widgets(edtName) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
65 place $widgets(btnOk) -x 75 -y 100 -anchor nw -bordermode ignore
66 place $widgets(btnCancel) -x 160 -y 100 -anchor nw -bordermode ignore
68 focus $widgets(edtName)
69 $widgets(edtName) selection range 0 end
73 # set global focus input to dialog
74 grab set $widgets(base)
76 # waits for dialog destruction, i.e. waits for user interaction with dialog
77 tkwait window $widgets(base)
79 return $dlg_name_axis::name
83 # EOF - dlg_name_axis.tcl