MacFormat 1999 April/macformat-075.iso/Shareware Plus/Applications/Alpha/Tcl/SystemCode/CorePackages/windows.tcl

Text File | 1998-12-16 | 177 b | 7 lines | [TEXT/ALFA]

namespace eval win {}

proc win::Current {} {global win::Current ; return ${win::Current}}
proc win::CurrentTail {} {global win::Current ; return [file tail ${win::Current}]}