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