Return to createof5.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools / ideas / of5tool

Annotation of capa/capa51/GUITools/ideas/of5tool/createof5.tcl, revision 1.1

1.1     ! albertel    1: proc createMainWindow {} {
        !             2:     global probList
        !             3: 
        !             4:     toplevel .main
        !             5:     
        !             6:     set listFrame [ frame .main.listFrame ]
        !             7:     set buttonFrame1 [ frame .main.buttonFrame1 ]
        !             8:     set buttonFrame2 [ frame .main.buttonFrame2 ]
        !             9:     pack $listFrame $buttonFrame1 $buttonFrame2 -side top
        !            10: 
        !            11:     set probList [ listbox $listFrame.list \
        !            12: 		       -yscrollcommand "$listFrame.scroll set" \
        !            13: 		       -width 80 -height 30 ]
        !            14:     scrollbar $listFrame.scroll \
        !            15:                 -command "$listFrame.list yview" \
        !            16:                 -orient v
        !            17:     pack $probList $listFrame.scroll -side left
        !            18:     pack configure $listFrame.scroll -fill y
        !            19: 
        !            20:     button $buttonFrame1.quit -text "Quit" -command exitProgram
        !            21:     button $buttonFrame1.newQuest -text "New Question" -command addQuestion
        !            22:     button $buttonFrame1.editQuest -text "Edit Question" -command editQuestion
        !            23:     button $buttonFrame1.delQuest -text "Delete Question" -command delQuestion
        !            24:     button $buttonFrame1.moveQuest -text "Move Question" -command moveQuestion
        !            25:     pack $buttonFrame1.quit $buttonFrame1.newQuest $buttonFrame1.editQuest \
        !            26: 	$buttonFrame1.delQuest $buttonFrame1.moveQuest -side left
        !            27: 
        !            28:     button $buttonFrame2.save -text "Save" -command save
        !            29:     button $buttonFrame2.export -text "Create .qz" -command export
        !            30:     button $buttonFrame2.load -text "Load" -command load
        !            31:     pack $buttonFrame2.save $buttonFrame2.export $buttonFrame2.load -side left
        !            32:     
        !            33: }
        !            34: 
        !            35: proc addQuestion {} {
        !            36:     global probList problem
        !            37: 
        !            38:     if { $problem(adding) == 1 || $problem(editing) == 1 } {
        !            39: 	return
        !            40:     }
        !            41: 
        !            42:     set problem(adding) 1
        !            43:     incr problem(num)
        !            44:     
        !            45:     set problemType [toplevel .problemType]
        !            46:     
        !            47:     label $problemType.label -text "Select a Type of Problem:"
        !            48:     button $problemType.multipleChoice -text "Multiple Choice" \
        !            49: 	-command " 
        !            50: 	    destroy .problemType 
        !            51: 	    MCadd
        !            52: 	"
        !            53:     pack $problemType.label $problemType.multipleChoice
        !            54: }
        !            55: 
        !            56: proc updateProblemList { probnum } {
        !            57:     global problem probList
        !            58: 
        !            59:     set numProbs [$probList size]
        !            60:     
        !            61:     if { $numProbs < $probnum } {
        !            62:     } else {
        !            63: 	$probList delete [ expr $probnum - 1 ]
        !            64:     }
        !            65:     
        !            66:     set quest [string range $problem(prob.$probnum.quest) 0 40 ]
        !            67:     set string "$probnum $problem(prob.$probnum.type) $quest"
        !            68:     
        !            69:     $probList insert [expr $probnum - 1] "$string"
        !            70: }
        !            71: 
        !            72: proc editQuestion {} {
        !            73:     global problem probList
        !            74: 
        !            75:     set probnum [$probList curselection]
        !            76:     if { $probnum == "" } { return }
        !            77:     #listboxes count from zero, we count from 1
        !            78:     incr probnum 
        !            79:     set problem(editing) $probnum
        !            80: 
        !            81:     switch $problem(prob.$probnum.type) {
        !            82: 	"Multiple Choice" 
        !            83: 	{
        !            84: 	    MCadd
        !            85: 	    for {set i 1 } { $i <= $problem(prob.$probnum.numleaf) } { incr i } {
        !            86: 		MCupdateLeafList $i $probnum
        !            87: 	    }
        !            88: 	}
        !            89: 	-
        !            90: 	{
        !            91: 	    tk_messageDialogue -icon error -type ok \
        !            92: 		-message "Unable to edit questions of type $problem(prob.$probnum.type)"
        !            93: 	}
        !            94:     }
        !            95: }
        !            96: 
        !            97: proc save {} {
        !            98:     global problem
        !            99:     
        !           100:     set file [tk_getSaveFile -defaultextension .hack  \
        !           101: 		  -filetypes {{{Hacked GUI Quizzer file} {.hack}}} ]
        !           102:     if { $file == "" } { return }
        !           103:     set fileid [open "$file" "w" ]
        !           104:     foreach i [array names problem] {
        !           105: 	puts $fileid "set problem($i) \"$problem($i)\""
        !           106:     }
        !           107:     close $fileid
        !           108: }
        !           109: 
        !           110: proc load {} {
        !           111:     global problem probList
        !           112: 
        !           113:     set file [tk_getOpenFile -defaultextension .hack \
        !           114: 		  -filetypes {{{Hacked GUI Quizzer file} {.hack}}} ]
        !           115:     if {$file == "" } { return }
        !           116:     source $file
        !           117:     
        !           118:     $probList delete 0 end
        !           119:     for { set i 1 } { $i <= $problem(num) } { incr i } {
        !           120: 	updateProblemList $i
        !           121:     }
        !           122: }
        !           123: 
        !           124: proc exitProgram {} {
        !           125:     global problem
        !           126:     exit
        !           127: }
        !           128: 
        !           129: wm withdraw .
        !           130: set problem(num) 0
        !           131: set problem(adding) 0
        !           132: set problem(editing) 0
        !           133: source "export.tcl"
        !           134: source "multiplechoice.tcl"
        !           135: MCinit
        !           136: 
        !           137: createMainWindow