lib/maracasVisuLib/src/interface/tcl/windows/dlg_name_axis.tcl

   1
   2 namespace eval dlg_name_axis {
   3
   4     # public interface
   5     namespace export \
   6         show
   7
   8     # variables
   9     variable widgets
  10
  11     variable name
  12
  13 }
  14
  15 proc dlg_name_axis::reset { parent } {
  16
  17     # For programming facilities
  18     upvar dlg_name_axis::widgets widgets
  19
  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"
  27
  28 }
  29
  30 proc dlg_name_axis::show { parent } {
  31
  32     # For programming facilities
  33     upvar dlg_name_axis::widgets widgets
  34     upvar dlg_name_axis::name    name
  35
  36     dlg_name_axis::reset $parent
  37     set name "<no name>"
  38
  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"
  47
  48     frame $widgets(frame) -height 30 -width 30
  49
  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
  52
  53     entry $widgets(edtName) -textvariable dlg_name_axis::name
  54
  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)"
  57
  58     bind $widgets(btnOk) <Key-Return> "$widgets(btnOk) invoke"
  59     bind $widgets(edtName) <Key-Return> "$widgets(btnOk) invoke"
  60
  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
  67
  68     focus $widgets(edtName)
  69     $widgets(edtName) selection range 0 end
  70
  71     $widgets(btnOk) flash
  72
  73     # set global focus input to dialog
  74     grab set $widgets(base)
  75
  76     # waits for dialog destruction, i.e. waits for user interaction with dialog
  77     tkwait window $widgets(base)
  78
  79     return $dlg_name_axis::name
  80
  81 }
  82
  83 # EOF - dlg_name_axis.tcl