Return to createof5.tcl CVS log

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

Created directory structure

proc createMainWindow {} {
    global probList

    toplevel .main
    
    set listFrame [ frame .main.listFrame ]
    set buttonFrame1 [ frame .main.buttonFrame1 ]
    set buttonFrame2 [ frame .main.buttonFrame2 ]
    pack $listFrame $buttonFrame1 $buttonFrame2 -side top

    set probList [ listbox $listFrame.list \
		       -yscrollcommand "$listFrame.scroll set" \
		       -width 80 -height 30 ]
    scrollbar $listFrame.scroll \
                -command "$listFrame.list yview" \
                -orient v
    pack $probList $listFrame.scroll -side left
    pack configure $listFrame.scroll -fill y

    button $buttonFrame1.quit -text "Quit" -command exitProgram
    button $buttonFrame1.newQuest -text "New Question" -command addQuestion
    button $buttonFrame1.editQuest -text "Edit Question" -command editQuestion
    button $buttonFrame1.delQuest -text "Delete Question" -command delQuestion
    button $buttonFrame1.moveQuest -text "Move Question" -command moveQuestion
    pack $buttonFrame1.quit $buttonFrame1.newQuest $buttonFrame1.editQuest \
	$buttonFrame1.delQuest $buttonFrame1.moveQuest -side left

    button $buttonFrame2.save -text "Save" -command save
    button $buttonFrame2.export -text "Create .qz" -command export
    button $buttonFrame2.load -text "Load" -command load
    pack $buttonFrame2.save $buttonFrame2.export $buttonFrame2.load -side left
    
}

proc addQuestion {} {
    global probList problem

    if { $problem(adding) == 1 || $problem(editing) == 1 } {
	return
    }

    set problem(adding) 1
    incr problem(num)
    
    set problemType [toplevel .problemType]
    
    label $problemType.label -text "Select a Type of Problem:"
    button $problemType.multipleChoice -text "Multiple Choice" \
	-command " 
	    destroy .problemType 
	    MCadd
	"
    pack $problemType.label $problemType.multipleChoice
}

proc updateProblemList { probnum } {
    global problem probList

    set numProbs [$probList size]
    
    if { $numProbs < $probnum } {
    } else {
	$probList delete [ expr $probnum - 1 ]
    }
    
    set quest [string range $problem(prob.$probnum.quest) 0 40 ]
    set string "$probnum $problem(prob.$probnum.type) $quest"
    
    $probList insert [expr $probnum - 1] "$string"
}

proc editQuestion {} {
    global problem probList

    set probnum [$probList curselection]
    if { $probnum == "" } { return }
    #listboxes count from zero, we count from 1
    incr probnum 
    set problem(editing) $probnum

    switch $problem(prob.$probnum.type) {
	"Multiple Choice" 
	{
	    MCadd
	    for {set i 1 } { $i <= $problem(prob.$probnum.numleaf) } { incr i } {
		MCupdateLeafList $i $probnum
	    }
	}
	-
	{
	    tk_messageDialogue -icon error -type ok \
		-message "Unable to edit questions of type $problem(prob.$probnum.type)"
	}
    }
}

proc save {} {
    global problem
    
    set file [tk_getSaveFile -defaultextension .hack  \
		  -filetypes {{{Hacked GUI Quizzer file} {.hack}}} ]
    if { $file == "" } { return }
    set fileid [open "$file" "w" ]
    foreach i [array names problem] {
	puts $fileid "set problem($i) \"$problem($i)\""
    }
    close $fileid
}

proc load {} {
    global problem probList

    set file [tk_getOpenFile -defaultextension .hack \
		  -filetypes {{{Hacked GUI Quizzer file} {.hack}}} ]
    if {$file == "" } { return }
    source $file
    
    $probList delete 0 end
    for { set i 1 } { $i <= $problem(num) } { incr i } {
	updateProblemList $i
    }
}

proc exitProgram {} {
    global problem
    exit
}

wm withdraw .
set problem(num) 0
set problem(adding) 0
set problem(editing) 0
source "export.tcl"
source "multiplechoice.tcl"
MCinit

createMainWindow