home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / scripts / script.tcl < prev    next >
Encoding:
Text File  |  1993-11-19  |  329 b   |  21 lines  |  [TEXT/$Tcl]
  1.  
  2. if $AEVENT then {
  3.     AEinteract;
  4.     }
  5.  
  6. print "This is the test script"
  7.  
  8. set a 4
  9. set b 8
  10.  
  11. alertnote "a times b equals [expr {$a * $b}]."
  12.  
  13. puts stdout "[format "A times B equals %08d." [expr {$a * $b}] ]\n"
  14.  
  15. # menucmd UNIX 4
  16. menucmd Apple 1
  17.  
  18. puts stdout [xtclcmd ECHO "This is the first ARG" "This is the second ARG"]
  19.  
  20. format "Done."
  21.