Page 1 of 1

SITcomm AppleScript

Posted: October 13th, 1996, 9:00 am
by Info-Mac
Download: http://archive.info-mac.org/dev/src/sim ... updt-p.hqx

Attached is Pascal code as well as resources to create a breakout game.
Though not all that complex, it still uses several techniques that can
be used to make such a thing. The code will compile easily under Think
Pascal, and not all that much effort is required to force it to compile
under Codewarrior. Please freely distribute this code in any way; it
may be used for any purpose. Send all questions/whatever to:
[email protected]






--========================_6153076==_
Content-Type: text/plain; charset="us-ascii"

'SimpleSavePict-pas.txt' is a Unit written in Think Pascal to save Gworlds
or current active windows as a file of PICT format.

I'm hoping that it will be placed in /info-mac/dev/source.

Thankyou,



--========================_6153076==_
Content-Type: text/plain; name="SimpleSavePict-pas.txt"; charset="us-ascii"




The following code, once again, is nothing particularly glamorous; it
simply makes it easier to use the List Manager to create and manage lists
of strings. One of the most common uses for the List Manager is
scrollable, one-dimensional, fixed-size
lists of strings (as in SFGetFile, SFPutFile). The List Manager is good
for creating all kinds of lists (such as lists of icons), but a lot of
this functionality is a hassle for programmers who only need a simple list
of strings.
The code below allows you create and dispose of lists of strings. It
allows you to add, rename, and remove elements in the list, and handles
mouse clicks and update events. It also keeps the lists in alphabetical
order.
I remember having a lot of trouble learning how to call the List
Manager properly; I hope that this code helps somebody else.




Language: AppleScript 1.0
Author: Harry Myhre
Date Written: Tue, Dec 7, 1993
Purpose: Start SITcomm, logon to Netcom, get into dl directory,
ask user what to do next.

tell application "SITcomm"
activate
Connect "Netcom" -- dial into Netcom
Wait For Text "etcom" -- last part of command prompt
Send Text "go ~" -- first, go to home dir
Send Text return
Send Text "go dl" -- go to my download dir
Send Text return
end tell