[BACK]Return to quizzer.tcl CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / GUITools

Diff for /capa/capa51/GUITools/quizzer.tcl between versions 1.15 and 1.16

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
Removed from v.1.15  
changed lines
  Added in v.1.16

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>