|
version 1.2, 2000/02/22 18:10:27
|
version 1.3, 2000/03/22 21:08:02
|
|
Line 67 proc createClasslEditor { classlFile } {
|
Line 67 proc createClasslEditor { classlFile } {
|
| #action |
#action |
| button $actionFrame.add -text "Add" -command "classlAdd $num" |
button $actionFrame.add -text "Add" -command "classlAdd $num" |
| button $actionFrame.edit -text "Edit" -command "classlEdit $num" |
button $actionFrame.edit -text "Edit" -command "classlEdit $num" |
| |
button $actionFrame.save -text "Save" -command "saveClassl $num 1" |
| button $actionFrame.delete -text "Delete" -command "classlDelete $num" |
button $actionFrame.delete -text "Delete" -command "classlDelete $num" |
| button $actionFrame.section -text "Change Section" -command "classlSectionChange $num" |
button $actionFrame.section -text "Change Section" -command "classlSectionChange $num" |
| button $actionFrame.sort -text "Sort" -command "classlSort $num" |
button $actionFrame.sort -text "Sort" -command "classlSort $num" |
| button $actionFrame.print -text "Print" -command "classlPrint $num" |
button $actionFrame.print -text "Print" -command "classlPrint $num" |
| button $actionFrame.find -text "Find" -command "classlFind $num" |
button $actionFrame.find -text "Find" -command "classlFind $num" |
| button $actionFrame.merge -text "Merge" -command "classlMerge $num" |
button $actionFrame.merge -text "Merge" -command "classlMerge $num" |
| pack $actionFrame.add $actionFrame.edit $actionFrame.delete $actionFrame.section \ |
pack $actionFrame.add $actionFrame.edit $actionFrame.save $actionFrame.delete \ |
| $actionFrame.sort $actionFrame.print $actionFrame.find $actionFrame.merge\ |
$actionFrame.section $actionFrame.sort $actionFrame.print $actionFrame.find \ |
| -side left |
$actionFrame.merge -side left |
| |
|
| #window |
#window |
| set leftFrame [frame $windowFrame.left] |
set leftFrame [frame $windowFrame.left] |
![[BACK]](/icons/back.gif){kind=icon}
Return to classl.tcl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools