2 namespace eval choose_direction {
10 variable frButtons .frButtons
11 variable frBlueGreen .frBlueGreen
13 variable btnCancel .frButtons.btnCancel
14 variable btnOK .frButtons.btnOk
16 variable question .frBlueGreen.question
18 variable btnGreenRed .frBlueGreen.btnGreenRed
19 variable btnRedBlue .frBlueGreen.btnRedBlue
28 proc choose_direction::reset_values { } {
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
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"
53 set im1 $global_window::im1
54 set im2 $global_window::im2
58 proc choose_direction::show { parent } {
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
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"
84 wm title $base "$string_table::str_partial_axis_delete"
87 frame $frBlueGreen -relief sunken -borderwidth 2
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"
92 label $question -text "$string_table::str_select_the_segment_to_delete"
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"
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
104 $btnGreenRed deselect
108 # set global focus input to dialog
111 # waits for dialog destruction, i.e. waits for user interaction with dialog
118 # EOF - choose_direction.tcl