version 1.15, 2000/02/08 22:18:11
|
version 1.16, 2000/03/22 21:08:02
|
Line 1014 proc createDateDialog { toplevel makedef
|
Line 1014 proc createDateDialog { toplevel makedef
|
button $buttonFrame.cancel -text "Cancel" -command "set gPrompt2(ok) 0" |
button $buttonFrame.cancel -text "Cancel" -command "set gPrompt2(ok) 0" |
set gDates(optBut) [ button $buttonFrame.options -text "More Options" \ |
set gDates(optBut) [ button $buttonFrame.options -text "More Options" \ |
-command "addDateOptions"] |
-command "addDateOptions"] |
pack $buttonFrame.help $buttonFrame.set $buttonFrame.cancel $buttonFrame.options \ |
pack $buttonFrame.set $buttonFrame.cancel $buttonFrame.options -side left |
-side left |
|
bind $toplevel <Destroy> "set gPrompt2(ok) 0" |
bind $toplevel <Destroy> "set gPrompt2(ok) 0" |
bind $toplevel <KeyPress> "getday open;getday due;getday answer" |
bind $toplevel <KeyPress> "getday open;getday due;getday answer" |
bind $toplevel <Return> {tkTabToWindow [tk_focusNext %W]} |
bind $toplevel <Return> {tkTabToWindow [tk_focusNext %W]} |
Line 1145 proc changeDate { listbox } {
|
Line 1144 proc changeDate { listbox } {
|
} |
} |
} |
} |
capaGrab release $changeDate |
capaGrab release $changeDate |
bind $changeDate <Destroy> "" |
catch {bind $changeDate <Destroy> ""} |
destroy $changeDate |
destroy $changeDate |
if {$gPrompt2(ok) == 1 } { |
if {$gPrompt2(ok) == 1 } { |
addCurrentDates $listbox $makedefault $which |
addCurrentDates $listbox $makedefault $which |
Line 1196 proc addDate { listbox } {
|
Line 1195 proc addDate { listbox } {
|
} |
} |
} |
} |
capaGrab release $addDate |
capaGrab release $addDate |
bind $addDate <Destroy> "" |
catch {bind $addDate <Destroy> ""} |
destroy $addDate |
destroy $addDate |
if {$gPrompt2(ok) == 1 } { |
if {$gPrompt2(ok) == 1 } { |
addCurrentDates $listbox $makedefault |
addCurrentDates $listbox $makedefault |