[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.11 and 1.13

version 1.11, 1999/12/16 22:18:35 version 1.13, 2000/01/31 18:34:13
Line 641  proc getProbValTryVal {} { Line 641  proc getProbValTryVal {} {
 ###########################################################  ###########################################################
 # updateDateBox   # updateDateBox 
 ###########################################################  ###########################################################
   # sticks the date information from gControlDates into the date listbox
 ###########################################################  ###########################################################
 ###########################################################  ###########################################################
 proc updateDateBox { listbox } {  proc updateDateBox { listbox } {
Line 665  proc loadDates { listbox } { Line 666  proc loadDates { listbox } {
     global gControlDates      global gControlDates
     if { [catch {getHeaderInfo}]} {       if { [catch {getHeaderInfo}]} { 
  displayError "That set.db does not exist"   displayError "That set.db does not exist"
     }       } else { 
    if { [llength $gControlDates] > 2 } {
       set gControlDates [linsert [lreverse [lrange $gControlDates 1 end]] 0 [lindex $gControlDates 0]] 
    } 
       }
     updateDateBox $listbox      updateDateBox $listbox
 }  }
   
Line 819  proc getday { kind } { Line 824  proc getday { kind } {
 }  }
   
 ###########################################################  ###########################################################
   # moveUpDate
   ###########################################################
   ###########################################################
   ###########################################################
   proc  moveUpDate { listbox } {
       global gControlDates gDates
       if { ![winfo exists $listbox] } { return }
       if { [set which [$listbox curselection]] == "" } {
    displayMessage "Please select a date to move."
    return
       }
       if { $which > 1 } {
    set element [lindex $gControlDates $which]
    set gControlDates [lreplace $gControlDates $which $which]
    set gControlDates [linsert $gControlDates [expr $which - 1] $element]
    updateDateBox $listbox
    $listbox selection set [expr {$which - 1}]
    $listbox see [expr {$which -1}]
       }
   }
   
   ###########################################################
   # moveDownDate
   ###########################################################
   ###########################################################
   ###########################################################
   proc  moveDownDate { listbox } {
       global gControlDates gDates
       if { ![winfo exists $listbox] } { return }
       if { [set which [$listbox curselection]] == "" } {
    displayMessage "Please select a date to move."
    return
       }
       if { ($which > 0) && ($which < ([llength $gControlDates]-1)) } {
    set element [lindex $gControlDates $which]
    set gControlDates [lreplace $gControlDates $which $which]
    set gControlDates [linsert $gControlDates [expr $which + 1] $element]
    updateDateBox $listbox
    $listbox selection set [expr {$which + 1}]
    $listbox see [expr {$which + 1}]
       }
   }
   
   ###########################################################
 # enableDateValidation  # enableDateValidation
 ###########################################################  ###########################################################
 ###########################################################  ###########################################################
Line 1182  proc createDBHeader {} { Line 1231  proc createDBHeader {} {
     message $dialog.msg -text "Header Information" -aspect 1000      message $dialog.msg -text "Header Information" -aspect 1000
     set loadFrame [frame $dialog.loadFrame -borderwidth 4 -relief sunken]      set loadFrame [frame $dialog.loadFrame -borderwidth 4 -relief sunken]
     set infoFrame [frame $dialog.infoFrame -borderwidth 4 -relief sunken]      set infoFrame [frame $dialog.infoFrame -borderwidth 4 -relief sunken]
       label $dialog.message -text "Later entries will override earlier entries"
     set optionFrame [frame $dialog.options]      set optionFrame [frame $dialog.options]
     set buttonFrame [frame $dialog.buttons -bd 10]      set buttonFrame [frame $dialog.buttons -bd 10]
     pack $dialog.msg $loadFrame $infoFrame $optionFrame $buttonFrame -side top -fill x      pack $dialog.msg $loadFrame $dialog.message $infoFrame $optionFrame \
    $buttonFrame -side top -fill x
   
     set legendFrame [frame $infoFrame.legendFrame]      set legendFrame [frame $infoFrame.legendFrame]
     set listFrame [frame $infoFrame.listFrame]      set listFrame [frame $infoFrame.listFrame]
Line 1198  proc createDBHeader {} { Line 1249  proc createDBHeader {} {
     set listbox [listbox $listFrame.list -width 63 -yscrollcommand "$listFrame.scroll set" ]      set listbox [listbox $listFrame.list -width 63 -yscrollcommand "$listFrame.scroll set" ]
     scrollbar $listFrame.scroll -command "$listbox yview"      scrollbar $listFrame.scroll -command "$listbox yview"
     pack $listFrame.list $listFrame.scroll -side left      pack $listFrame.list $listFrame.scroll -side left
       pack configure $listFrame.scroll -fill y
     updateDateBox $listbox      updateDateBox $listbox
           
     button $commandFrame.add -text "Add" -command "addDate $listbox"      button $commandFrame.add -text "Add" -command "addDate $listbox"
     button $commandFrame.change -text "Change" -command "changeDate $listbox"      button $commandFrame.change -text "Change" -command "changeDate $listbox"
     button $commandFrame.delete -text "Delete" -command "deleteDate $listbox"      button $commandFrame.delete -text "Delete" -command "deleteDate $listbox"
     pack $commandFrame.add $commandFrame.change $commandFrame.delete -side left      button $commandFrame.moveup -text "MoveUp" -command "moveUpDate $listbox"
       button $commandFrame.movedown -text "MoveDown" -command "moveDownDate $listbox"
       pack $commandFrame.add $commandFrame.change $commandFrame.delete \
    $commandFrame.moveup $commandFrame.movedown -side left
     bind $listbox <Double-ButtonPress-1> "changeDate $listbox"      bind $listbox <Double-ButtonPress-1> "changeDate $listbox"
   
     message $loadFrame.msg -text "Load header information from set:"  \      message $loadFrame.msg -text "Load header information from set:"  \
Line 1252  proc createDBHeader {} { Line 1307  proc createDBHeader {} {
     destroy $dialog      destroy $dialog
     if {$gPrompt(ok) == 1 } {      if {$gPrompt(ok) == 1 } {
  updateDiscussion   updateDiscussion
    if { [llength $gControlDates] > 2 } {
       set gControlDates [linsert [lreverse [lrange $gControlDates 1 end]] 0 [lindex $gControlDates 0]] 
    } 
  eval updateHeader [ eval concat $gControlDates ]   eval updateHeader [ eval concat $gControlDates ]
     }      }
           
Line 1580  proc replaceAll {} { Line 1638  proc replaceAll {} {
     set gCreateImportLinks 1      set gCreateImportLinks 1
     getFindWindow refNum      getFindWindow refNum
     if { $refNum >= 0 } { registerCreateImportLinks $refNum 0.0 end }      if { $refNum >= 0 } { registerCreateImportLinks $refNum 0.0 end }
     displayMessage "Replaced $num occurance$s"      displayMessage "Replaced $num occurrence$s"
 }  }
   
 ###########################################################  ###########################################################
Line 1800  proc createPrefsWindow {} { Line 1858  proc createPrefsWindow {} {
     if { [winfo exists .prefs] } { capaRaise .prefs; return }      if { [winfo exists .prefs] } { capaRaise .prefs; return }
   
     set prefs [toplevel .prefs]      set prefs [toplevel .prefs]
     $gWindowMenu add command -label "Prefrences" -command "capaRaise $prefs"      $gWindowMenu add command -label "Prefernces" -command "capaRaise $prefs"
     wm title $prefs "Preferences"      wm title $prefs "Preferences"
   
     set frameAll [frame $prefs.frameAll -relief groove -borderwidth 4]      set frameAll [frame $prefs.frameAll -relief groove -borderwidth 4]
Line 1844  proc createPrefsWindow {} { Line 1902  proc createPrefsWindow {} {
     button $frameButton.config -text "Reread capa.config" -command "rereadCapaConfig"      button $frameButton.config -text "Reread capa.config" -command "rereadCapaConfig"
     button $frameButton.ok -text "Dismiss" -command "destroy $prefs      button $frameButton.ok -text "Dismiss" -command "destroy $prefs
                                                 trace vdelete gWhichFile w changePrefFile                                                  trace vdelete gWhichFile w changePrefFile
                                                 removeWindowEntry Prefrences"                                                  removeWindowEntry Prefernces"
     bind $prefs <Destroy> "removeWindowEntry Preferences"      bind $prefs <Destroy> "removeWindowEntry Preferences"
     button $frameButton.save -text "Save All" -command "savePrefs"      button $frameButton.save -text "Save All" -command "savePrefs"
     pack $frameButton.impcolor $frameButton.commentcolor $frameButton.config \      pack $frameButton.impcolor $frameButton.commentcolor $frameButton.config \
Line 1971  proc checkHeader { numberParsed } { Line 2029  proc checkHeader { numberParsed } {
 #    if { $gFirstTime } { set gFirstTime 0; return }  #    if { $gFirstTime } { set gFirstTime 0; return }
     set gLoadHeaderSet $gSetNumberText      set gLoadHeaderSet $gSetNumberText
     set error [catch {getHeaderInfo}]      set error [catch {getHeaderInfo}]
       if { [llength $gControlDates] > 2 } {
    set gControlDates [linsert [lreverse [lrange $gControlDates 1 end]] 0 [lindex $gControlDates 0]] 
       } 
     if { $error == 1 } {      if { $error == 1 } {
  set gHeaderQCount "0"   set gHeaderQCount "0"
  set gControlDates ""   set gControlDates ""
Line 3806  proc printBody { lprCommand { showComple Line 3867  proc printBody { lprCommand { showComple
     -o quiztemp.ps >& /dev/null} errorMsg ]      -o quiztemp.ps >& /dev/null} errorMsg ]
     if { $error } {      if { $error } {
  displayError \   displayError \
  "When attempting to run dvips an error occured : $errorMsg"   "When attempting to run dvips an error occurred : $errorMsg"
  return 1   return 1
     }      }
   
Line 3821  proc printBody { lprCommand { showComple Line 3882  proc printBody { lprCommand { showComple
     set error [catch {set returnMessage [eval "exec $lprCommand"] } errorMsg ]      set error [catch {set returnMessage [eval "exec $lprCommand"] } errorMsg ]
           
     if { $error == 1 } {      if { $error == 1 } {
         displayError "When attempting to print an error occured : $errorMsg"          displayError "When attempting to print an error occurred : $errorMsg"
  return 1   return 1
     } else {      } else {
  if { $showCompletionMessage } {   if { $showCompletionMessage } {
Removed from v.1.11  
changed lines
  Added in v.1.13

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