摘要： The method to get Date Tcltkproc GetDate { args } { #---------------------------------------------------------------#d_sum Return the date/time appropriately formatted#d_desc Uses Tcl clock command. Return the current time if the -clock \argument is not used. See Tcl clock command for explanation of 阅读全文

摘要： # save vars and arraysproc save_state {} { uplevel 1 { set fh [open $::statefile w] foreach v [info vars] { if [array exists $v] { puts $fh [list array set $v [array get $v]] } else { puts $fh [list set $v [set $v]] } } close $fh }}# restoreproc restore_state {} { uplevel 1 { source $::statefile }} 阅读全文

摘要： itcl class examplepackage require Itclitcl::class Animal { variable name variable knowledge variable habitat variable topSpeed variable color variable picture method answer: {aString} method name: {aString} method talk {} method habitat: {aHabitat} method learn:action: {aString aBlock} method reset 阅读全文