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

Diff for /capa/capa51/GUITools/gradesubjective.tcl between versions 1.7 and 1.8

version 1.7, 1999/12/07 19:10:47 version 1.8, 1999/12/07 19:45:45
Line 124  proc createGradeSubjWindow {} { Line 124  proc createGradeSubjWindow {} {
   
     set gSubj(keyword) [text $right.keyword -width 60 -height 5 \      set gSubj(keyword) [text $right.keyword -width 60 -height 5 \
     -yscrollcommand "$right.scroll set" ]      -yscrollcommand "$right.scroll set" ]
       puts $gSubj(keyword)
       puts $right
     scrollbar $right.scroll -command "$right.response yview"      scrollbar $right.scroll -command "$right.response yview"
     pack $gSubj(keyword) $right.scroll -side left      pack $gSubj(keyword) $right.scroll -side left
     pack configure $right.scroll -fill y      pack configure $right.scroll -fill y
Line 933  proc subjViewResponse {} { Line 935  proc subjViewResponse {} {
 }  }
   
 ###########################################################  ###########################################################
   # subjUpdateResponse
   ###########################################################
   ###########################################################
   ###########################################################
   proc subjUpdateResponse {} {
       gSubj
   }
   
   ###########################################################
   # subjUpdateKeywords
   ###########################################################
   ###########################################################
   ###########################################################
   proc subjUpdateKeywords {} {
       global gSubj
       $gSubj(keyword) delete 0.0 end
       puts $gSubj(keywords)
       foreach keyword $gSubj(keywords) { lappend lokeyword [lindex $keyword 0] }
       set lokeyword [lsort $lokeyword]
       set max 0
       foreach key $lokeyword {
    if { [string length $key] > $max } { set max [string length $key] }
       }
       incr max
       set numcol [expr 60/$max]
       set end [llength $lokeyword]
       set lastline 0
       for { set i 0 } { $i < $end } { incr i } {
    set line [expr $i/$numcol]
    set col [expr $i%$numcol*$max]
    puts $line.$col
    $gSubj(keyword) insert end [format "%-[set max]s" [lindex $lokeyword $i]]
    if {($col + (2*$max)) > 60} {
       puts "Putting in newlne"
       $gSubj(keyword) insert end "\n"
       set lastline $line
    }
       }
       subjUpdateResponse
   }
   
   ###########################################################
 # subjAddKeyword  # subjAddKeyword
 ###########################################################  ###########################################################
 ###########################################################  ###########################################################
 ###########################################################  ###########################################################
 proc subjAddKeyword {} {  proc subjAddKeyword {} {
     global gSubj gUniqueNumber      global gSubj gUniqueNumber
       
       if { "" == [set keyword [getString [winfo toplevel $gSubj(keyword)] "Enter a new keyword"]]} {
    return
       }
       puts "New keyword $keyword"
       lappend gSubj(keywords) [list $keyword [list $keyword]]
       subjUpdateKeywords
 }  }
Removed from v.1.7  
changed lines
  Added in v.1.8

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