home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / apple2 / 66 < prev    next >
Encoding:
Internet Message Format  |  1991-05-11  |  19.0 KB
  1. From: jac@yoko.rutgers.edu (Jonathan A. Chandross)
  2. Newsgroups: comp.sources.apple2
  3. Subject: v001SRC047:  Texter -- text editor (GS Only) Part 01/02
  4. Message-ID: <May.10.15.46.17.1991.13826@yoko.rutgers.edu>
  5. Date: 10 May 91 19:46:18 GMT
  6. Approved: jac@paul.rutgers.edu
  7.  
  8.  
  9. Submitted-by: Joel Sumner (q4kx@cornella.ccs.cornell.edu)
  10. Posting-number: Volume 1, Source:47
  11. Archive-name: editor/texter/part01
  12. Architecture: ONLY_2gs
  13. Version-number: 1.1.1
  14.  
  15. Texter is a text editor for the GS.
  16.  
  17. Enjoy.
  18.  
  19.  
  20. =Read.Me
  21. -
  22. -Texter
  23. -
  24. -Version 1.1.1
  25. -
  26. -I am not perfect so please point out errors, suggestions, etc. to
  27. -me.  I would appreciate knowing what I am doing right or wrong.
  28. -
  29. -This source is compiled with Orca/Pascal (tm Byteworks) and the
  30. -Resource was created with Genesys (tm SSSI) though I created APW
  31. -Rez (tm Apple Computer) source with Genesys so you could see what
  32. -the resource fork was.
  33. -
  34. -Also included is a unit by Dave Lyons of Apple Computer to utilitize
  35. -MessageCenter.  This unit is Public Domain.  I made 1 little change
  36. -to it because of compiler type-checking and such.  His original code
  37. -is still there, enclosed in comments.
  38. -
  39. -This code is for demonstration purposes only.  Please do not re-distribute
  40. -without this header.
  41. -
  42. -If you have any questions, contact me at:
  43. -
  44. -    Joel Sumner
  45. -    19 Fossen Way
  46. -    Andover, MA 01810
  47. -
  48. -    GEnie: JOEL.SUMNER
  49. -    Internet: q4kx@cornella.ccs.cornell.edu
  50. -          q4kx@vax5.cit.cornell.edu
  51. -    Bitnet:   q4kx@CORNELLA
  52. -          q4kx@CRNLVAX5
  53. -
  54. -Release Notes:
  55. -
  56. -    Fixed bug in Version 1.1 where PrDefault() was called every
  57. -    time the user selected "Page Setup" instead of calling
  58. -    PrDefault() when Texter was started up and then PrValidate
  59. -    after that.
  60. -
  61. =Manifest
  62. -
  63. -Read.Me
  64. -icons.bsc
  65. -messunit.pas
  66. -mystuffintf.pas
  67. -texter.doc
  68. -texter.pas
  69. -texter.r.equ
  70. -texter.r.src
  71. -texter2.pas
  72. -
  73. =texter.doc
  74. -
  75. -                        Texter v1.1
  76. -                       By Joel Sumner
  77. -
  78. -Background
  79. -----------
  80. -     This is the next in a continuing series of little programs that
  81. -I have made because I needed them.  This one in particular is
  82. -just a text editor.  Simple enough.  But I couldn't find one
  83. -that allowed you to double-click on the file from the finder
  84. -and have it load the text editor and the file you double-
  85. -clicked upon.  Appleworks GS does this but many other programs
  86. -don't.  Therefore, I decided to write one.  I happened to write
  87. -this the same week that I had two exams and a long paper due.
  88. -I always seem to do that to myself.  Anyway, I hope you like it.
  89. -
  90. -Use
  91. ----
  92. -     You can run Texter one of two ways.  Either run it as a regular
  93. -application just as you would any other program, or you can
  94. -double-click upon a text file in a finder window and Texter
  95. -will automatically be run and the file you clicked upon will
  96. -be run.  You can even select more than one file and double-
  97. -click upon them.  A maximum of 5 files will be loaded though,
  98. -even if you select more than that.
  99. -
  100. -Installation
  101. -------------
  102. -     Included in this archive is the program (Texter), the
  103. -documentation file (Texter.Doc), and an Icon file (Texter.ICN).
  104. -Place the Icon file in the ICONS folder of your boot disk
  105. -and place Texter in the SYSTEM subdirectory of your boot
  106. -disk.  It should now work just fine.
  107. -     If you need to put Texter somewhere besides the SYSTEM
  108. -subdirectory of your boot disk (due to space or preference),
  109. -you will have to edit the attributes of the Icon file to
  110. -reflect the new loaction of Texter.  This can be accomplished
  111. -with one of the Icon Editors out there.  (I recommend DiCeD by
  112. -Dave Lyons.)  Simply load the Icon file into the editor
  113. -and change the attributes like that says:
  114. -
  115. -*/SYSTEM/TEXTER
  116. -
  117. -to whatever pathname that Texter currently resides in.
  118. -(The '*' refers to your boot disk.  My hard drive title is '/js'
  119. -and I boot off it so '*' is the same as '/js')
  120. -
  121. -Note, if you try to run the program and get a text dialog saying
  122. -"Error $1E06", that means that the resource fork was not copied
  123. -properly.  Make sure you extract the archive with GSHK and copy
  124. -it to your destination with the Apple IIgs Finder.
  125. -
  126. -Features
  127. ---------
  128. -     This is pretty no-frills.  You can open up to 5 files at a
  129. -time.  Their full pathname will be displayed in the window
  130. -title and part of their pathname can be seen in the 'Windows'
  131. -menu.  If you have a bunch of windows open and you wish to
  132. -view one of the bottom ones, you can either move all the top
  133. -windows out of the way (slow way), or you can simply select
  134. -that window in the 'Windows' menu (fast way).
  135. -     You can cut and paste text between windows, but the Undo
  136. -command does not function.
  137. -
  138. -Texter uses all of the standard Text Edit shortcuts:
  139. -
  140. -- The arrow keys can be used to move the cursor
  141. -- Control-D or Delete will delete the current selection or the
  142. -  character to the left of the cursor.
  143. -- Clear clears the current selection
  144. -- Control-F removes the current selection or deletes the
  145. -  character to the right of the cursor
  146. -- Control-Y removes all characters from the cursor to the
  147. -  end of the line
  148. -- Control-X cuts the selection like OA-X and Cut
  149. -- Control-C copies the selection like OA-C and Copy
  150. -- Control-V pastes from the clipboard like OA-V and Paste
  151. -- A single click places the cursor where the click was
  152. -- A double click selects the word under the arrow
  153. -- A triple click selects the line under the arrow
  154. -- Holding down shift selects everything from the cursor to the
  155. -  mouse click
  156. -
  157. -You can also print your document.  I assure you that the default
  158. -font (Shaston 8) looks pretty horrid on a printer.  Thus, simply
  159. -select the Choose Font option from the Goodies menu and select
  160. -a better font to print with.  Experiment until you find something
  161. -that looks acceptable.
  162. -
  163. -Finally, you can choose if you want the document word-wrapped or
  164. -not.  Simply select the toggle in the Goodies Menu.  If "Word Wrap On"
  165. -is checked, then the current document has word wrap activated.
  166. -This setting is dependent on the window so turning it on or off
  167. -only affects the current window.
  168. -
  169. -None of the above settings are changed because, after all, this edits
  170. -straight text files, not word processor files.
  171. -
  172. -Other Notes
  173. ------------
  174. -- TextEdit automatically formats your files so they word wrap.
  175. -This takes a certain amount of time.  Thus loading large files
  176. -(200K or more) can take a good amount of time (20-25 seconds)
  177. -to be formatted.  Please be patient.
  178. -- Files cannot be loaded that are more than 1/2 of available
  179. -memory.  This is because two copies of the file must temporarily
  180. -be in memory simultaneously when loading or saving files and
  181. -there would be no memory available to do this.
  182. -
  183. -Conclusion
  184. -----------
  185. -     Well, that's about it.  I hope you enjoy or use this program.
  186. -As you may notice, I have said nothing about money.  That's
  187. -because I don't want any.  This is Freeware.  As a request though,
  188. -if you do actually install it and use it, please drop me a line
  189. -and let me know what you think.  If you send it via E-Mail, even
  190. -the response doesn't cost anything.  If you have any questions,
  191. -comments, or responses, I can be reached at the following
  192. -addresses:
  193. -
  194. -Joel Sumner
  195. -19 Fossen Way
  196. -Andover, MA 01810
  197. -
  198. -GEnie: JOEL.SUMNER
  199. -Internet:
  200. -q4kx@cornella.ccs.cornell.edu
  201. -q4kx@vax5.cit.cornell.edu
  202. -Bitnet:
  203. -q4kx@cornella
  204. -q4kx@crnlvax5
  205. -
  206. -Updates
  207. ---------
  208. -(Version 1.1)
  209. -- Fixed bug that caused an error $206 on startup and prevented printing
  210. -  with anything but the ImageWriter driver.
  211. -- Added Goodies Menu with Word Wrap selection and Font selection.
  212. -- Added 'Formatting Text' dialogs.
  213. -- Better Tool Error dialogs to determine where errors have occurred.
  214. -- New (and improved) icon file.
  215. -
  216. =icons.bsc
  217. -FiLeStArTfIlEsTaRt
  218. -ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
  219. -IICONS.BSC      AMQuAAAAAYwwDIAA2qKAq(AHPUhtAMQuAcj0
  220. -GVvTlzW6BcbYAAAAOwCAEkwWAAAAb5ALAQQCAIAAAAAAAAAA5CAAAAwAAAAAAAAA
  221. -GVvTRLJ2BAAPAMAABAAAA8CAAAw4AoMAAAAAAAAAAAgAbFBKAMAHFAAAcslEAAwA
  222. -OwCAEkwWAAAAAAAAAAwAAAAAMAAAAAAAAAAIAAAABAAAAAAAAAAAAgMACAAAAIAA
  223. -AAAAGYAA1AAAAAgAYVEVSVEVDlkLT50TAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  224. -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  225. -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  226. -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  227. -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  228. -AAAA4jMAFsNAbHABIwAACCJEPAQqYyLVOc2ktJTnEzjXOB18zJjmhaJJObEWyBDm
  229. -EYAMFBUEEYAwAIhACBABPAwSz0vtm)EAxcQgAWx)AN7l)LAwI4jgn9g(IBAUTI8i
  230. -pTjSwDwPb5PomTlWwoKAjKckqPvmEBQUF4UuqU9y18Z1IiRAADeCP8p1Urv0ASRi
  231. -RJATVLd7pCwW85Lz97e)wgxKICc4ABQQgjDsbNKAFC0HnSZGV6JZV474mbFGJMoh
  232. -8ZzFiFHGZsYx8fXTOLHGnIJyklaYlJd62opTl7fcncf(CFa0VddgrTvyLha0z7)y
  233. -yQl(MXOVl5Un6VnGnVe1MweAgaDuxl7WW7xfwe7iHScee9w09g5bMWsUGiTEyMHz
  234. -QtMcOt27zD6O80wv7CUEwoHgNqIgIogKanVggYi2hDAAKA4BACMAS0LPXeGgYBBn
  235. -ZfBYrFn)u31lD3MuAC(WRc7Ygjz7OtrpOaA3yxcASAAExj27aIqJFbA64GAFK74A
  236. -mnuuPchGHvGaMtoH4RUsqypUbNCSHrGHsj5fh4gBrpwniumy5mGr49ALvwq0tJ9b
  237. -hnCzroKWMaKe7a6CGRoegTgJBkCz6TlvEA6JLokh8KaAq42AC6u70666pppUolpP
  238. -OtuqMiDpFYiSHwv5YE8TmQ9oV4zx(bD60pg7MBrvAAYBLdhQ)EQNvJ42IKbMqyme
  239. -qb5H4m5jAgHYAWOmwsYIii85KvMrUIDrYPKrZXtgF4Jgpp9CgWQpAAwHAAAAAAAA
  240. -AE2e
  241. =messunit.pas
  242. -{$Keep 'MessUnit'}
  243. -UNIT MessUnit;
  244. -{
  245. -  PUBLIC DOMAIN      20-Sep-89      v1.1
  246. - 
  247. -  Easy-to-use interface for reading a list of pathnames
  248. -  passed to an application by the Finder or another
  249. -  program selector.  This list is passed in the Message
  250. -  Center as described in the Tool Locator chapter of
  251. -  the Toolbox Reference, Volume 2.
  252. - 
  253. -  Modified September 1989 for TML Pascal II.
  254. - 
  255. -  To use:
  256. -    Call InitReadMC with a valid memory ID.  If it returns
  257. -    -1, no message was available.  If InitReadMC returns 0
  258. -     or 1, then a list of pathnames is available.  0 means
  259. -     the application should OPEN the files, and 1 means it
  260. -     should PRINT them.
  261. - 
  262. -     Repeatedly call ReadNextMC to get a pathname. It
  263. -     returns FALSE when there are no more pathnames to
  264. -     get.  (To clarify, False means the PREVIOUS call gave
  265. -     you the last available pathname.)
  266. - 
  267. -     Even if you are going to accept only one pathname from
  268. -     the MessageCenter (not recommended), you should still
  269. -     call ReadNextMC until it returns FALSE.  Otherwise some
  270. -     memory will needlessly be left allocated.
  271. - 
  272. -     Tip:  Be sure to allow for people fiddling with their
  273. -     icon files!  Do NOT assume that any pathname given to
  274. -     you by the MessageCenter will specify a file of the
  275. -     type you expect--check.
  276. - 
  277. -     Also, don't assume that the volumes containing the files
  278. -     are necessarily online when your application is launched.
  279. -     You may need to ask the user to insert the correct disk.
  280. - 
  281. -  by David A. Lyons a.k.a. DAL Systems
  282. -  P.O. Box 287
  283. -  North Liberty, IA 52317
  284. - 
  285. -  CompuServe 72177,3233
  286. -  GEnie D.LYONS2
  287. -  AppleLink--PE Dave Lyons
  288. -}
  289. - 
  290. -INTERFACE
  291. - 
  292. -USES Common, ToolLocator, MemoryMgr;
  293. -
  294. -Type     Str255 = string[255];   {My Additions to TYPE}
  295. -         StringPtr = ^Str255;
  296. -
  297. -function  InitReadMC(id: integer): integer;
  298. -function  ReadNextMC(s: StringPtr): boolean;
  299. - 
  300. -IMPLEMENTATION
  301. -type
  302. -  myMessageRec = RECORD
  303. -    messageNext: longint;
  304. -    messageType: integer;
  305. -    messageData: integer;
  306. -    fileNames: packed array[1..32000] of char;
  307. -  END;
  308. -  MessagePtr = ^myMessageRec;
  309. -  MessageH = ^MessagePtr;
  310. - 
  311. -var
  312. -  MsgHand:  MessageH;
  313. -  MsgIndex: integer;
  314. - 
  315. -function InitReadMC;
  316. -var
  317. -  err: integer;
  318. -begin
  319. -  InitReadMC := -1;
  320. -  MsgIndex := 1;
  321. -  MsgHand := MessageH(NewHandle(0,id,attrNoCross,nil));
  322. -  MessageCenter(getMessage,1,Handle(MsgHand));
  323. -  err := ToolError;
  324. -  MessageCenter(deleteMessage,1,nil);
  325. -  if err=0 then
  326. -    InitReadMC := MsgHand^^.messageData
  327. -  else
  328. -    DisposeHandle(handle(MsgHand));
  329. -end;
  330. - 
  331. -function ReadNextMC;
  332. -var
  333. -  len,i: integer;
  334. -  tempStr: Str255;
  335. -begin
  336. -  s^ := '**********';
  337. -  ReadNextMC := false;
  338. -  len := ord(MsgHand^^.FileNames[MsgIndex]);
  339. -  if len<>0 then begin
  340. -    ReadNextMC := true;
  341. -    {BlockMove(@MsgHand^^.FileNames[MsgIndex],ptr(s),len+1);} {Dave's}
  342. -    For i:=0 to len do
  343. -     tempStr[i]:=MsgHand^^.FileNames[MsgIndex+i];    {My [Joel's] Routine}
  344. -    MsgIndex := MsgIndex + len + 1;
  345. -  end else
  346. -    DisposeHandle(handle(MsgHand));
  347. -s^:=TempStr;
  348. -end;
  349. - 
  350. -END.
  351. =mystuffintf.pas
  352. -{$Keep 'MyStuff'}
  353. -Unit MyStuff;
  354. -Interface
  355. -
  356. -Uses     Common,
  357. -         DialogMgr,
  358. -         MscToolSet,
  359. -         WindowMgr,
  360. -         QuickDrawII,
  361. -         {$LibPrefix '0/'}
  362. -         MessUnit;       {Dave Lyon's Unit for Message Center}
  363. -
  364. -
  365. -type
  366. -         SubstArray = Array [0..1] of StringPtr;
  367. -
  368. -var
  369. -         TempTextString:     Str255;
  370. -         result:        Integer;
  371. -         errString:     StringPtr;
  372. -         errStringArr:  SubstArray;
  373. -         errStringPtr:  ^SubstArray;
  374. -
  375. -
  376. -PROCEDURE SystemError (ErrNum : Integer);
  377. -Function cnvihs(theint:integer):StringPtr;
  378. -Procedure ErrorBox(error,where:integer);
  379. -
  380. -Implementation
  381. -PROCEDURE SystemError;
  382. -
  383. -    BEGIN    { This is to save code - we don't need Pascal's Run-Time errors }
  384. -    END;
  385. -
  386. -Function cnvihs;      {converts integer to hex string}
  387. -var tmpStrPtr    :StringPtr;
  388. -    TmpStr       :String;
  389. -    i:        integer;
  390. -begin
  391. -tmpstr[0]:=char(5);
  392. -i:=integer((theint & $F)+48);
  393. -if I<58 then tmpstr[5]:=char(i)
  394. -    else tmpstr[5]:=char(i+7);
  395. -i:=integer((theint & $F0) div $10 +48);
  396. -if I<58 then tmpstr[4]:=char(i)
  397. -    else tmpstr[4]:=char(i+7);
  398. -i:=integer((theint & $F00)div $100 + 48);
  399. -if I<58 then tmpstr[3]:=char(i)
  400. -    else tmpstr[3]:=char(i+7);
  401. -i:=integer((theint & $F000)div $1000 + 48);
  402. -if (I<56) and (I>47) then tmpstr[2]:=char(i)
  403. -    else if (I=40) or (I=41) then tmpstr[2]:=char(I+16)
  404. -    else if I>41 then tmpstr[2]:=char(i+23);
  405. -tmpstr[1]:=char('$');
  406. -TempTextString:=tmpstr;
  407. -tmpstrPtr:=@TempTextString;
  408. -cnvihs:=tmpstrPtr;
  409. -end;
  410. -
  411. -Procedure ErrorBox;   {put error dialog on screen}
  412. -begin
  413. -SysBeep;
  414. -errString:=cnvihs(Error);
  415. -new(ErrStringArr[0]);
  416. -errStringArr[0]^:=errString^;
  417. -errString:=cnvihs(where);
  418. -new(ErrStringArr[1]);
  419. -errStringArr[1]^:=errString^;
  420. -result:=AlertWindow(5,ptr(ErrStringPtr),pointer(2));
  421. -end;
  422. -
  423. -
  424. -END.
  425. =texter.r.equ
  426. -// --------------------------------------------------------------------
  427. -// Genesys created REZ defines
  428. -// Simple Software Systems International, Inc.
  429. -// APWREZ.SCG 1.2
  430. -// --------------------------------------------------------------------
  431. -
  432. -
  433. -// --- type $8004 defines
  434. -
  435. -#define Text_Edit_Control $00000001
  436. -
  437. -// --- type $8006 defines
  438. -
  439. -#define Apple_pString $00000001
  440. -#define File_pString $00000002
  441. -#define Edit_pString $00000003
  442. -#define Windows_pString $00000004
  443. -#define Goodies_pString $00000005
  444. -#define Undo_pString $000000FA
  445. -#define Cut_pString $000000FB
  446. -#define Copy_pString $000000FC
  447. -#define Paste_pString $000000FD
  448. -#define Clear_pString $000000FE
  449. -#define Close_pString $000000FF
  450. -#define About_pString $00000100
  451. -#define Quit_pString $00000101
  452. -#define New_pString $00000102
  453. -#define Open_pString $00000103
  454. -#define Save_pString $00000104
  455. -#define SaveAs_pString $00000105
  456. -#define Page_Setup_pString $00000107
  457. -#define Print_pString $00000108
  458. -#define Window1_pString $00000109
  459. -#define Window2_pString $0000010A
  460. -#define Window3_pString $0000010B
  461. -#define Window4_pString $0000010C
  462. -#define Window5_pString $0000010D
  463. -#define Word_Wrap_pString $0000010E
  464. -#define Choose_Font_pString $0000010F
  465. -#define Text_Window_Title $00010005
  466. -
  467. -// --- type $8008 defines
  468. -
  469. -#define Application_Menu_Bar $00000001
  470. -
  471. -// --- type $8009 defines
  472. -
  473. -#define Apple_Menu $00000001
  474. -#define File_Menu $00000002
  475. -#define Edit_Menu $00000003
  476. -#define Window_Menu $00000004
  477. -#define Goodies_Menu $00000005
  478. -
  479. -// --- type $800A defines
  480. -
  481. -#define Undo_Menu_Item $000000FA
  482. -#define Cut_Menu_Item $000000FB
  483. -#define Copy_Menu_Item $000000FC
  484. -#define Paste_Menu_Item $000000FD
  485. -#define Clear_Menu_Item $000000FE
  486. -#define Close_Menu_Item $000000FF
  487. -#define About_Menu_Item $00000100
  488. -#define Quit_Menu_Item $00000101
  489. -#define New_Menu_Item $00000102
  490. -#define Open_Menu_Item $00000103
  491. -#define Save_Menu_Item $00000104
  492. -#define SaveAs_Menu_Item $00000105
  493. -#define Page_Setup_Item $00000107
  494. -#define Print_Item $00000108
  495. -#define Window1_Item $00000109
  496. -#define Window2_Item $0000010A
  497. -#define Window3_Item $0000010B
  498. -#define Window4_Item $0000010C
  499. -#define Window5_Item $0000010D
  500. -#define Word_Wrap_Item $0000010E
  501. -#define Choose_Font_Item $0000010F
  502. -
  503. -// --- type $800E defines
  504. -
  505. -#define Text_Window $00000FFA
  506. -
  507. -// --- type $8010 defines
  508. -
  509. -#define Text_Window_wColor $00000001
  510. -
  511. -// --- type $8013 defines
  512. -
  513. -#define Tool_Startup_Table $00000001
  514. -
  515. -// --- type $8015 defines
  516. -
  517. -#define Printing_Alert $00000001
  518. -#define Tool_Error_Alert $00000002
  519. -#define Save_Alert $00000003
  520. -
  521. -// --- type $8016 defines
  522. -
  523. -#define Window_Text $00000003
  524. =texter2.pas
  525. -{$Keep 'Texter2'}
  526. -Unit Texter2;
  527. -Interface
  528. -
  529. -Uses     Common,
  530. -         ToolLocator,
  531. -         DialogMgr,
  532. -         ControlMgr,
  533. -         WindowMgr,
  534. -         QuickDrawII,
  535. -         {$LibPrefix '0/'}
  536. -         MessUnit,       {Dave Lyon's Unit for Message Center}
  537. -         MyStuff;
  538. -
  539. -type
  540. -         Document       =
  541. -              RECORD
  542. -                   index:         integer;
  543. -                   InUse:         Boolean;
  544. -                   New:           Boolean;
  545. -                   Saved:         Boolean;
  546. -                   Wrap:          boolean;
  547. -                   DocGSString:   GSOSInString;
  548. -                   DocRef:        Integer;
  549. -                   DocWindow:     GrafPortPtr;
  550. -                   WindowTitle:   Str255;
  551. -              end;
  552. -
  553. -         DocumentPtr    = ^Document;
  554. -
  555. -var      Windows:       Array[1..5] of Document;
  556. -
  557. -Procedure DoAbout;
  558. -procedure NoRun(i:integer);
  559. -Procedure DoToFront(thewind:Integer);
  560. -procedure DrawWindow;
  561. -
  562. -Implementation
  563. -
  564. -
  565. -procedure DrawWindow;
  566. -begin
  567. -DrawControls(GetPort);
  568. -end; { of DrawWindow }
  569. -
  570. -Procedure DoToFront;
  571. -begin
  572. -SelectWindow(Windows[thewind].DocWindow);
  573. -end;
  574. -
  575. -Procedure NoRun;
  576. -var    string2ptr:pStringPtr;
  577. -begin
  578. -string2ptr:=pStringPtr(cnvihs(i));
  579. -result:=TLTextMountVolume(@'Unable to run due to Tool Error #',
  580. -                          string2ptr,
  581. -                          @'Quit',
  582. -                          @'Quit');
  583. -end;
  584. -
  585. -Procedure DoAbout;
  586. -var AboutDlog,
  587. -    ApplicPort:     GrafPortPtr;
  588. -    r:             Rect;
  589. -    itemHit:       Integer;
  590. -
  591. -begin
  592. -ApplicPort:=GetPort;
  593. -   SetRect(r,20,40,320,170);
  594. -   AboutDlog :=NewModalDialog(r,true,0);
  595. -If ToolError<>0 then ErrorBox(ToolError,$1201);
  596. -   SetPort(AboutDlog);
  597. - 
  598. -   SetRect(r,230,18,290,30);
  599. -   NewDItem(AboutDlog,1,r,10,@'Ok',0,0,nil);
  600. -If ToolError<>0 then ErrorBox(ToolError,$1202);
  601. -
  602. -SetForeColor(1);
  603. -MoveTo(65,20);DrawString(@'Texter v1.1');
  604. -SetForeColor(0);
  605. -Moveto(20,35);DrawString(@'Another little Utility by:');
  606. -MoveTo(30,50);DrawString(@'Joel Sumner');
  607. -MoveTo(30,60);DrawString(@'19 Fossen Way');
  608. -MoveTo(30,70);DrawString(@'Andover, MA 01810');
  609. -MoveTo(30,80);DrawString(@'q4kx@cornella.ccs.cornell.edu');
  610. -MoveTo(30,90);DrawString(@'q4kx@CORNELLA.BITNET');
  611. - 
  612. -MoveTo(15,110);DrawString(@'Some code property of ByteWorks and');
  613. -MoveTo(25,120);DrawString(@'Apple Computer Inc. 1986-1989');
  614. -
  615. -   itemHit := ModalDialog(nil);
  616. -If ToolError<>0 then ErrorBox(ToolError,$1203);
  617. -   CloseDialog(AboutDlog);
  618. -If ToolError<>0 then ErrorBox(ToolError,$1204);
  619. -SetPort(ApplicPort);
  620. -end; { of AboutDlog }
  621. -
  622. -END.
  623. -
  624. + END OF ARCHIVE
  625.