1234567891011121314151617181920 |
- #!/bin/sh
- exec tclsh "$0" ${1+"$@"}
- package require Tk
- package require Tcl
- package require Itcl
- set scriptDir [file dirname [info script]]
- source [file join $scriptDir addressDialog.tcl]
- set adr 21
- while { $adr != false } {
- set adr [ShowAddressDlg $adr]
- }
- exit
|