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

   1
   2 namespace eval choose_direction {
   3
   4     namespace export \
   5         show
   6
   7     # variables
   8     variable base ""
   9
  10     variable frButtons   .frButtons
  11     variable frBlueGreen .frBlueGreen
  12
  13     variable btnCancel .frButtons.btnCancel
  14     variable btnOK     .frButtons.btnOk
  15
  16     variable question .frBlueGreen.question
  17
  18     variable btnGreenRed .frBlueGreen.btnGreenRed
  19     variable btnRedBlue  .frBlueGreen.btnRedBlue
  20
  21     variable direction -1
  22
  23     variable im1 ""
  24     variable im2 ""
  25
  26 }
  27
  28 proc choose_direction::reset_values { } {
  29
  30     # For programming facilities
  31     upvar choose_direction::base        base
  32     upvar choose_direction::frButtons   frButtons
  33     upvar choose_direction::frBlueGreen frBlueGreen
  34     upvar choose_direction::btnCancel   btnCancel
  35     upvar choose_direction::btnOK       btnOk
  36     upvar choose_direction::question    question
  37     upvar choose_direction::btnGreenRed btnGreenRed
  38     upvar choose_direction::btnRedBlue  btnRedBlue
  39     upvar choose_direction::direction   direction
  40     upvar choose_direction::im1         im1
  41     upvar choose_direction::im2         im2
  42
  43     set base        ""
  44     set frButtons   ".frButtons"
  45     set frBlueGreen ".frBlueGreen"
  46     set btnCancel   ".frButtons.btnCancel"
  47     set btnOK       ".frButtons.btnOk"
  48     set question    ".frBlueGreen.question"
  49     set btnGreenRed ".frBlueGreen.btnGreenRed"
  50     set btnRedBlue  ".frBlueGreen.btnRedBlue"
  51     set direction   0
  52
  53     set im1 $global_window::im1
  54     set im2 $global_window::im2
  55
  56 }
  57
  58 proc choose_direction::show { parent } {
  59
  60     # For programming facilities
  61     upvar choose_direction::base        base
  62     upvar choose_direction::frButtons   frButtons
  63     upvar choose_direction::frBlueGreen frBlueGreen
  64     upvar choose_direction::btnCancel   btnCancel
  65     upvar choose_direction::btnOK       btnOk
  66     upvar choose_direction::question    question
  67     upvar choose_direction::btnGreenRed btnGreenRed
  68     upvar choose_direction::btnRedBlue  btnRedBlue
  69     upvar choose_direction::direction   direction
  70     upvar choose_direction::im1         im1
  71     upvar choose_direction::im2         im2
  72
  73     choose_direction::reset_values
  74     set base        "$parent.choose_direction"
  75     set frButtons   "$base$frButtons"
  76     set frBlueGreen "$base$frBlueGreen"
  77     set btnCancel   "$base$btnCancel"
  78     set btnOK       "$base$btnOk"
  79     set question    "$base$question"
  80     set btnGreenRed "$base$btnGreenRed"
  81     set btnRedBlue  "$base$btnRedBlue"
  82
  83     toplevel $base
  84     wm title $base "$string_table::str_partial_axis_delete"
  85
  86     frame $frButtons
  87     frame $frBlueGreen -relief sunken -borderwidth 2
  88
  89     button $btnCancel -text $string_table::str_cancel -command "set choose_direction::direction 2; destroy $base"
  90     button $btnOK     -text $string_table::str_ok     -command "destroy $base"
  91
  92     label $question -text "$string_table::str_select_the_segment_to_delete"
  93
  94     radiobutton $btnGreenRed -relief flat -image $im1 -text "$string_table::str_green_red" -variable cut_type -value 1 -command "set choose_direction::direction -1"
  95     radiobutton $btnRedBlue  -relief flat -image $im2 -text "$string_table::str_red_blue"  -variable cut_type -value 2 -command "set choose_direction::direction 1"
  96
  97     pack $frButtons        -side bottom -fill x -pady 2m
  98     pack $btnOK $btnCancel -side left -expand 1 -padx 1c
  99     pack $frBlueGreen      -side top -pady 1m -padx 2m
 100     pack $question         -side top -anchor w
 101     pack $btnGreenRed      -side top -anchor w
 102     pack $btnRedBlue       -side top -anchor w
 103
 104     $btnGreenRed deselect
 105     $btnRedBlue  deselect
 106     $btnRedBlue  invoke
 107
 108     # set global focus input to dialog
 109     grab set $base
 110
 111     # waits for dialog destruction, i.e. waits for user interaction with dialog
 112     tkwait window $base
 113
 114     return $direction
 115
 116 }
 117
 118 # EOF - choose_direction.tcl