home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / apple2 / 67 < prev    next >
Encoding:
Internet Message Format  |  1991-05-11  |  39.7 KB
  1. From: jac@yoko.rutgers.edu (Jonathan A. Chandross)
  2. Newsgroups: comp.sources.apple2
  3. Subject: v001SRC048:  Texter -- text editor (GS Only) Part 02/02
  4. Message-ID: <May.10.15.47.20.1991.13866@yoko.rutgers.edu>
  5. Date: 10 May 91 19:47:21 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:48
  11. Archive-name: editor/texter/part02
  12. Architecture: ONLY_2gs
  13. Version-number: 1.1.1
  14.  
  15.  
  16. =texter.pas
  17. -{$keep 'Texter'}
  18. -{$optimize -1}
  19. -Program Texter;
  20. -
  21. -Uses     Common,
  22. -         ControlMgr,
  23. -         ResourceMgr,
  24. -         MemoryMgr,
  25. -         IntegerMath,
  26. -         DeskMgr,
  27. -         ToolLocator,
  28. -         WindowMgr,
  29. -         FontMgr,
  30. -         QuickDrawII,
  31. -         PrintMgr,
  32. -         MenuMgr,
  33. -         GSOS,
  34. -         DialogMgr,
  35. -         SFToolSet,
  36. -         TextEdit,
  37. -         {$LibPrefix '0/'}
  38. -         MessUnit,       {Dave Lyon's Unit for Message Center}
  39. -         MyStuff,
  40. -         Texter2;
  41. -
  42. -
  43. -const
  44. -    Application_Menu_Bar = 1;
  45. -         Apple_Menu = 1;
  46. -              About_Menu_Item = 256;
  47. -
  48. -         File_Menu = 2;
  49. -              New_Menu_Item   = 258;
  50. -              Open_Menu_Item  = 259;
  51. -              Close_Menu_Item = 255;
  52. -              Save_Menu_Item  = 260;
  53. -              SaveAs_Menu_Item = 261;
  54. -              Page_Setup_Item = 263;
  55. -              Print_Item      = 264;
  56. -              Quit_Menu_Item  = 257;
  57. -
  58. -         Edit_Menu = 3;
  59. -              Undo_Menu_Item  = 250;
  60. -              Cut_Menu_Item   = 251;
  61. -              Copy_Menu_Item  = 252;
  62. -              Paste_Menu_Item = 253;
  63. -              Clear_Menu_Item = 254;
  64. -
  65. -         Window_Menu = 4;
  66. -              Window1_Item = 265;
  67. -              Window2_Item = 266;
  68. -              Window3_Item = 267;
  69. -              Window4_Item = 268;
  70. -              Window5_Item = 269;
  71. -
  72. -         Goodies_Menu = 5;
  73. -              Word_Wrap_Item = 270;
  74. -              Choose_Font_Item=271;
  75. -
  76. -   Text_Window          = 4090;
  77. -   Text_Window_wColor   = 1;
  78. -   Text_Edit_Control    = 1;
  79. -   Tool_Startup_Table   = 1;
  80. -
  81. -   Printing_Alert       = 1;
  82. -   Tool_Error_Alert     = 2;
  83. -   Save_Alert           = 3;
  84. -
  85. -
  86. -
  87. -var
  88. -         MyMemoryID:    Integer;
  89. -         OldWindow:     integer;
  90. -         StartStopRef:  longint;
  91. -         Done:          Boolean;
  92. -         PrintRecHandle:PrHandle;
  93. -         theGSString:   GSOSInString;
  94. -         WindowMenuStr: String[255];
  95. -         WindowItems:   Array[1..5] of String[25];
  96. -         OpenWindows:   Integer;            {Max of 5 Open Windows}
  97. -         OPTable:       OpenOSDCB;
  98. -         WindFront:     boolean;
  99. -         FormatDlog,
  100. -         ApplicPort:    GrafPortPtr;
  101. -
  102. -
  103. -procedure DoPageSetup;
  104. -var Good,
  105. -    Dummy:boolean;
  106. -begin
  107. -dummy:=PrValidate(PrintRecHandle);
  108. -If ToolError<>0 then ErrorBox(ToolError,$1301)
  109. -    else begin
  110. -    Good:=PrStlDialog(PrintRecHandle);
  111. -    If ToolError<>0 then ErrorBox(ToolError,$1301);
  112. -    end;
  113. -end;
  114. -
  115. -
  116. -procedure DoPrintDoc;
  117. -var PrintPort,
  118. -    theWindow:     GrafPortPtr;
  119. -    LineNum,
  120. -    memsize:       longint;
  121. -    hTECtl:        TEHandle;
  122. -    Error,
  123. -    Where:         integer;
  124. -    pageRect:      rect;
  125. -    dummy:         boolean;
  126. -begin
  127. -theWindow := FrontWindow;
  128. -hTECtl := TEHandle(GetCtlHandleFromID(theWindow, Text_Edit_Control));
  129. -If ToolError<>0 then ErrorBox(ToolError,$1101);
  130. -dummy:=PrValidate(PrintRecHandle);
  131. -If PrJobDialog(PrintRecHandle)>0 then
  132. -    begin
  133. -    PrintPort:=PrOpenDoc(PrintRecHandle,nil);
  134. -    If ToolError<>0 then begin
  135. -         PrSetError(prAbort);
  136. -         Where:=2;
  137. -         end;
  138. -    pageRect := PrintRecHandle^^.prInfo.rPage;
  139. -    LineNum:=0;
  140. -    Repeat
  141. -         PrOpenPage(PrintPort,nil);
  142. -         If ToolError<>0 then begin
  143. -              PrSetError(prAbort);
  144. -              Where:=3;
  145. -              end;
  146. -         LineNum:=TEPaintText(PrintPort,LineNum,PageRect,0,hTECtl);
  147. -         If ToolError<>0 then begin
  148. -              PrSetError(prAbort);
  149. -              Where:=4;
  150. -              end;
  151. -         PrClosePage(PrintPort);
  152. -         If ToolError<>0 then begin
  153. -              PrSetError(prAbort);
  154. -              Where:=5;
  155. -              end;
  156. -    Until LineNum=-1;
  157. -    PrCloseDoc(PrintPort);
  158. -    Error:=PrError;
  159. -    If Error<>0 then
  160. -         begin
  161. -         ErrorBox(Error,$1100+Where);
  162. -         result:=AlertWindow(5,nil,pointer(Printing_Alert));
  163. -         end
  164. -       else
  165. -         PrPicFile(PrintRecHandle,nil,nil);
  166. -    end;
  167. -end;
  168. -
  169. -
  170. -Function GetAWindow(WindNum:Integer):GrafPortPtr;
  171. -var tmpWindow:     GrafPortPtr;
  172. -begin
  173. -tmpWindow:=NewWindow2(@Windows[windNum].WindowTitle,
  174. -           @Windows[windnum],
  175. -           @DrawWindow,
  176. -           nil,
  177. -           refIsResource,
  178. -           Text_Window,
  179. -           $800E);
  180. -If ToolError<>0 then ErrorBox(ToolError,$1001);
  181. -SetPort(tmpWindow);
  182. -GetAWindow:=tmpWindow;
  183. -end;
  184. -
  185. -Function MakeWindow(theWindnum:integer):Boolean;
  186. -begin
  187. -Windows[theWindNum].DocWindow:=GetAWindow(theWindNum);
  188. -if Windows[theWindNum].DocWindow<>nil then
  189. -    Begin
  190. -    With Windows[theWindNum] do begin
  191. -         MakeWindow:=true;
  192. -         If Length(WindowTitle)>15 then
  193. -           WindowItems[theWindNum]:=concat('...',
  194. -                                  copy(WindowTitle,Length(WindowTitle)-15,17),
  195. -                                  '  ')
  196. -            else
  197. -           WindowItems[theWindNum]:= WindowTitle;
  198. -         SetMItemName(@WindowItems[theWindNum],theWindNum+264);
  199. -         EnableMItem(theWindNum+264);
  200. -         CalcMenuSize(0,0,4);
  201. -         end;  {of With Windows}
  202. -    end
  203. -    else MakeWindow:=false;
  204. -end;
  205. -
  206. -Procedure SetWindArr(i:integer);
  207. -begin
  208. -Windows[i].index:=i;
  209. -Windows[i].InUse:=True;
  210. -Windows[i].Wrap:=true;
  211. -EnableMItem(Close_Menu_Item);
  212. -EnableMItem(Print_Item);
  213. -EnableMItem(Save_Menu_Item);
  214. -EnableMItem(SaveAs_Menu_Item);
  215. -EnableMItem(Page_Setup_Item);
  216. -EnableMItem(Choose_Font_Item);
  217. -EnableMItem(Word_Wrap_Item);
  218. -WindFront:=true;
  219. -end;
  220. -
  221. -Procedure DoNew;
  222. -var i,
  223. -    MyWindNum:Integer;
  224. -    OpenOK,
  225. -    Success:  Boolean;
  226. -    tempStr:  Str255;
  227. -begin
  228. -myWindNum:=0;
  229. -For i:=5 downto 1 do
  230. -    If Windows[i].InUse=False then mywindnum:=i;
  231. -if mywindnum=0 then ErrorBox(-2,$F01);
  232. -tempStr:=' Untitled ';
  233. -For I:=1 to length(tempstr) do
  234. -     Windows[mywindnum].DocGSString.thestring[i]:=tempstr[i];
  235. -Windows[mywindnum].DocGSString.size:=Length(tempstr);
  236. -Windows[myWindNum].WindowTitle:=tempstr;
  237. -Windows[mywindnum].DocRef:=0;
  238. -OpenOK:=True;
  239. -Success:=True;
  240. -If Success then OpenOK:=MakeWindow(MyWindNum);
  241. -If not OpenOK then ErrorBox(-3,$F02)
  242. -    else begin
  243. -    OpenWindows:=OpenWindows+1;
  244. -    SetWindArr(mywindnum);
  245. -    Windows[mywindnum].New:=True;
  246. -    Windows[mywindnum].Saved:=False;
  247. -    end;
  248. -If OpenWindows>4 then begin
  249. -    DisableMItem(Open_Menu_Item);
  250. -    DisableMItem(New_Menu_Item);
  251. -    end;
  252. -end; {of DoNew}
  253. -
  254. -Procedure FormDlog;
  255. -var  r:        rect;
  256. -begin
  257. -ApplicPort:=GetPort;
  258. -WaitCursor;
  259. -SetRect(r,200,40,440,65);
  260. -FormatDlog :=NewModalDialog(r,true,0);
  261. -If ToolError<>0 then ErrorBox(ToolError,$E07);
  262. -SetPort(FormatDlog);
  263. -MoveTo(10,15);DrawString(@'Please Wait. Formatting Text...');
  264. -end;
  265. -
  266. -Function ReadIt(thedocnum:integer):Boolean;
  267. -var eofparm:  eofOSDCB;
  268. -    temp:     boolean;
  269. -    TextHandle:Handle;
  270. -    readparm: readWriteOSDCB;
  271. -    TEControl:TEHandle;
  272. -
  273. -begin
  274. -FormDlog;
  275. -temp:=true;
  276. -eofparm.pcount:=2;
  277. -eofparm.refnum:=Windows[thedocnum].Docref;
  278. -GetEOFGS(eofparm);
  279. -if ToolError<>0 then begin
  280. -    ErrorBox(ToolError,$E01);
  281. -    temp:=false;
  282. -    end
  283. -  else begin
  284. -    TextHandle:=NewHandle(eofparm.eofEOF,MyMemoryID,0,pointer(0));
  285. -    If ToolError<>0 then begin
  286. -         ErrorBox(ToolError,$E02);
  287. -         temp:=False;
  288. -         end;
  289. -    end;
  290. -If Temp then
  291. -    begin
  292. -    Hlock(TextHandle);
  293. -    readparm.pcount:=4;
  294. -    readparm.refnum:=Windows[thedocnum].Docref;
  295. -    readparm.databuffer:=TextHandle^;
  296. -    readparm.requestcount:=eofparm.eofEOF;
  297. -    ReadGS(readparm);
  298. -    If ToolError<>0 then begin
  299. -         ErrorBox(ToolError,$E03);
  300. -         temp:=false;
  301. -         end;
  302. -    end;
  303. -If Temp then
  304. -    begin
  305. -    TEControl:=TEHandle(GetCtlHandleFromID(Windows[thedocnum].DocWindow,
  306. -                                  Text_Edit_Control));
  307. -    If ToolError<>0 then
  308. -         ErrorBox(ToolError,$E03);
  309. -
  310. -    TESetText(8+5, {Data is in Handle in Unformatted text block}
  311. -              teTextRef(TextHandle),
  312. -              eofparm.eofEOF,  {Should be ignored}
  313. -              $0000,
  314. -              $00000000,
  315. -              TEControl);
  316. -    If ToolError<>0 then
  317. -         ErrorBox(ToolError,$E04);
  318. -    HUnlock(TextHandle);
  319. -    If ToolError<>0 then
  320. -         ErrorBox(ToolError,$E05);
  321. -    DisposeHandle(TextHandle);
  322. -    If ToolError<>0 then ErrorBox(ToolError,$E06);
  323. -    end;
  324. -ReadIt:=temp;
  325. -InitCursor;
  326. -CloseDialog(FormatDlog);
  327. -If ToolError<>0 then ErrorBox(ToolError,$E08);
  328. -SetPort(ApplicPort);
  329. -end;
  330. -
  331. -Procedure CloseFile(theref:integer);
  332. -var CloseRec:CloseOSDCB;
  333. -begin
  334. -CloseRec.pCount:=1;
  335. -CloseRec.refNum:=theref;
  336. -CloseGS(CloseRec);
  337. -If ToolError<>0 then ErrorBox(ToolError,$1401);
  338. -end;
  339. -
  340. -Procedure OpenStartUp(theFile:Str255);
  341. -var
  342. -    i,Error:  integer;
  343. -    OpenOK,
  344. -    Success:  Boolean;
  345. -    temptext: Str255;
  346. -begin
  347. -For I:=1 to Length(thefile) do
  348. -    Windows[openWindows+1].DocGSString.thestring[i]:=thefile[i];
  349. -Windows[openWindows+1].DocGSString.size:=Length(thefile);
  350. -Windows[OpenWindows+1].WindowTitle:=concat(' ',thefile,' ');
  351. -With OPtable do begin
  352. -    pCount:=       15;
  353. -    refnum:=       0;
  354. -    pathname:=     @Windows[openWindows+1].DocGSString;
  355. -    requestAccess:=1;
  356. -    ResourceNumber:=0;
  357. -    end;
  358. -OpenGS(OPtable);
  359. -Error:=ToolError;
  360. -If (OPTable.filetype<>$04) and (OPTable.Filetype<>$B0) then Error:=-1;
  361. -Windows[OpenWindows+1].DocRef:=OPtable.refnum;
  362. -OpenOK:=True;
  363. -Success:=True;
  364. -If Error<>0 then
  365. -    begin
  366. -    ErrorBox(Error,$D01);
  367. -    Success:=False;
  368. -    end;
  369. -If Success then OpenOK:=MakeWindow(OpenWindows+1);
  370. -If not OpenOK then begin
  371. -    ErrorBox(-3,$D03);
  372. -    CloseFile(Windows[openwindows+1].DocRef);
  373. -    end
  374. -    else
  375. -    begin
  376. -    OpenWindows:=OpenWindows+1;
  377. -    SetWindArr(OpenWindows);
  378. -    Windows[OpenWindows].New:=False;
  379. -    Windows[OpenWindows].Saved:=True;
  380. -    OpenOK:=ReadIt(OpenWindows);
  381. -    CloseFile(Windows[openwindows].DocRef);
  382. -    end;
  383. -end; {of OpenStartUp}
  384. -
  385. -
  386. -Procedure OpenIt(SfRecord:ReplyRecord);
  387. -var
  388. -    i,Error,
  389. -    MyWindNum:integer;
  390. -    OpenOK,
  391. -    Success:  Boolean;
  392. -    temptext: Str255;
  393. -begin
  394. -mywindnum:=0;
  395. -For i:=5 downto 1 do
  396. -    If Windows[i].InUse=False then mywindnum:=i;
  397. -if mywindnum=0 then ErrorBox(-2,$C01);
  398. -For I:=1 to Length(SFRecord.Fullpathname) do
  399. -    Windows[mywindnum].DocGSString.thestring[i]:=SFRecord.Fullpathname[i];
  400. -Windows[mywindnum].DocGSString.size:=Length(SFRecord.Fullpathname);
  401. -Windows[myWindNum].WindowTitle:=SFRecord.Fullpathname;
  402. -With OPtable do begin
  403. -    pCount:=       15;
  404. -    refnum:=       0;
  405. -    pathname:=     @Windows[mywindnum].DocGSString;
  406. -    requestAccess:=1;
  407. -    ResourceNumber:=0;
  408. -    end;
  409. -OpenGS(OPtable);
  410. -Error:=ToolError;
  411. -Windows[mywindnum].DocRef:=OPtable.refnum;
  412. -OpenOK:=True;
  413. -Success:=True;
  414. -if Error<>0 then
  415. -    begin
  416. -    ErrorBox(Error,$C02);
  417. -    Success:=False;
  418. -    end;
  419. -If Success then OpenOK:=MakeWindow(MyWindNum);
  420. -If not OpenOK then begin
  421. -    ErrorBox(Error,$C03);
  422. -    CloseFile(Windows[mywindnum].DocRef);
  423. -    end
  424. -    else begin
  425. -    OpenWindows:=OpenWindows+1;
  426. -    SetWindArr(mywindnum);
  427. -    Windows[mywindnum].New:=False;
  428. -    Windows[mywindnum].Saved:=True;
  429. -    OpenOK:=ReadIt(mywindnum);
  430. -    CloseFile(Windows[mywindnum].DocRef);
  431. -    end;
  432. -If OpenWindows>4 then begin
  433. -    DisableMItem(Open_Menu_Item);
  434. -    DisableMItem(New_Menu_Item);
  435. -    end;
  436. -end; {of OpenIt}
  437. -
  438. -Function OpenFile(i:integer):boolean;
  439. -var OCtable:OpenOSDCB;
  440. -    error:    integer;
  441. -begin
  442. -With OCtable do begin
  443. -    pCount:=       15;
  444. -    refnum:=       0;
  445. -    pathname:=     @Windows[i].DocGSString;
  446. -    requestAccess:=3;
  447. -    ResourceNumber:=0
  448. -    end;
  449. -OpenGS(OCtable);
  450. -Error:=ToolError;
  451. -Windows[i].Docref:=OCTable.refnum;
  452. -if Error<>0 then
  453. -    begin
  454. -    ErrorBox(Error,$B01);
  455. -    OpenFile:=False;
  456. -    end
  457. -    else OpenFile:=True;
  458. -end;
  459. -
  460. -Procedure DoOpen;
  461. -var      prompt:        str255;
  462. -         replyrec:      ReplyRecord;
  463. -         TheTypeList:   TypeList;
  464. -begin
  465. -prompt := 'File to Open:';
  466. -with TheTypeList do begin
  467. -    numEntries     := 2;
  468. -    fileType[1]    := $0004;
  469. -    fileType[2]    := $00B0;
  470. -    end;
  471. -SFGetFile(100,50,@prompt,nil,@TheTypeList,replyrec);
  472. -If toolError>0 then ErrorBox(ToolError,$A01);
  473. -if not(replyrec.good=false) then OpenIt(replyRec);
  474. -end;
  475. -
  476. -Function DeleteFile(var CreateTable:CreateOSDCB):boolean;
  477. -var DPTable:  DestroyOSDCB;
  478. -    I,
  479. -    error:    Integer;
  480. -begin
  481. -DPTable.pcount:=1;
  482. -DPTable.Pathname:=CreateTable.PathName;
  483. -DestroyGS(DPTable);
  484. -If ToolError>0 then
  485. -    begin
  486. -    ErrorBox(Error,$901);
  487. -    DeleteFile:=False;
  488. -    end
  489. -else begin
  490. -    CreateGS(CreateTable);
  491. -    If ToolError>0 then begin
  492. -         ErrorBox(ToolError,$902);
  493. -         DeleteFile:=False;
  494. -         end
  495. -    else DeleteFile:=True;
  496. -    end;
  497. -end; {of DeleteFile}
  498. -
  499. -Function CreateNewFile(index:integer):Boolean;
  500. -var CPtable:  CreateOSDCB;
  501. -    i,
  502. -    error:    integer;
  503. -    prompt,
  504. -    origname: String;
  505. -    reply:    ReplyRecord;
  506. -begin
  507. -prompt:='Save conversion as:';
  508. -origname:='Untitled';
  509. -SFPutFile(100,50,@prompt,@origname,15,reply);
  510. -If ToolError> 0 then ErrorBox(ToolError,$801);
  511. -if integer(reply.good)=0 then
  512. -    CreateNewFile:=False
  513. -    else
  514. -    begin
  515. -    For I:=1 to Length(reply.fullpathname) do
  516. -         theGSString.thestring[i]:=reply.fullpathname[i];
  517. -    theGSString.size:=Length(reply.fullpathname);
  518. -    With CPtable do
  519. -         begin
  520. -         pCount:=       7;
  521. -         Pathname:=     @theGSString;
  522. -         access:=       227;
  523. -         filetype:=     4;
  524. -         auxType:=      0;
  525. -         StorageType:=  1;
  526. -         DataEOF:=      1;
  527. -         resourceEOF:=  0;
  528. -         end;
  529. -    CreateGS(CPtable);
  530. -    Error:=ToolError;
  531. -    Windows[index].DocGSString:=theGSString;
  532. -    Windows[index].WindowTitle:=reply.Fullpathname;
  533. -    CreateNewFile:=True;
  534. -    If Error>0 then begin
  535. -         If Error = 71 then CreateNewFile:=DeleteFile(CPTable)
  536. -              else begin
  537. -              ErrorBox(ToolError,$802);
  538. -              CreateNewFile:=False;
  539. -              end; {If ToolError}
  540. -         End; {If IsToolError}
  541. -    end; {of If not reply.good}
  542. -end; {of CreateNewFile}
  543. -
  544. -Function WriteDocWindow(i:integer):boolean;
  545. -var eofparm:  SetMarkOSDCB;
  546. -    writeparms:readwriteOSDCB;
  547. -    uhoh:     boolean;
  548. -    TECtlHand:TEHandle;
  549. -    TextHandle:Handle;
  550. -    length:   longint;
  551. -begin
  552. -Uhoh:=false;
  553. -with eofparm do
  554. -    begin
  555. -    pcount:=       3;
  556. -    refnum:=       Windows[i].DocRef;
  557. -    base:=         0;
  558. -    displacement:= 0;
  559. -    end;
  560. -SetEOFGS(eofParm);           {Set EOF to zero to prepare for write}
  561. -TECtlHand:=TEHandle(GetCtlHandleFromID(Windows[i].DocWindow,
  562. -                                      Text_Edit_Control));
  563. -If ToolError<>0 then ErrorBox(ToolError,$701);
  564. -TextHandle:=NewHandle(TECtlHand^^.textlength,MyMemoryID,0,pointer(0));
  565. -If ToolError<>0 then
  566. -    begin
  567. -    ErrorBox(ToolError,$702);
  568. -    uhoh:=true;
  569. -    end;
  570. -If not(uhoh) then
  571. -    begin
  572. -    HLock(TextHandle);
  573. -    length:=TEGetText(8+5, {Data to Handle in Unformatted text block}
  574. -                   TextHandle,
  575. -                   $00000000,  {ignored}
  576. -                   $0000,
  577. -                   $00000000,{No style info}
  578. -                   TECtlHand);
  579. -    If ToolError<>0 then
  580. -         begin
  581. -         ErrorBox(ToolError,$703);
  582. -         uhoh:=true;
  583. -         end;
  584. -    end;
  585. -if not(uhoh) then
  586. -    begin
  587. -    With writeparms do
  588. -         begin
  589. -         pcount:=       5;
  590. -         refnum:=       Windows[i].DocRef;
  591. -         databuffer:=   TextHandle^;
  592. -         requestcount:=length;
  593. -         cachePriority:=0;
  594. -         end;
  595. -    WriteGS(writeparms);
  596. -    If ToolError<>0 then
  597. -         begin
  598. -         ErrorBox(ToolError,$704);
  599. -         uhoh:=true;
  600. -         end;
  601. -     end;
  602. -WriteDocWindow:=not(uhoh);
  603. -HUnlock(TextHandle);
  604. -DisposeHandle(TextHandle);
  605. -end;
  606. -
  607. -Procedure DoSaveAs;
  608. -var i:        integer;
  609. -    theDocptr:DocumentPtr;
  610. -    theDoc:   Document;
  611. -    success:  boolean;
  612. -    TEControl:TEHandle;
  613. -    dirty:    byte;
  614. -begin
  615. -theDocPtr:=DocumentPtr(GetWRefCon(FrontWindow));
  616. -theDoc:=theDocPtr^;
  617. -i:=theDoc.Index;
  618. -If CreateNewFile(i) then
  619. -    begin
  620. -    if OpenFile(i) then success:=writeDocWindow(i);
  621. -    CloseFile(Windows[i].DocRef);
  622. -    end;
  623. -If Success then
  624. -    With Windows[i] do begin
  625. -         If Length(WindowTitle)>15 then
  626. -           WindowItems[i]:=concat('...',
  627. -                                  copy(WindowTitle,Length(WindowTitle)-15,17),
  628. -                                  '  ')
  629. -            else
  630. -           WindowItems[i]:= WindowTitle;
  631. -         SetWTitle(@WindowTitle,DocWindow);
  632. -         SetMItemName(@WindowItems[i],i+264);
  633. -         EnableMItem(i+264);
  634. -         CalcMenuSize(0,0,4);
  635. -         saved:=true;
  636. -         new:=false;
  637. -         TEControl:=TEHandle(GetCtlHandleFromID(DocWindow,
  638. -                                                Text_Edit_Control));
  639. -         If ToolError<>0 then ErrorBox(ToolError,$601);
  640. -         TEControl^^.ctlFlag:=TEControl^^.ctlFlag & $bf;
  641. -         end; {of with windows}
  642. -end;
  643. -
  644. -procedure DoSave;
  645. -var i:   integer;
  646. -    theDocptr:DocumentPtr;
  647. -    theDoc:   Document;
  648. -    success:  boolean;
  649. -    TEControl:TEHandle;
  650. -    dirty:    byte;
  651. -begin
  652. -theDocPtr:=DocumentPtr(GetWRefCon(FrontWindow));
  653. -theDoc:=theDocPtr^;
  654. -i:=theDoc.Index;
  655. -success:=false;
  656. -if windows[i].new then DoSaveAs
  657. -    else
  658. -    begin
  659. -    if OpenFile(i) then success:=WriteDocWindow(i);
  660. -    CloseFile(windows[i].DocRef);
  661. -    end;
  662. -If success then begin
  663. -    windows[i].saved:=true;
  664. -    TEControl:=TEHandle(GetCtlHandleFromID(Windows[i].DocWindow,
  665. -                                                Text_Edit_Control));
  666. -    If ToolError<>0 then ErrorBox(ToolError,$501);
  667. -    TEControl^^.ctlFlag:=TEControl^^.ctlFlag & $bf;
  668. -    end;
  669. -end;
  670. -
  671. -procedure ContinueClose(i:integer);
  672. -begin
  673. -CloseWindow(Windows[i].DocWindow);     {close it}
  674. -Windows[i].DocWindow := nil;
  675. -Windows[i].InUse:=False;
  676. -OpenWindows:=OpenWindows-1;
  677. -EnableMItem(Open_Menu_Item);
  678. -EnableMItem(New_Menu_Item);
  679. -WindowItems[i]:=concat('Window',cnvis(i));
  680. -SetMItemName(@WindowItems[i],i+264);
  681. -CalcMenuSize(0,0,4);
  682. -DisableMItem(264+i);
  683. -If OpenWindows=0 then
  684. -    begin
  685. -    Windfront:=false;
  686. -    DisableMItem(Close_Menu_Item);
  687. -    DisableMItem(Print_Item);
  688. -    DisableMItem(Save_Menu_Item);
  689. -    DisableMItem(SaveAs_Menu_Item);
  690. -    DisableMItem(Page_Setup_Item);
  691. -    DisableMItem(Word_Wrap_Item);
  692. -    DisableMITem(Choose_Font_Item);
  693. -    end;
  694. -end;
  695. -
  696. -procedure DoClose;
  697. -var i:        integer;
  698. -    theDocptr:DocumentPtr;
  699. -    theDoc:   Document;
  700. -    TEControl:TEHandle;
  701. -    dirty:    byte;
  702. -    button:   integer;
  703. -begin
  704. -if FrontWindow <> nil then
  705. -    begin
  706. -    if GetWKind(FrontWindow)=0 then
  707. -         begin
  708. -         theDocPtr:=DocumentPtr(GetWRefCon(FrontWindow));
  709. -         theDoc:=theDocPtr^;
  710. -         i:=theDoc.Index;
  711. -         TEControl:=TEHandle(GetCtlHandleFromID(Windows[i].DocWindow,
  712. -                                                Text_Edit_Control));
  713. -         If ToolError<>0 then ErrorBox(ToolError,$401);
  714. -         dirty:=TEControl^^.ctlFlag;
  715. -         if (dirty & $0040) <> 0 then
  716. -              Windows[i].saved:=false;
  717. -         if not (Windows[i].saved) then
  718. -              begin
  719. -              button:=AlertWindow(5,nil,pointer(Save_Alert));
  720. -              if button=2 then DoSave;
  721. -              if button>0 then ContinueClose(i);
  722. -              end
  723. -              else ContinueClose(i);
  724. -         end
  725. -    end
  726. -  else begin
  727. -  CloseNDAByWinPtr(FrontWindow);
  728. -  If ToolError<>0 then ErrorBox(ToolError,$402);
  729. -  end;
  730. -end; {DoClose}
  731. -
  732. -Procedure GoGetBuffer;
  733. -var any:      integer;
  734. -    PathPtr:  StringPtr;
  735. -    NotDone:  Boolean;
  736. -    PPtable:  PrefsOSDCB;
  737. -begin
  738. -PPtable.pcount:=1;
  739. -PPtable.preferences:=$8000;
  740. -SetSysPrefsGS(PPTable);
  741. -If ToolError<>0 then ErrorBox(ToolError,$301);
  742. -
  743. -new(PathPtr);
  744. -Any:=InitReadMc(MyMemoryID);
  745. -OpenWindows:=0;
  746. -If Any>-1 then 
  747. -    Repeat
  748. -    NotDone:=ReadNextMc(PathPtr);
  749. -    if (NotDone) and (OpenWindows<5) then OpenStartUp(PathPtr^);
  750. -    Until NotDone=False;
  751. -If OpenWindows>4 then begin
  752. -    DisableMItem(Open_Menu_Item);
  753. -    DisableMItem(New_Menu_Item);
  754. -    end;
  755. -end;
  756. -
  757. -Procedure DoChooseFont;
  758. -var i:        integer;
  759. -    theDocptr:DocumentPtr;
  760. -    theDoc:   Document;
  761. -    TECtlHand:TEHandle;
  762. -    theid:    longint;
  763. -    thestyle: TEStyle;
  764. -begin
  765. -thestyle.teFont.fid:=ChooseFont(FMGetCurFID,0);
  766. -If ToolError<>0 then ErrorBox(ToolError,$1601);
  767. -theDocPtr:=DocumentPtr(GetWRefCon(FrontWindow));
  768. -theDoc:=theDocPtr^;
  769. -i:=theDoc.Index;
  770. -TECtlHand:=TEHandle(GetCtlHandleFromID(Windows[i].DocWindow,
  771. -                                      Text_Edit_Control));
  772. -FormDlog;
  773. -If ToolError<>0 then ErrorBox(ToolError,$1602);
  774. -TESetSelection(0,TECtlHand^^.textlength,TECtlHand);
  775. -If ToolError<>0 then ErrorBox(ToolError,$1603);
  776. -TEStyleChange($62,theStyle,TECtlHand);
  777. -If ToolError<>0 then ErrorBox(ToolError,$1604);
  778. -InitCursor;
  779. -CloseDialog(FormatDlog);
  780. -If ToolError<>0 then ErrorBox(ToolError,$1605);
  781. -SetPort(ApplicPort);
  782. -end;
  783. -
  784. -Procedure ChangeWrap;
  785. -var i:        integer;
  786. -    theDocptr:DocumentPtr;
  787. -    theDoc:   Document;
  788. -    TEControl:TEHandle;
  789. -    flag:     longint;
  790. -    theruler: Handle;
  791. -begin
  792. -theDocPtr:=DocumentPtr(GetWRefCon(FrontWindow));
  793. -theDoc:=theDocPtr^;
  794. -i:=theDoc.Index;
  795. -TEControl:=TEHandle(GetCtlHandleFromID(Windows[i].DocWindow,
  796. -                                       Text_Edit_Control));
  797. -If ToolError<>0 then ErrorBox(ToolError,$1501);
  798. -FormDlog;
  799. -flag:=TEControl^^.textflags;
  800. -flag:=(flag ! $10000000);
  801. -if (flag & $10000000)=0 then begin
  802. -    Windows[i].Wrap:=True;
  803. -    CheckMItem(true,Word_Wrap_Item);
  804. -    end
  805. -    else begin
  806. -    CheckMItem(false,Word_Wrap_Item);
  807. -    Windows[i].Wrap:=False;
  808. -    end;
  809. -TEControl^^.textflags:=flag;
  810. -theRuler:=NewHandle(80,MyMemoryID,
  811. -                   attrLocked+attrFixed+attrNoCross,
  812. -                   Pointer(0));
  813. -If ToolError<>0 then ErrorBox(ToolError,$1502);
  814. -TEGetRuler(terefIsHandle,theruler,TEControl);
  815. -If ToolError<>0 then ErrorBox(ToolError,$1503)
  816. -    else begin
  817. -    TESetRuler(teRefIsHandle,theruler,TEControl);
  818. -    If ToolError<>0 then ErrorBox(ToolError,$1504);
  819. -    end;
  820. -DisposeHandle(theRuler);
  821. -InitCursor;
  822. -CloseDialog(FormatDlog);
  823. -If ToolError<>0 then ErrorBox(ToolError,$1605);
  824. -SetPort(ApplicPort);
  825. -end;
  826. -
  827. -procedure ProcessMenu(Code: longint);
  828. -var menuNum : integer;
  829. -    itemNum : integer;
  830. -begin
  831. -    menuNum := HiWord(Code);
  832. -    itemNum := LoWord(Code);
  833. - 
  834. -    case itemNum of
  835. -         {Apple Menu}
  836. -        About_Menu_Item :    DoAbout;
  837. -         {File Menu}
  838. -         New_Menu_Item:      DoNew;
  839. -         Open_Menu_Item:     DoOpen;
  840. -         Close_Menu_Item:    DoClose;
  841. -         Save_Menu_Item:     DoSave;
  842. -         SaveAs_Menu_Item:   DoSaveAs;
  843. -         Page_Setup_Item:    DoPageSetup;
  844. -         Print_Item:         DoPrintDoc;
  845. -        Quit_Menu_Item  :    Done := true;
  846. -         {Edit Menu}
  847. -         Undo_Menu_Item:;
  848. -         Cut_Menu_Item:;
  849. -         Copy_Menu_Item:;
  850. -         Paste_Menu_Item:;
  851. -         Clear_Menu_Item:;
  852. -         Window1_Item:   DoToFront(1);
  853. -         Window2_Item:   DoToFront(2);
  854. -         Window3_Item:   DoToFront(3);
  855. -         Window4_Item:   DoToFront(4);
  856. -         Window5_Item:   DoToFront(5);
  857. -         Word_Wrap_Item: ChangeWrap;
  858. -         Choose_Font_Item:DoChooseFont;
  859. -        otherwise ;
  860. -    end; {case}
  861. - 
  862. -    HiliteMenu(false,menuNum);
  863. -end;
  864. -
  865. -Procedure modifymenus(i:integer);
  866. -begin
  867. -if i=0 then
  868. -    begin          {Back to Texter windows}
  869. -    If windfront=true then
  870. -         begin
  871. -         enableMItem(Save_Menu_Item);
  872. -         enableMitem(SaveAs_Menu_Item);
  873. -         enableMItem(Page_Setup_Item);
  874. -         enableMItem(Print_Item);
  875. -         enableMItem(Choose_Font_Item);
  876. -         enableMItem(Word_Wrap_Item);
  877. -         end;
  878. -    end
  879. -    else
  880. -    begin
  881. -    If windfront=true then
  882. -         begin
  883. -         disableMItem(Save_Menu_Item);
  884. -         disableMitem(SaveAs_Menu_Item);
  885. -         disableMItem(Page_Setup_Item);
  886. -         disableMItem(Print_Item);
  887. -         disableMItem(Choose_Font_Item);
  888. -         disableMItem(Word_Wrap_Item);
  889. -         end;
  890. -    end;
  891. -end;
  892. -
  893. -procedure CheckFront;
  894. -var currwindow:    integer;
  895. -    fwind:         GrafPortPtr;
  896. -    i:             integer;
  897. -    theDocptr:     DocumentPtr;
  898. -    theDoc:        Document;
  899. -begin
  900. -fWind:=FrontWindow;
  901. -currwindow:=GetWKind(Fwind);
  902. -if currwindow<>oldwindow then
  903. -    Modifymenus(currwindow);
  904. -theDocPtr:=DocumentPtr(GetWRefCon(FWind));
  905. -theDoc:=theDocPtr^;
  906. -i:=theDoc.Index;
  907. -If Windows[i].Wrap then CheckMItem(true,Word_Wrap_Item)
  908. -    else CheckMItem(false,Word_Wrap_Item);
  909. -end;
  910. -
  911. -procedure MainEventLoop;
  912. -var Event     : EventRecord;
  913. -    EventCode : integer;
  914. -begin
  915. -    Event.TaskMask := $FFFFF;
  916. -    while not done do begin
  917. -        CheckFront;
  918. -        EventCode := TaskMaster($076E,Event);
  919. -        case EventCode of
  920. -            wInSpecial,
  921. -            wInMenuBar : ProcessMenu(Event.TaskData);
  922. -            wInContent :;
  923. -            wInGoAway  : DoClose;
  924. -            otherwise ;
  925. -        end; {case}
  926. -    end; {while}
  927. -end;
  928. -
  929. -procedure SetUpMenus;
  930. -var
  931. -    height: Integer;
  932. -
  933. -begin
  934. -SetSysBar(CtlRecHndl(NewMenubar2(refIsResource,Application_Menu_Bar, nil)));
  935. -SetMenuBar(nil);
  936. -FixAppleMenu(Apple_Menu);        { Add DAs to apple menu }
  937. -If ToolError<>0 then ErrorBox(ToolError,$201);
  938. -height := FixMenuBar;             { Set sizes of menus }
  939. -DrawMenuBar;        { and draw the menu bar! }
  940. -end; { of SetUpMenus }
  941. -
  942. -
  943. -Procedure Initialize;
  944. -begin
  945. -OldWindow:=1;
  946. -ErrStringPtr:=@ErrStringArr;
  947. -PrintRecHandle:=PrHandle(NewHandle($8C,         {Size of Printer Job Rec}
  948. -                          MyMemoryID,
  949. -                          attrnocross+attrfixed+attrlocked,
  950. -                          Pointer(0)));
  951. -If ToolError<>0 then ErrorBox(ToolError,$101);
  952. -PrDefault(PrintRecHandle);
  953. -If ToolError<>0 then ErrorBox(ToolError,$102);
  954. -Windfront:=false;
  955. -end;
  956. -
  957. -
  958. -begin
  959. -TLStartUp;
  960. -MyMemoryID := MMStartUp;
  961. -
  962. -StartStopRef := StartupTools(MyMemoryID,refIsResource,Tool_StartUp_Table);
  963. -result:=ToolError;
  964. -If result=0 then
  965. -    begin
  966. -    Initialize;
  967. -    SetUpMenus;
  968. -    GoGetBuffer;
  969. -    InitCursor;
  970. -    MainEventLoop;
  971. -    end
  972. -    else
  973. -    NoRun(result);
  974. -
  975. -ShutDownTools(refIsHandle, StartStopRef);
  976. -end.
  977. -
  978. =texter.r.src
  979. -// --------------------------------------------------------------------
  980. -// Genesys created REZ data code
  981. -// Simple Software Systems International, Inc.
  982. -// APWREZ.SCG 1.2
  983. -// --------------------------------------------------------------------
  984. -
  985. -#include "types.rez"
  986. -
  987. -// --- Control Templates
  988. -
  989. -resource rControlTemplate (Text_Edit_Control, $0000) {
  990. -       $00000001,              // ID
  991. -       {  0,  0,170,590},      // rect
  992. -       editTextControl {{
  993. -               $0000,          // flag
  994. -               $7C00,          // moreFlags
  995. -               $00000000,      // refCon
  996. -               $22280000,      // textFlags
  997. -               {65535,65535,65535,65535},  // indentRect
  998. -               $FFFFFFFF,      // vertBar
  999. -               $0000,          // vertAmount
  1000. -               $00000000,      // horzBar
  1001. -               $0000,          // horzAmount
  1002. -               $00000000,      // styleRef
  1003. -               $0015,          // textDescriptor
  1004. -               Edit_pString,  // textRef
  1005. -               $00000000,      // textLength
  1006. -               $00000000,      // maxChars
  1007. -               $00000000,      // maxLines
  1008. -               $0000,          // maxCharsPerLine
  1009. -               $0000,          // maxHeight
  1010. -               0,              // colorTableRef
  1011. -               $0000,          // drawMode
  1012. -               $00000000       // filterProcPtr
  1013. -       }};
  1014. -};
  1015. -
  1016. -// --- rPString Templates
  1017. -
  1018. -resource rPString (Apple_pString, $C018) {
  1019. -       "@"
  1020. -};
  1021. -
  1022. -resource rPString (File_pString, $C018) {
  1023. -       "  File  "
  1024. -};
  1025. -
  1026. -resource rPString (Edit_pString, $C018) {
  1027. -       "  Edit  "
  1028. -};
  1029. -
  1030. -resource rPString (Windows_pString, $C018) {
  1031. -       "  Windows  "
  1032. -};
  1033. -
  1034. -resource rPString (Goodies_pString, $C018) {
  1035. -       "  Goodies  "
  1036. -};
  1037. -
  1038. -resource rPString (Undo_pString, $C018) {
  1039. -       "Undo"
  1040. -};
  1041. -
  1042. -resource rPString (Cut_pString, $C018) {
  1043. -       "Cut"
  1044. -};
  1045. -
  1046. -resource rPString (Copy_pString, $C018) {
  1047. -       "Copy"
  1048. -};
  1049. -
  1050. -resource rPString (Paste_pString, $C018) {
  1051. -       "Paste"
  1052. -};
  1053. -
  1054. -resource rPString (Clear_pString, $C018) {
  1055. -       "Clear"
  1056. -};
  1057. -
  1058. -resource rPString (Close_pString, $C018) {
  1059. -       "Close"
  1060. -};
  1061. -
  1062. -resource rPString (About_pString, $C018) {
  1063. -       "About..."
  1064. -};
  1065. -
  1066. -resource rPString (Quit_pString, $C018) {
  1067. -       "Quit"
  1068. -};
  1069. -
  1070. -resource rPString (New_pString, $C018) {
  1071. -       "New"
  1072. -};
  1073. -
  1074. -resource rPString (Open_pString, $C018) {
  1075. -       "Open..."
  1076. -};
  1077. -
  1078. -resource rPString (Save_pString, $C018) {
  1079. -       "Save"
  1080. -};
  1081. -
  1082. -resource rPString (SaveAs_pString, $C018) {
  1083. -       "Save as..."
  1084. -};
  1085. -
  1086. -resource rPString (Page_Setup_pString, $C018) {
  1087. -       "Page Setup..."
  1088. -};
  1089. -
  1090. -resource rPString (Print_pString, $C018) {
  1091. -       "Print..."
  1092. -};
  1093. -
  1094. -resource rPString (Window1_pString, $C018) {
  1095. -       "Window1"
  1096. -};
  1097. -
  1098. -resource rPString (Window2_pString, $C018) {
  1099. -       "Window2"
  1100. -};
  1101. -
  1102. -resource rPString (Window3_pString, $C018) {
  1103. -       "Window3"
  1104. -};
  1105. -
  1106. -resource rPString (Window4_pString, $C018) {
  1107. -       "Window4"
  1108. -};
  1109. -
  1110. -resource rPString (Window5_pString, $C018) {
  1111. -       "Window5"
  1112. -};
  1113. -
  1114. -resource rPString (Word_Wrap_pString, $C018) {
  1115. -       "Word Wrap On"
  1116. -};
  1117. -
  1118. -resource rPString (Choose_Font_pString, $C018) {
  1119. -       "Choose Font"
  1120. -};
  1121. -
  1122. -resource rPString (Text_Window_Title, $0000) {
  1123. -       " Title "
  1124. -};
  1125. -
  1126. -// --- Menu Bar Definitions
  1127. -
  1128. -resource rMenuBar (Application_Menu_Bar, $C018) {
  1129. -       {
  1130. -       Apple_Menu,
  1131. -       File_Menu,
  1132. -       Edit_Menu,
  1133. -       Window_Menu,
  1134. -       Goodies_Menu
  1135. -       };
  1136. -};
  1137. -
  1138. -// --- Menu Definitions
  1139. -
  1140. -resource rMenu (Apple_Menu, $C018) {
  1141. -       $0001,                  // menuID
  1142. -       $A008,                  // menuFlag
  1143. -       Apple_pString, {        // menuTitleRef
  1144. -               About_Menu_Item
  1145. -       };
  1146. -};
  1147. -
  1148. -resource rMenu (File_Menu, $C018) {
  1149. -       $0002,                  // menuID
  1150. -       $A008,                  // menuFlag
  1151. -       File_pString, {        // menuTitleRef
  1152. -               New_Menu_Item,
  1153. -               Open_Menu_Item,
  1154. -               Close_Menu_Item,
  1155. -               Save_Menu_Item,
  1156. -               SaveAs_Menu_Item,
  1157. -               Page_Setup_Item,
  1158. -               Print_Item,
  1159. -               Quit_Menu_Item
  1160. -       };
  1161. -};
  1162. -
  1163. -resource rMenu (Edit_Menu, $C018) {
  1164. -       $0003,                  // menuID
  1165. -       $A008,                  // menuFlag
  1166. -       Edit_pString, {        // menuTitleRef
  1167. -               Undo_Menu_Item,
  1168. -               Cut_Menu_Item,
  1169. -               Copy_Menu_Item,
  1170. -               Paste_Menu_Item,
  1171. -               Clear_Menu_Item
  1172. -       };
  1173. -};
  1174. -
  1175. -resource rMenu (Window_Menu, $C018) {
  1176. -       $0004,                  // menuID
  1177. -       $A008,                  // menuFlag
  1178. -       Windows_pString, {        // menuTitleRef
  1179. -               Window1_Item,
  1180. -               Window2_Item,
  1181. -               Window3_Item,
  1182. -               Window4_Item,
  1183. -               Window5_Item
  1184. -       };
  1185. -};
  1186. -
  1187. -resource rMenu (Goodies_Menu, $C018) {
  1188. -       $0005,                  // menuID
  1189. -       $A008,                  // menuFlag
  1190. -       Goodies_pString, {        // menuTitleRef
  1191. -               Word_Wrap_Item,
  1192. -               Choose_Font_Item
  1193. -       };
  1194. -};
  1195. -
  1196. -// --- Menu Item Definitions
  1197. -
  1198. -resource rMenuItem (Undo_Menu_Item, $C018) {
  1199. -       $00FA,                  // itemID
  1200. -       "Z","z",                // itemChar, itemAltChar
  1201. -       NIL,                    // itemCheck
  1202. -       $8040,                  // itemFlag
  1203. -       Undo_pString           // itemTitleRef
  1204. -};
  1205. -
  1206. -resource rMenuItem (Cut_Menu_Item, $C018) {
  1207. -       $00FB,                  // itemID
  1208. -       "X","x",                // itemChar, itemAltChar
  1209. -       NIL,                    // itemCheck
  1210. -       $8000,                  // itemFlag
  1211. -       Cut_pString           // itemTitleRef
  1212. -};
  1213. -
  1214. -resource rMenuItem (Copy_Menu_Item, $C018) {
  1215. -       $00FC,                  // itemID
  1216. -       "C","c",                // itemChar, itemAltChar
  1217. -       NIL,                    // itemCheck
  1218. -       $8000,                  // itemFlag
  1219. -       Copy_pString           // itemTitleRef
  1220. -};
  1221. -
  1222. -resource rMenuItem (Paste_Menu_Item, $C018) {
  1223. -       $00FD,                  // itemID
  1224. -       "V","v",                // itemChar, itemAltChar
  1225. -       NIL,                    // itemCheck
  1226. -       $8000,                  // itemFlag
  1227. -       Paste_pString           // itemTitleRef
  1228. -};
  1229. -
  1230. -resource rMenuItem (Clear_Menu_Item, $C018) {
  1231. -       $00FE,                  // itemID
  1232. -       "","",                  // itemChar, itemAltChar
  1233. -       NIL,                    // itemCheck
  1234. -       $8000,                  // itemFlag
  1235. -       Clear_pString           // itemTitleRef
  1236. -};
  1237. -
  1238. -resource rMenuItem (Close_Menu_Item, $C018) {
  1239. -       $00FF,                  // itemID
  1240. -       "W","w",                // itemChar, itemAltChar
  1241. -       NIL,                    // itemCheck
  1242. -       $8080,                  // itemFlag
  1243. -       Close_pString           // itemTitleRef
  1244. -};
  1245. -
  1246. -resource rMenuItem (About_Menu_Item, $0018) {
  1247. -       $0100,                  // itemID
  1248. -       "","",                  // itemChar, itemAltChar
  1249. -       NIL,                    // itemCheck
  1250. -       $8040,                  // itemFlag
  1251. -       About_pString           // itemTitleRef
  1252. -};
  1253. -
  1254. -resource rMenuItem (Quit_Menu_Item, $0018) {
  1255. -       $0101,                  // itemID
  1256. -       "Q","q",                // itemChar, itemAltChar
  1257. -       NIL,                    // itemCheck
  1258. -       $8000,                  // itemFlag
  1259. -       Quit_pString           // itemTitleRef
  1260. -};
  1261. -
  1262. -resource rMenuItem (New_Menu_Item, $C018) {
  1263. -       $0102,                  // itemID
  1264. -       "N","n",                // itemChar, itemAltChar
  1265. -       NIL,                    // itemCheck
  1266. -       $8000,                  // itemFlag
  1267. -       New_pString           // itemTitleRef
  1268. -};
  1269. -
  1270. -resource rMenuItem (Open_Menu_Item, $0018) {
  1271. -       $0103,                  // itemID
  1272. -       "O","o",                // itemChar, itemAltChar
  1273. -       NIL,                    // itemCheck
  1274. -       $8040,                  // itemFlag
  1275. -       Open_pString           // itemTitleRef
  1276. -};
  1277. -
  1278. -resource rMenuItem (Save_Menu_Item, $C018) {
  1279. -       $0104,                  // itemID
  1280. -       "S","s",                // itemChar, itemAltChar
  1281. -       NIL,                    // itemCheck
  1282. -       $8080,                  // itemFlag
  1283. -       Save_pString           // itemTitleRef
  1284. -};
  1285. -
  1286. -resource rMenuItem (SaveAs_Menu_Item, $C018) {
  1287. -       $0105,                  // itemID
  1288. -       "","",                  // itemChar, itemAltChar
  1289. -       NIL,                    // itemCheck
  1290. -       $80C0,                  // itemFlag
  1291. -       SaveAs_pString           // itemTitleRef
  1292. -};
  1293. -
  1294. -resource rMenuItem (Page_Setup_Item, $0018) {
  1295. -       $0107,                  // itemID
  1296. -       "","",                  // itemChar, itemAltChar
  1297. -       NIL,                    // itemCheck
  1298. -       $8080,                  // itemFlag
  1299. -       Page_Setup_pString           // itemTitleRef
  1300. -};
  1301. -
  1302. -resource rMenuItem (Print_Item, $C018) {
  1303. -       $0108,                  // itemID
  1304. -       "P","p",                // itemChar, itemAltChar
  1305. -       NIL,                    // itemCheck
  1306. -       $80C0,                  // itemFlag
  1307. -       Print_pString           // itemTitleRef
  1308. -};
  1309. -
  1310. -resource rMenuItem (Window1_Item, $C018) {
  1311. -       $0109,                  // itemID
  1312. -       "","",                  // itemChar, itemAltChar
  1313. -       NIL,                    // itemCheck
  1314. -       $8080,                  // itemFlag
  1315. -       Window1_pString           // itemTitleRef
  1316. -};
  1317. -
  1318. -resource rMenuItem (Window2_Item, $C018) {
  1319. -       $010A,                  // itemID
  1320. -       "","",                  // itemChar, itemAltChar
  1321. -       NIL,                    // itemCheck
  1322. -       $8080,                  // itemFlag
  1323. -       Window2_pString           // itemTitleRef
  1324. -};
  1325. -
  1326. -resource rMenuItem (Window3_Item, $C018) {
  1327. -       $010B,                  // itemID
  1328. -       "","",                  // itemChar, itemAltChar
  1329. -       NIL,                    // itemCheck
  1330. -       $8080,                  // itemFlag
  1331. -       Window3_pString           // itemTitleRef
  1332. -};
  1333. -
  1334. -resource rMenuItem (Window4_Item, $C018) {
  1335. -       $010C,                  // itemID
  1336. -       "","",                  // itemChar, itemAltChar
  1337. -       NIL,                    // itemCheck
  1338. -       $8080,                  // itemFlag
  1339. -       Window4_pString           // itemTitleRef
  1340. -};
  1341. -
  1342. -resource rMenuItem (Window5_Item, $C018) {
  1343. -       $010D,                  // itemID
  1344. -       "","",                  // itemChar, itemAltChar
  1345. -       NIL,                    // itemCheck
  1346. -       $8080,                  // itemFlag
  1347. -       Window5_pString           // itemTitleRef
  1348. -};
  1349. -
  1350. -resource rMenuItem (Word_Wrap_Item, $C018) {
  1351. -       $010E,                  // itemID
  1352. -       "","",                  // itemChar, itemAltChar
  1353. -       $0012,                  // itemCheck
  1354. -       $8080,                  // itemFlag
  1355. -       Word_Wrap_pString           // itemTitleRef
  1356. -};
  1357. -
  1358. -resource rMenuItem (Choose_Font_Item, $C018) {
  1359. -       $010F,                  // itemID
  1360. -       "F","f",                // itemChar, itemAltChar
  1361. -       NIL,                    // itemCheck
  1362. -       $8080,                  // itemFlag
  1363. -       Choose_Font_pString           // itemTitleRef
  1364. -};
  1365. -
  1366. -// --- Window Templates
  1367. -
  1368. -resource rWindParam1 (Text_Window, $0000) {
  1369. -       $C1A0,                  // plFrame (frame bits)
  1370. -       Text_Window_Title,          // plTitle (title ID)
  1371. -       $00000000,              // plRefCon
  1372. -       {  0,  0,  0,  0},      // plZoomRect
  1373. -       Text_Window_wColor,        // plColorTable
  1374. -       {$0000, $0000},         // plYOrigin, plXOrigin
  1375. -       {$0000, $0000},         // plDataHeight, plDataWidth
  1376. -       {$0000, $0000},         // plMaxHeight, plMaxWidth
  1377. -       {$0000, $0000},         // plVerScroll, plHorScroll
  1378. -       {$0000, $0000},         // plVerPage, plHorPage
  1379. -       $00000000,              // plInfoText (info RefCon)
  1380. -       $0000,                  // plInfoHeight
  1381. -       { 27, 24,197,614},      // plPosition
  1382. -       infront,                // plPlane
  1383. -       Text_Edit_Control,        // plControlList
  1384. -       $0A02                   // plInDesc
  1385. -};
  1386. -
  1387. -// --- Window Color Templates
  1388. -
  1389. -resource rWindColor (Text_Window_wColor, $0000) {
  1390. -       $0000,                  // frameColor
  1391. -       $0F00,                  // titleColor
  1392. -       $0207,                  // tBarColor
  1393. -       $F0FF,                  // growColor
  1394. -       $F0F0                   // infoColor
  1395. -};
  1396. -
  1397. -// --- Tool Startup Table Templates
  1398. -
  1399. -resource rToolStartup (Tool_Startup_Table, $0000) {
  1400. -       $C080, {                // videoMode
  1401. -                3, $0300,      // Miscellaneous Tools 
  1402. -                4, $0301,      // QuickDraw II 
  1403. -                5, $0302,      // Desk Manager 
  1404. -                6, $0300,      // Event Manager 
  1405. -               11, $0200,      // Integer Math 
  1406. -               14, $0301,      // Window Manager 
  1407. -               15, $0301,      // Menu Manager 
  1408. -               16, $0301,      // Control Manager 
  1409. -               18, $0301,      // QuickDraw II Aux. 
  1410. -               19, $0300,      // Print Manager 
  1411. -               20, $0301,      // LineEdit Tools 
  1412. -               21, $0301,      // Dialog Manager 
  1413. -               22, $0300,      // Scrap Manager 
  1414. -               23, $0301,      // Standard File Tools 
  1415. -               27, $0301,      // Font Manager 
  1416. -               28, $0301,      // List Manager 
  1417. -               30, $0100,      // Resource Manager 
  1418. -               34, $0101       // TextEdit Manager 
  1419. -       }
  1420. -};
  1421. -
  1422. -// --- rAlertString Templates
  1423. -
  1424. -resource rAlertString (Printing_Alert, $0000) {
  1425. -       "53~A Printing Error Has Occurred!~^#6"
  1426. -       "\$00"
  1427. -};
  1428. -
  1429. -resource rAlertString (Tool_Error_Alert, $0000) {
  1430. -       "54~Tool Error *0 Has Occurred at *1!~^#6"
  1431. -       "\$00"
  1432. -};
  1433. -
  1434. -resource rAlertString (Save_Alert, $0000) {
  1435. -       "23~"
  1436. -       "\$0D"
  1437. -       " Save Changes?~#1~#3~^#2"
  1438. -       "\$00"
  1439. -};
  1440. -
  1441. -// --- rText Templates
  1442. -
  1443. -resource rText (Window_Text, $0000) {
  1444. -       " "
  1445. -};
  1446. -
  1447. + END OF ARCHIVE
  1448.