home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / FREDV19A.LHA / FrexxEd / fpl / TextMode.FPL < prev    next >
Encoding:
Text File  |  1995-07-21  |  1.0 KB  |  31 lines
  1. // $Id: TextMode.FPL 1.4 1995/07/21 10:40:47 jskov Exp $
  2. // $VER: TextMode.FPL 1.0 (15.06.95) © Jesper Skov
  3.  
  4. //»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» TextModePrefs() ««
  5. void export TextModePrefs()
  6. {
  7.   PromptInfo(-1,"Text mode preferences",-1,-1,
  8.    "Text_tab_size"
  9.    );
  10. }
  11.  
  12. //»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» TextModeInit() ««
  13. export void TextModeInit()
  14. {
  15.   SetInfo(-1,"tab_size",ReadInfo("Text_tab_size"));
  16. }
  17.  
  18. //»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» TextMode Settings ««
  19. ConstructInfo("Text_tab_size","","","WHGI","",0,999,8);
  20.  
  21. ConstructInfo("text_mode", "","", "LBH","", 0,0,0);
  22. ConstructInfo("text_mode_ext", "","", "GSHW","", 0,0,"*txt*readme*");
  23. ConstructInfo("text_mode_exe", "","", "GSHW","", 0,0,"TextModeInit();");
  24.  
  25. AddMode(1, "text_mode", "text_mode_ext", "text_mode_exe");
  26.  
  27. //»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» Prefs menu ««
  28. MenuAdd("s", "TextMode...", "TextModePrefs();", "", 6,6,-1); // Add to PackageSettings
  29. MenuBuild();
  30.  
  31.