;; Program Name: Viewfonts 2; Author: David McMinn; Last saved: 19/11/98;; !!! WARNING !!! - Does NOT work with type1.library (Posrscript fonts); DOES work with ttf.library v0.7 (true-type fonts);; Programming Requirements:; Blitz2; Blitzlibs:amigalibs.res as a resident; (must be the amigalibsii.res version); RISortLib; RIAppLib; NeilsReqToolsLib; RICommoditiesLib; 2Mb is enough to compile Blitz (using the minimum external libraries,; but probably won't be enough to run Viewfonts 2 through Blitz. Unless; you have a *very* minimal working environment.;; System Requirements for Viewfonts 2:; Amiga with WB2+; bullet.library (WB3+ only, for CG fonts); ttf.library v0.7 (only for true-type fonts); commodities.library; diskfont.library; reqtools.library v38+; PROBABLY OTHERS!!;; To do (in no order):; Localisation; Reduce executable size; Text/field colours; Font style; Font/directory information; CLI interface; AREXX interface; Shift-selected WB arguments; User selectable sample string; Colorfont colours handled properly; Comment program;А├ ; Allow program to start from WB;CloseEd ; Only used when run from Blitz 2;NoCli ; Don't do that any more, as its too big; ------------------------- CONSTANT DEFINITIONS --------------------------#HIGH_TIME = 5 ; Length of time (50ths) to highlight gadgets after keypress; * Window IDCMP flags#IDCMP = #IDCMP_NEWSIZE + #IDCMP_MOUSEMOVE + #IDCMP_RAWKEY#IDCMP =#IDCMP+ #IDCMP_GADGETDOWN + #IDCMP_GADGETUP + #IDCMP_MENUPICK#IDCMP =#IDCMP+ #IDCMP_CLOSEWINDOW + #IDCMP_INTUITICKS + #IDCMP_VANILLAKEY; * Menu and menu item IDs#MID_PROJECT = 0#MID_ABOUT = 0#MID_HIDE = 1#MID_QUIT = 3#MID_FONTS = 1#MID_SELALL = 0#MID_UNSELALL = 1#MID_READDRAW = 2#MID_COPYFONT = 3#MID_DELETFNT = 4#MID_HELP = 2#MID_HTUH = 0#MID_CONTENTS = 2#MID_USING = 3#FONTNUMS=1000 ; Able to handle 1000 sizes of 1000 fonts; --------------------------- NEWTYPE DEFINITIONS -----------------------А.env ; Holds data pertaining to the environment, i.e. *_screen._Screen ; Address of public screen *_window._Window ; Address of VF2 window *_imenus.Menu ; Address of intuition menus *_gadget.Gadget ; Pointer to start of gadget list _visual.l ; Result of visual info call execver.w ; Exec versionА АА.list ; Type for listview entries pad.w text.s ; Text to show in listviewА АА.tooltypes ; Type for holding tooltype settings popup.w ; CX_POPUP 0=no, -1=yes hotkey.s ; Commodity hotkey offline.s ; Default destination drawer drawer.s ; Default source drawer userpub.s ; Public screen name (DEFAULT, FRONT, ) iconify.w ; Hide gui method 0=icon, -1=menu helppath.s ; Path to help file, used to be set in tooltypes, now just PROGDIR:А А; ----------------------------- ERROR HANDLER ---------------------------А rt_taglist.TagItem(7) ; Array of tag items for NeilsReqToolsLibА3.env environ ; Holds data about intiotion environmentА┤ ; Error handler routine: shows requester then ends dummy=Ы("Viewfonts 2:"+▄Ж(10)+"Fatal Error","_Quit",&rt_taglist(2)) А bigerrorА А┤; ------------- GLOBAL VARIABLE DEFINITIONS DEFTYPES THEN DIMS --------------А3.w ; Set default variable typeА3.s def_fontname ; Name of screen fontА3.w def_fontsize ; Size of screen fontА3.w ww, wh, wx, wy ; Window width, height, xpos & yposА3.w min_wh ; Minimum window height (dependant on font)А3.l min_ww ; Minimum window widthА3.w wb2lvfix ; Fix for WB2 ListViewsА3.w quit_flag ; Shows when program is to exitА3.w lv_avail ; Listview for available font namesА3.w lv_sizes ; Listview for sizes of current fontА3.w lv_selec ; Listview for user selected fontsА3.w st_fname ; String for current font nameА3.w in_fsize ; Integer for current font sizeА3.w bu_selec ; Button to select fontsА3.w st_sourc ; String for source pathА3.w sh_sourc ; Shape for showing source path requestorА3.w sh_destn ; Shape for showing dest path requestorА3.w st_destn ; String for destination pathА3.w bu_copyf ; Button to copy selected fonts from source to destА3.w bu_delet ; Button to delete selected fonts from destА3.l ev ; Intuition eventsА3.l ce ; Commodity eventsА3.l cx ; Message from Exchange programА3.w modified ; Flag shows whether drawer contents changedА3.l appitem ; Address of newly created appitem (needs to be here as AddAppIcon screws ; local variable base)А3.tooltypes options ; Holds tooltype settingsА3.l AGBase ; AmigaGuide library baseА3.l AG_Context ; Handle for AmigaGuideА3.l AmigaGuideMask ; Used to check if messages have been recievedА3.NewAmigaGuide AG_NewGuide ; Holds information about how AmigaGuide will openА3.s copycmd ; A copy of the command sent to AmigaGuideА3.l AGPending ; Pointer to copy of amigaguide commandА3.s currentfont ; name of current fontА3.s temp1 ; Temporary string for during startup / anytimeА wtags.TagItem(16) ; Array to hold tags for windowА А│ available.list(#FONTNUMS) ; List of available font namesА А│ sizes.list(#FONTNUMS) ; Sizes of current fontА А│ selected.list(#FONTNUMS) ; Names of user selected fonts; REQTOOL TAGLIST;rt_taglist(0)\ti_Tag=#RT_LockWindow,╝ ; Flag to lock window and display busypointerrt_taglist(2)\ti_Tag=#RTEZ_Flags,#EZREQF_CENTERTEXT;Centres all text within requesterrt_taglist(3)\ti_Tag=#RT_ReqPos,#REQPOS_TOPLEFTSCR; Requester appears in top left of screenrt_taglist(4)\ti_Tag=#RTEZ_ReqTitle,?program ; Title of requesterrt_taglist(5)\ti_Tag=#RT_Underscore,95 ; Symbol to signal an underscore character in gadget text (_)rt_taglist(6)\ti_Tag=#TAG_END,#TAG_DONE ; Signals end of tag list; ------------------------ FUNCTIONS AND STATEMENTS -------------------------; ****************************************************************************; * Procedure Name : tooltypes; * Parameters : None; * Returns : None; * Description : Finds the tooltypes from the Viewfonts2 icon.; ****************************************************************************А tooltypes{} А options ; Get access to structure for tooltypes А3.l success ; Result of searching for tooltypes А3.DiskObject *object ; Information file for icon; * Try to load icon information and set defaults for tooltype options *object=їЕ("Viewfonts2") options\popup=-1,"ctrl lalt v","SYS:Offline","FONTS:","DEFAULT",-1; * If the icon information was loaded, check for each tooltype and then; * set the option according to tooltype string А *object<>0 success=їИ(*object\do_ToolTypes,"CX_POPUP") А success АB ▄Ш(┌$(success))="NO" А! options\popup=0 success=їИ(*object\do_ToolTypes,"CX_HOTKEY") А success АB ┌$(success)<>"" А! options\hotkey=┌$(success) success=їИ(*object\do_ToolTypes,"DEST") А success АB ┌$(success)<>"" А! options\offline=┌$(success) success=їИ(*object\do_ToolTypes,"SOURCE") А success АB ┌$(success)<>"" А! options\drawer=┌$(success) success=їИ(*object\do_ToolTypes,"PUBSCREEN") А success АB ┌$(success)<>"" А! options\userpub=┌$(success) success=їИ(*object\do_ToolTypes,"ICONIFY") А success АB ▄Ш(┌$(success))="ICON" А! options\iconify=0; * Remove the icon information from memory їЗ *object А АА А; ****************************************************************************; * Procedure Name : highlight; * Parameters : gadno.w - The ID of the gadget to highlight; * Returns : None; * Description : This statement highlights a gadget for a length (in 50ths; * of a second) of time. Only needed to be used on keypresses.; ****************************************************************************А highlight{gadno.w} ╞Ь 0,gadno,-1 ╞ 0,gadno ■ #HIGH_TIME ╞Ь 0,gadno,0 ╞ 0,gadnoА А; ****************************************************************************; * Name : findlibbase; * Parameters : libname$ - Name of library to find; * Returns : 0 for library not found, therefore you need to open it; * or address of library base; * Description : Finds the address of the library base specified by the; * name passed to the function.; ****************************************************************************А .l findlibbase{libname$} А3.ExecBase *execbase ; Pointer to exec base А3.Node *head,*ptr ; Node pointers for lists А3.l libbase ; Address of library base *execbase = ┌.l(4) ; Get address of exec base *head = *execbase\LibList\lh_Head ; Get address of head of library list *ptr = *head ; Move to head of list А (*ptr\ln_Succ <> 0 АB libbase = 0) ; While library not found memlib$ = ┌$(*ptr\ln_Name) ; Get library name from exec list А ▄Ш(memlib$) = ▄Ш(libname$) ; If same as specified library libbase = *ptr ; Remember address А А *ptr=*ptr\ln_Succ ; Move to next library А┴ А А libbase ; Return base address of libraryА А ; ****************************************************************************; * Name : getpubscreen; * Parameters : userpub$ - Name of public screen to find; * Returns : Long - Pointer to address of public screen, or 0 if no; * screen can be found.; * Description : Finds the address of the public screen specified. If the; * screen cannot be found, the default screen is used. If this; * cannot be found, the Workbench is used, or 0 will be returned; ****************************************************************************А .l getpubscreen{userpub$} А3.l pscrname ; Pointer to name of pubscreen А3._IntuitionBase *intuibase ; Pointer to intuition base А3.List *psl ; Pointer to list of pubscreens А3.PubScreenNode *psn ; Working pointer for list А3._Screen *scr ; Pointer to first intuition screen А3._Screen *myscreen ; Pointer to found public screen *intuibase=findlibbase{"intuition.library"} ; Get intuition library base А ▄Ш(userpub$)="FRONT" ; If user wants to open on front public screen *psl= ╙ ; then find out name of front public screen А *psl<>0 ; Lock public screen list *scr=*intuibase\FirstScreen ; Get address of first screen *psn=*psl\lh_Head ; Get head of list of public screens А *psn<>0 ; Traverse list of public screens А *psn\psn_Screen=*scr ; If address of public screen = address of first screen pscrname=*psn\psn_Node\ln_Name ; Store address of name of public screen А А *psn=*psn\psn_Node\ln_Succ ; Move to next public screen А┴ А А ╘ ; Unlock public screen list А" ; If user doesn't want to open on front screen; * Pointer to name of public screen is address of name string, if not DEFAULT А ▄Ш(userpub$)<>"DEFAULT" А! pscrname=&userpub$ А А *myscreen= ╤(pscrname) ; Try to lock public screen (so it cannot close) А (*myscreen=0 АB pscrname<>0) ; If could not lock screen but a name was specified (not DEFAULT) *myscreen= ╤(0) ; Try to lock default public screen А А; * If default public screen not found, try to lock the Workbench screen А *myscreen=0 А! *myscreen= ╤("Workbench"); * If a screen was locked, Poke it into the BB2 screen struct (for use with windows) А *myscreen<>0 ┌.l А╕ ╧(0),*myscreen А, ╧ 0 А А А А *myscreen ; Return address of screen lockedА А ; ****************************************************************************; * Name : gtmenus; * Parameters : newmenu.l - Address of NewMenu data; * *e.env - Pointer to environment data; * Returns : *e\_imenus will reflect the result. 0 for an error or the; * address of the intuition menu.; * Description : Sets up the GTMenus, for intuition. *e\_visual should be set; * up before calling this routine.; ****************************************************************************А gtmenus{newmenu.l,*e.env} А3.l nlm_flag ; Flag for NewLookMenus А3.l menupen ; Colour for menu text А nm_taglist.TagItem(1) ; Menus taglist А *e\execver>=39 ; Set up colours for WB3+ nlm_flag=╝ menupen=1 А А nm_taglist(0)\ti_Tag=#GTMN_FrontPen,menupen ; Set colours in taglist nm_taglist(1)\ti_Tag=#TAG_DONE,#TAG_END *e\_imenus=Ў(newmenu,&nm_taglist(0)); Create menus from newmenu struct; * If menus created, set up flag for WB3+ and get intuition to set out the menus А *e\_imenus<>0 nm_taglist(0)\ti_Tag=#GTMN_NewLookMenus,nlm_flag Ў *e\_imenus,*e\_visual,&nm_taglist(0) А АА А; ****************************************************************************; * Name : gadgets; * Parameters : *e.env - Pointer to base of environment settings; * *o.tooltypes - Pointer to the tooltype settings; * Returns : *e\_gadget will be changed to point to the start of the gadgetlist; * Description : Sets up the GadTools gadgets.; ****************************************************************************А gadgets{*e.env, *o.tooltypes} А lv_avail, lv_sizes, lv_selec, st_fname, in_fsize, bu_selec, st_sourc А sh_sourc, sh_destn, st_destn, bu_copyf, bu_delet А available(),sizes(),selected() А3.s temp_name ; Temporarily holds name of font А3.s temp_sorc ; " " source drawer А3.s temp_dest ; " " dest drawer А3.w temp_size ; " " size of font А3.l textlen ; Length of longest text А3.w gadheight ; Height of each gadget А3.w iw, ih ; Inner width and height of window А3.w xm ; Middle of window А3.w wlo, wto ; Window left and top borders gadheight=┌.w(А╕ ├(0)+4)+ 6 ; Work out height of single line gadgets; * Work out left and top window borders, and the innerwidth and innerheight of the window wlo=*e\_window\BorderLeft wto=*e\_window\BorderTop iw=*e\_window\Width - *e\_window\BorderRight - wlo ih=*e\_window\Height - *e\_window\BorderBottom - wto; * Use the screen's font А, ├ 0 ┼ 0; * Work out various dimensions for putting gadgets onto window xm = iw/2 + wlo y1=53*ih/100 y2=ih-2*gadheight-10 А y2"" ; If cancel not selected ╞Ф 0,gad_ID,temp ; Set string gadget to new directory А А -1 ; Return true А" А А 0 ; Otherwise return false А АА А ; ****************************************************************************; * Name : cleanupwin; * Parameters : *e.env - Pointer to environment settings.; * Returns : None; * Description : Closes window and frees any memory used, changes environment; * settings to reflect closed windows, screens etc.; ****************************************************************************А cleanupwin{*e.env} А *e\_imenus ; If menus exist Е *e\_window ; Remove from window Ў *e\_imenus *e\_imenus=0 А А А *e\_gadget ; If gadget list exists ╞Я 0 ; Remove from window А+ ╞Б 0 *e\_gadget=0 А А А *e\_window ; If window is open ┼< 0 ; Close window *e\_window=0 А А А *e\_visual ; If visual info for screen is still held Ў *e\_visual ; Free it *e\_visual=0 А А А *e\_screen ; If screen is still locked ╥ 0,*e\_screen ; Unlock public screen *e\_screen=0 А АА А; ****************************************************************************; * Name : hidegui; * Parameters : title.l - Title of AppMenuItem or AppIcon; * iconify.w - Place to iconify to; 0=AppIcon, 1=AppMenu; * Returns : Word - Used to determine if the program is to quit; * Description : Hides the window, sets up AppMenu/Icon and waits for a; * hotkey press or commodity event.; ****************************************************************************А .w hidegui{title.l,iconify.w} А available(),sizes(),selected(),appitem А3.l port ; Address for message port А3.l ae, ce, cx ; Variables to hold the various messages А3.w exit ; Shows when loop should be exited from А3.w quit ; Tells main loop if program should quit А3.DiskObject *object ; Icon information pointer └ available() ; Clear and reset lists └ sizes() └ selected() *object=їЕ("Viewfonts2") ; Try to get icon information port=■т ; Create a message port for all appevents А iconify=0 АB *object ; Create AppIcon if possible and requested А~.l a4,-(a7) appitem=ю(0,0,title,port,0,*object,0) А~.l (a7)+,a4 А" appitem=ю(0,0,title,port,0) ; Add an app menu item А А А╗ ■ 5 ; Big delay (might help in multi tasking) ae=■┤(port) ; get messages from our port ce=мЕ ; Get commodity messages А мГ=0 А! exit=1 ; Check hotkey cx=мЖ ; Check messages from Exchange А cx А мТ ; If 'Remove' exit=1 ; exit from iconify loop quit=1 ; set program quit flag А мР ; If 'Show Interface' exit=1 ; exit from iconify loop А мФ exit = 1 А А А╝ (ae АК exit) ; Loop until message from AppXXXX or exit flag set А iconify=0 АB *object ; Remove appropriate App object ю appitem А" ю appitem А А ■у port ; Remove message port А *object А! їЗ *object ; Free icon information if exists А А quit ; Return program quit flagА А ; ****************************************************************************; * Name : getminwidth; * Parameters : None; * Returns : Long - the minimum width of the window; * Description : Gets the minimum width of the window, without needing the; * window opened or windowfont x called.; ****************************************************************************А .l getminwidth{} А3._RastPort rp ; Rastport to use font on А3.TextFont *tf ; Pointer to font data А3.s min_string ; The string for the minimum width &rp ; Initialize a rastport *tf.TextFont=┌.l(А╕ ├(0)+8) ; Get window font textfont struct &rp, *tf ; Set font for rastport; * Return length of minimum string in pixels min_string="Available Fonts Sizes Select current font" А А (&rp,&min_string,▄П(min_string))А А ; ****************************************************************************; * Name : updatesizes; * Parameters : None; * Returns : None; * Description : Shows the correct list of sizes for any new font; ****************************************************************************А updatesizes{} А lv_sizes,in_fsize,st_sourc А available(),sizes() А3.s drawer ; Name of drawer to search for font sizes А3.l dirlock ; Pointer to a BCPL directory lock А3.l winlock ; Window lock, used with RTUnlockWindow А3.FileInfoBlock *diskfib ; Information for examined files А3.w count ; Number of items added to list А3.w temp ; Fontname as number (probably font if contains a number) А3.w found ; Used to show where in list to insert size ╞Т 0,lv_sizes ; Detach list from listview └ sizes() ; Clear list of sizes; * Sort out path to font sizes drawer=╞Ц(0,st_sourc) А ▄В(drawer,1)<>":" АB ▄В(drawer,1)<>"/" А! drawer=drawer+"/" drawer=drawer+available()\text; * Attempt to get a lock on that directory dirlock=■ (&drawer,-2) А dirlock *diskfib = ■ (#DOS_FIB,0) А *diskfib А ■ (dirlock,*diskfib) ; If the lock is successful winlock=Ы(0) ; Lock window and display busy-pointer ; Read in successive files from the directory until all files are read ; or the list is full. If a value can be obtained from the filename ; it is probably a font size, so add to the list if possible. ; Count is always increased, even if an item could not be added to the ; list when it should be (no memory etc), so that the loop will always ; quit eventually. А (■(dirlock,*diskfib)<>0 АB count<#FONTNUMS) ; If the directory entry is a file А *diskfib\fib_DirEntryType<0 temp=╝(┌$(&*diskfib\fib_FileName)) ; Get value of filename ; If value of filename is not zero then it is probably a font file, ; so set up list to be searched for correct position to insert it. А temp<>0 found = 0 └ sizes() ; While position to be inserted has not been found. А found=0 ; If there is another item in the list, go to it. А └(sizes()) ; If the new item is bigger than the size to be inserted А temp<╝(sizes()\text) found=1 ; Set flag for position found ; If there was an item before this one, i.e. new size must be inserted ; somewhere in the middle of the list А └(sizes()) ; Add new size to list and increase number of items in list А └(sizes()) А! sizes()\text = ▌Ж(temp) count = count +1 А" ; If not an item before this one, then the new font size ; must be inserted at the head of the list. Add item and ; increase number of fonts in list. А └(sizes()) А! sizes()\text = ▌Ж(temp) count = count +1 А А А А А" ; If not another item in list, then set flag to escape from loop, ; and then add an item to the (end of) the list, and increase ; number of items in list. found = temp А └(sizes()) А! sizes()\text = ▌Ж(temp) count = count +1 А А А┴ А А А А А┴ Ы 0,winlock ; Unlock window and restore pointer А А ■! #DOS_FIB,*diskfib А А А А ■ dirlock ; Unlock directory; * Attach list of size to listview and set integer gadget to first size; * in list, or 30 if a CG font ╞Т 0,lv_sizes,sizes() А └(sizes()) ╞Х 0,in_fsize,╝(sizes()\text) А" ╞Х 0,in_fsize,30 А АА А; ****************************************************************************; * Name : readdrawer; * Parameters : drawer.s - the drawer that was previously selected; * Returns : String - the drawer that was actually read; * Description : Reads the font files from a drawer and fills up the lists; ****************************************************************************А .s readdrawer{drawer.s} А lv_avail, lv_sizes, lv_selec, st_sourc, st_fname, in_fsize А available(), sizes(), selected(),currentfont А3.s prevdrawer ; Previous drawer that was read in А3.s filename ; Name of current file in directory А3.l dirlock ; DOS Lock on directory А3.l winlock ; Lock on window, for busy pointer + blocking input А3.FileInfoBlock *diskfib ; Information on current entry in directory А3.w count ; Number of items added to list ; Get name of previous drawer and new drawer from gadget prevdrawer=drawer drawer=╞Ц(0,st_sourc) ; Try to get a DOS lock on directory dirlock=■ (&drawer,-2) А dirlock *diskfib = ■ (#DOS_FIB,0) А *diskfib А ■ (dirlock,*diskfib) ; If successfully locked directory and there is something in it, ; block window from input/show busy pointer and get drawer name ready for use winlock=Ы(0) А ▄В(drawer,1)<>":" АB ▄В(drawer,1)<>"/" А! drawer=drawer+"/" ; Detach lists from listview gadgets then clear and reset lists ╞Т 0,lv_avail ╞Т 0,lv_sizes ╞Т 0,lv_selec └ available() └ sizes() └ selected() ; While there are more entries in the directory, and the list is not full ; List checking needs to be done this way, as if the item could be added, ; but there are no more entries in directory then we would need to remove ; last item in list (but we won't know which condition failed), so we ; can't blindly delete an item from the list ; Count is always increased when an item should be added to the list, ; even if it couldn't be (no memory etc), so that the loop will always ; eventually quit. А (■(dirlock,*diskfib)<>0 АB count<#FONTNUMS) count = count + 1 ; Increase number of items in list А └(available()) ; Add an item to the list А *diskfib\fib_DirEntryType<0 ; If the directory entry is a file filename=┌$(&*diskfib\fib_FileName) А ▄Ш(▄В(filename,5))=".FONT" ; ending in `.font' available()\text = ▄Р(filename,5) ; Store filename without .font extension А" └ available() ; Otherwise delete item added А А ; to list А" └ available() А А А А А┴ ; Move onto next item ; If there are any items in the list, sort them, put the first font ; into the gadget and update the list for sizes. ; Else, blank out the font and size gadgets А └(available()) ЖБ available(),А/.list,2 ╞Ф 0,st_fname,available()\text currentfont=available()\text updatesizes{} А" ╞Ф 0,st_fname,"" ╞Х 0,in_fsize,0 А А ; Attach lists to listview gadgets and leave window free for input ╞Т 0,lv_avail,available() ╞Т 0,lv_sizes,sizes() ╞Т 0,lv_selec,selected() Ы 0,winlock А А ■! #DOS_FIB,*diskfib А А А" ; If couldn't open new drawer, set to last one read drawer=prevdrawer А А ; Unlock any DOS locks that may exist and return name of drawer read ■ dirlock А А drawerА А ; ****************************************************************************; * Name : load_font; * Parameters : drawer.s - the drawer to look for the font in.; * Returns : None; * Description : Loads the font in the string gadget at the size specified; * in the integer gadget.; ****************************************************************************А load_font{drawer.s} А st_fname,in_fsize ; Gadget IDs for name and size А3.s fontname ; Name of font to load А3.w fontsize ; Size of font to load А3.l winlock ; Used in blocking input to window ; Get font name and size from gadgets, and free old font displayed fontname=╞Ц(0,st_fname) fontsize=╞Ч(0,in_fsize) А ┌.l(А╕ ├(1)) <> 0 А! А+ ├ 1 ; If there is a font name and size to load А (fontname<>"" АB fontsize>0) А fontsize>128 fontsize=128 ╞Х 0,in_fsize,fontsize А А ; Block user input while loading the font winlock=Ы(0) ├ 1,drawer+fontname+".font",fontsize Ы 0,winlock А АА А; ****************************************************************************; * Name : drawfont; * Parameters : *e.env - Address of environment descriptors.; * Returns : None; * Description : Erases the previous font, draws the new font, redraws all; * gadgets that may have been affected and draws a box for the; * font.; ****************************************************************************А drawfont{*e.env} А3.w gadheight ; Height of each gadget А3.s text ; Text to preview А3.Rectangle myrect ; Bounds of a rectangle which encloses preview А3.Region *new_region, *old_region ; Two regions, used for clipping the text to the Rectangle А3._RastPort *mycliprp ; The rastport with the clipping region set up in it А3.TextFont *myfont ; Font to be previewed А3.DrawInfo *sdi ; Screen draw info ; Height of gadgets is used in finding bounds of rectangle and text to preview gadheight=┌.w(А╕ ├(0)+4)+ 6 text = "1234 AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz" ; Work out upper and lower bounds of rectangle y1=53*(*e\_window\Height - *e\_window\BorderBottom - *e\_window\BorderTop)/100 y2=(*e\_window\Height - *e\_window\BorderBottom - *e\_window\BorderTop)-2*gadheight-10 А y20 ; Set the font in the rastport, set up rectangle and clipped rastport ┼ 1 *mycliprp = *e\_window\RPort myrect\MinX = *e\_window\BorderLeft + 4 myrect\MinY = *e\_window\BorderTop + y1 myrect\MaxX = *e\_window\Width - *e\_window\BorderRight - 4 myrect\MaxY = myrect\MinY + y2 - y1 ; Create a new region, and if successfully created, set the bounds of it (from rectangle) *new_region = R А *new_region А Q(*new_region, &myrect) ; Get screen draw info, font and old clipping region in window while installing ; new clipping region. *sdi= э(*e\_screen) *myfont = *e\_window\RPort\Font *old_region = Ї(*e\_window\WLayer, *new_region) ; ALL graphics.library COMMANDS ARE NOW CLIPPED!! ; Clear rastport to a solid colour # *mycliprp, ┌.w(*sdi\dri_Pens + А/.w * #BACKGROUNDPEN) ; Set colour of text and display it in correct position 5 *mycliprp, ┌.w(*sdi\dri_Pens + А/.w * #TEXTPEN) $ *mycliprp, myrect\MinX, (myrect\MaxY + myrect\MinY + *myfont\tf_YSize)/2 ; + *myfont\tf_Baseline/2 *mycliprp, &text, ▄П(text) ; Draw a bevelled box at the limits of the clipping region 5 *mycliprp, ┌.w(*sdi\dri_Pens + А/.w * #SHADOWPEN) $ *mycliprp, myrect\MinX, myrect\MaxY % *mycliprp, myrect\MinX, myrect\MinY % *mycliprp, myrect\MaxX, myrect\MinY 5 *mycliprp, ┌.w(*sdi\dri_Pens + А/.w * #SHINEPEN) $ *mycliprp, myrect\MaxX, myrect\MinY % *mycliprp, myrect\MaxX, myrect\MaxY % *mycliprp, myrect\MinX, myrect\MaxY ; Restore old clipping region and free the newer one. *new_region = Ї(*e\_window\WLayer, *old_region) ю *e\_screen,*sdi:*sdi=0 А А U *new_region *new_region = 0 А А А АА А; ****************************************************************************; * Name : checkforfont; * Parameters : None; * Returns : None; * Description : Checks that the font in the string gadget is actually in the; * available fonts list. Used when the user types a fontname or; * and presses return or when the select font gadget is pressed; * without return being pressed.; ****************************************************************************А .w checkforfont{} А available(),selected(),sizes() ; See descriptions at top А st_fname,currentfont,options,environ ; See descriptions at top А3.s fontname ; Name of font to find in list А3.w found ; Flag to show if found ; Get font name from gadget, move to start of list and clear flag. fontname=╞Ц(0,st_fname) └ available() found=╝ ; Go through each item in list. If the fontname is in the list, ; set the flag and put the exact case match for the font in the gadget. ; If this this is a different font from the current font, update the ; size list and load and display the font. А └(available()) А ▄Ш(available()\text)=▄Ш(fontname) found=╝ fontname=available()\text ╞Ф 0,st_fname,fontname А currentfont<>fontname updatesizes{} currentfont=fontname load_font{options\drawer}:drawfont{&environ} А А А А А┴ А А foundА А ; ****************************************************************************; * Name : selectone; * Parameters : None; * Returns : None; * Description : Adds the current font to the selected list, unless it is; * already there, in which case it is removed.; ****************************************************************************А selectone{} А available(),selected(),sizes() А lv_avail,lv_sizes,lv_selec,st_fname,in_fsize,currentfont А3.s fontname А3.w found found=checkforfont{} А found=╝ fontname=╞Ц(0,st_fname) └ selected() ╞Т 0,lv_selec found=╝ А (└(selected()) АB found=╝) А selected()\text=fontname └ selected() found=╝ А А А┴ А found=╝ А └(selected()) selected()\text=fontname А А А А ЖБ selected(),А/.list,2 ╞Т 0,lv_selec,selected() А" ╞Ф 0,st_fname,currentfont А АА А; ****************************************************************************; * Name : depthdir; * Parameters : dirname.s - Full path of directory to create; * Returns : Word - True for directory existing after call to this; * statement, false for not existing.; * Description : Recursively creates directories to any depth (or checks that; * they exist).; ****************************************************************************А .w depthdir{dirname.s} А3.w i А3.w count А ▄В(▄У(dirname,▄З("/")),1)=":" i=▄П(▄У(dirname,▄З("/"))) А" dirname=▄У(dirname,▄З("/")) i=▄П(dirname) А А ▌В "" А (▄Г(dirname,i,1)<>"/" АB i<>0); Print Mid$(dirname,i,1) i=i-1 count+1 А┴ А count>0 А depthdir{▄Б(dirname,i)} А А (╛(dirname) АК ╢Р(dirname)) А" А А 0 А А А" А А -1 А АА А ; ****************************************************************************; * Name : mycopyfile; * Parameters : source.s; * dest.s; * Returns : true for success, false for failure; * Description : Checks if the source file is there before copying because; * dumb Elmore lib CopyFile crashes big style if it can't find; * the source file; ****************************************************************************А .w mycopyfile{sourcefile$, destfile$} А3.l sourcelock А3.w retval sourcelock = ■ (&sourcefile$, #ACCESS_READ) А sourcelock retval = ╢Н(sourcefile$, destfile$) ■ lock А" retval = ╝ А А А А retvalА А ; ****************************************************************************; * Name : copyfonts; * Parameters : source.s - Full path to source directory; * dest.s - Full path of destination directory; * Returns : None; * Description : Copies the fonts (in the selected fonts list) from the source; * directory to the destination directory.; ****************************************************************************А copyfonts{source.s, dest.s} А available(),selected() А3.l winlock,dirlock А3.s file_1, file_2 А3.FileInfoBlock *diskfib А3.s fontsize,drawer А3.w found А ▄В(dest,1)<>":" АB ▄В(dest,1)<>"/" А! dest=dest+"/" А depthdir{dest} └ selected() winlock=Ы(0) *diskfib = ■ (#DOS_FIB,0) А *diskfib А └(selected()) └ available() found = ╝ А found=╝ А ▄Ш(available()\text) <> ▄Ш(selected()\text) └ available() А" found = ╝ А А А┴ file_1=source+available()\text file_2=dest+available()\text part1=mycopyfile{file_1+".font",file_2+".font"} drawer=file_1 dirlock=■ (&drawer,-2) А dirlock part1=part1 АB depthdir{file_2} А part1 А ■ (dirlock,*diskfib) А ■(dirlock,*diskfib)<>0 А *diskfib\fib_DirEntryType<0 fontsize=┌$(&*diskfib\fib_FileName) part1=part1 АB mycopyfile{file_1+"/"+fontsize,file_2+"/"+fontsize} А А А┴ А А А А А" part1=part1 АB mycopyfile{file_1+".otag",file_2+".otag"} part1=part1 АB depthdir{dest+"_bullet_outlines"} А part1 file_1=source+"_bullet_outlines/"+available()\text+".type" file_2=dest+"_bullet_outlines/"+available()\text+".type" part1=part1 АB mycopyfile{file_1,file_2} А" ╛ dest+available()\text+".otag" А А А А ■ dirlock А part1=0 А! ╛ dest+available()\text+".font" А┴ ■! #DOS_FIB,*diskfib А А Ы 0,winlock А АА А; ****************************************************************************; * Name : deletefonts; * Parameters : source.s - Full path to source directory; * Returns : None; * Description : Deletes the fonts (in the selected font list) from the; * source directory.; ****************************************************************************А deletefonts{source.s} А rt_taglist(),modified А available(),selected() А3.l winlock А3.s fontsize,drawer А3.l dirlock А3.FileInfoBlock *diskfib А ╛(source) А (└(selected()) АB Ы("Delete selected fonts."+▄Ж(10)+"Are you sure?","_Yes|_No",&rt_taglist(0))) modified=1 А ▄В(source,1)<>":" АB ▄В(source,1)<>"/" А! source=source+"/" winlock=Ы(0) *diskfib = ■ (#DOS_FIB,0) А *diskfib └ selected() А └(selected()) └ available() А (└(available()) АB available()\text <> selected()\text) А┴ ╛ source+available()\text+".font" drawer=source+available()\text dirlock=■ (&drawer,-2) А dirlock А ■ (dirlock,*diskfib) А ■(dirlock,*diskfib)<>0 А *diskfib\fib_DirEntryType<0 fontsize=┌$(&*diskfib\fib_FileName) ╛ drawer+"/"+fontsize А А А┴ А А А" ╛ source+"_bullet_outlines/"+available()\text+".type" ╛ source+available()\text+".otag" А А ■ dirlock ╛ drawer А┴ ■! #DOS_FIB,*diskfib А А Ы 0,winlock А А А АА А; ****************************************************************************; * Name : showaguide; * Parameters : filename.l - Pointer to null terminated string for name of; * file to load; * agport.l - Pointer to null terminated string for name of; * AmigaGuide's port.; * basename.l - Pointer to null terminated string (reason?); * cmd.s - Command for AmigaGuide, e.g. "LINK contents"; * pubscreen.l - Public screen that AmigaGuide is to open on.; * Returns : Word - Error return code or true for success; * Description : If AmigaGuide is already open it sends the command to it,; * but if AmigaGuide is not open, it gets opened and a copy of; * the command is taken so that it can be sent once AG opens.; *; * I'd like to thank Eddy Carroll here, as this code has been; * mangled and Blitzed from Snoopdos. And its a very poor; * immitation, as I don't use OS Wait_ loops (but in a later; * release...); ****************************************************************************А .w showaguide{filename.l,agport.l,basename.l,cmd.s,pubscreen.l} А AG_Context,AG_NewGuide,copycmd,AGPending А AGBase,AmigaGuideMask,rt_taglist() ; Make sure that amigaguide.library is open. Not sure what happens if its ; unavailable, as Blitz does lib stuff at startup, but it'll probably get ; screwed before it gets here. А AGBase=0 AGBase=■╧("amigaguide.library",34) А AGBase=0 dummy=Ы("Unable to open amigaguide.library!"+▄Ж(10)+"No help is available.","_Ok",&rt_taglist(0)) А А 0 А А А А ; If Amigaguide is already open (by us), but not on the same screen, then close it А (AG_Context АB AG_NewGuide\nag_Screen<>pubscreen) № AG_Context AG_Context=0 AmigaGuideMask=0 А А ; If Amigaguide has not been opened by us (or recently closed) А AG_Context=0 AG_NewGuide\nag_Lock = 0 ; Probably a lock on the directory of the file?? AG_NewGuide\nag_Name = filename ; Ahh, guide file to open AG_NewGuide\nag_Screen = pubscreen ; Screen to open on AG_NewGuide\nag_ClientPort = agport ; The message port we use to get signals from AG AG_NewGuide\nag_BaseName = basename ; ?? AG_NewGuide\nag_Flags = #HTF_CACHE_NODE ; ?? ; Try to open an asynchronous version of Amigeguide (runs at same time) AG_Context=№(&AG_NewGuide,0) ; If couldn't open it А AG_Context=0 dummy=Ы("Error while opening AmigaGuide!"+▄Ж(10)+"No help currently available","_Ok",&rt_taglist(0)) А А 0 А А ; Get the port signal bits and take a copy of the command we want to send it. ; The reason for this is that Amigagude will take a while to AmigaGuideMask=№(AG_Context) copycmd=cmd AGPending=©cmd А А ╝ А А № AG_Context,&cmd,0 А А ╝А А ; ****************************************************************************; * Name : cleanupaguide; * Parameters : None; * Returns : None; * Description : Resets all variables used for AmigaGuide and closes all; * resources associated with it.; *; * I'd like to thank Eddy Carroll here, as this code has been; * mangled and Blitzed from Snoopdos.; ****************************************************************************А cleanupaguide{} А AG_Context,AGBase,AmigaGuideMask ; If Amigaguide is open, close it А AG_Context № AG_Context AG_Context=0 А А ; If the amigaguide.library is open (by us), close it А AGBase ■╗ AGBase AGBase=0 А А ; Clear (Wait) signal mask, to ignore amigaguide function calls AmigaGuideMask=0А А; ****************************************************************************; * Name : handleaguidemsgs; * Parameters : None; * Returns : None; * Description : Checks the AmigaGuide messages and handles appropriately.; * (Used to send the command once AG has completed loading.); *; * I'd like to thank Eddy Carroll here, as this code has been; * mangled and Blitzed from Snoopdos.; ****************************************************************************А handleaguidemsgs{} А AG_Context, AGBase, copycmd, AGPending, rt_taglist() А3.AmigaGuideMsg *agm ; Message recieved from Amigaguide А3.w unloadhelp ; Flag to show if we need to close amigaguide А3.s error ; Error string from amigaguide ; If the amigaguide.library and amigaguide are open А (AGBase АB AG_Context) ; Get the next amigaguide message and while it exists *agm=№(AG_Context) А *agm ; Do some action based on the type of message А *agm\agm_Type А #ActiveToolID ; Amigaguide has just been loaded, so send it the previously stored command А AGPending<>0 № AG_Context,AGPending,0 AGPending=0 А А А #ToolCmdReplyID ; Command has completed, but if agm_Pri_Ret field is set, an error occured А *agm\agm_Pri_Ret ; If error is can't find file, then display error and set flag to unload amigaguide А *agm\agm_Sec_Ret=#HTERR_CANT_OPEN_DATABASE error=error+"Unable to find help file (Viewfonts2.guide)."+▄Ж(10) error=error+"If you want online help, the help file must"+▄Ж(10) error=error+"be in the same directory as the program." unloadhelp=1 А" ; Otherwise, display error from amigaguide error="AmigaGuide error:"+▄Ж(10) error=error+┌$(№(*agm\agm_Sec_Ret)) А А dummy=Ы(error,"_Ok",rt_taglist(0)) AGPending=0 А А А #ToolStatusID ; Status message, if agm_Pri_Ret field is set, an error occured А *agm\agm_Pri_Ret ; If error is can't find file, then display error and set flag to unload amigaguide А *agm\agm_Sec_Ret=#HTERR_CANT_OPEN_DATABASE error=error+"Unable to find help file (Viewfonts2.guide)."+▄Ж(10) error=error+"If you want online help, the help file must"+▄Ж(10) error=error+"be in the same directory as the program." unloadhelp=1 А" ; Otherwise, display error from amigaguide error="AmigaGuide error:"+▄Ж(10) error=error+┌$(№(*agm\agm_Sec_Ret)) А А dummy=Ы(error,"_Ok",rt_taglist(0)) AGPending=0 А А А #ShutdownMsgID ; Amigaguide has done something and wants us to close it. А *agm\agm_Pri_Ret ; If error is can't find file, then display error and set flag to unload amigaguide А *agm\agm_Sec_Ret=#HTERR_CANT_OPEN_DATABASE error=error+"Unable to find help file (Viewfonts2.guide)."+▄Ж(10) error=error+"If you want online help, the help file must"+▄Ж(10) error=error+"be in the same directory as the program." unloadhelp=1 А" ; Otherwise, display error from amigaguide error="AmigaGuide error:"+▄Ж(10) error=error+┌$(№(*agm\agm_Sec_Ret)) А А dummy=Ы(error,"_Ok",rt_taglist(0)) AGPending=0 А А А А ; Reply to that message and get next one № *agm *agm=№(AG_Context) А┴ А unloadhelp А! cleanupaguide{} А АА А; ****************************************************************************; * Name : menuhelp; * Parameters : *e.env - Viewfonts 2 environment stuff; * r.l - The eventcode returned by Intuition; * Returns : String to pass to amigaguide (MUST match a @NODE xxx in guide); * Description : Converts the text in the menus to something usable for a; * link in Amigaguide.; *; * I'd like to thank Eddy Carroll here, as the ideas have been; * mangled and Blitzed from Snoopdos.; ****************************************************************************А .s menuhelp{*e.env,r.l} А3.s copycmd ; Work out menu, item and subitem number from full number (returned by intuition) mn.b=r&$1F in.b=(r АE 5) А in <> -1 А! in=in&$3F sn.b=r АE 11 ; If anything = -1 then it was not selected when help was pressed. А in<>-1 А mn<>2 ; If menu was not Help menu, find the menu and item that caused ; help message. *mnu_ptr.Menu=*e\_imenus А i.w=1 А mn *mnu_ptr=*mnu_ptr\NextMenu А *itm_ptr.MenuItem=*mnu_ptr\_FirstItem А i=1 А in *itm_ptr=*itm_ptr\_NextItem А ; Get text from item and replace all spaces with _'s, allowing the ; resulting string to be used as a link in an Amigaguide file. *item_text.IntuiText=*itm_ptr\ItemFill copycmd=┌$(*item_text\IText) copycmd="mnu_"+▄К(copycmd," ","_") А" ; If it was help menu, then give specific help on something. А in А 0 ; How to use help copycmd="help" А 1 ; ~~~~~~~~~~~~~~~ copycmd="mnu_" А 2 ; Contents copycmd="main" А 3 ; Using Viewfonts copycmd="using" А А А А А" ; If no menu was selected when Help was pressed, show standard "usage" help copycmd="using" А А А А copycmdА А ; -------------------------- PROGRAM START -------------------------------environ\execver=рЗ ; Get version of execА environ\execver<36 А! А ; Exit if using WB1.3 or lessА Ы=0 А! А ; Check for reqtools.libraryAGBase=findlibbase{"amigaguide.library"}ЖД 0 ; Direction to sort lists into (ascending)═ 0,?gtshape_data ; Extract shape data from program code; --------------------------- GADGET IDS -----------------------------wb2lvfix=0А environ\execver<39 А! wb2lvfix=#FONTNUMS ; Needed for WB2 listviewslv_avail = 0+wb2lvfixlv_sizes = 1+wb2lvfix*2lv_selec = 2+wb2lvfix*3st_fname = 3+wb2lvfix*3in_fsize = 4+wb2lvfix*3bu_selec = 5+wb2lvfix*3st_sourc = 6+wb2lvfix*3sh_sourc = 7+wb2lvfix*3sh_destn = 8+wb2lvfix*3st_destn = 9+wb2lvfix*3bu_copyf =10+wb2lvfix*3bu_delet =11+wb2lvfix*3; ------------------------COMMODITY STUFF --------------------------------А мБ(┌$(?program),┌$(?ptit),"Manages drawers of fonts")=0; dummy=RTRequest("Viewfonts 2 already loaded","_Ok",&rt_taglist(2)) АА Аtooltypes{}options\helppath="PROGDIR:Viewfonts2.guide"А ╡ А ╡ >= 1 А ▄Ч(▄В(╡(1),5)) = ".font" temp1 = ▄Р(╡(1),5) modified = 0 А ▄Г(temp1,▄П(temp1)-modified,1) <> "/" АB ▄Г(temp1,▄П(temp1)-modified,1) <> ":" modified + 1 А┴ temp1 = ▄В(temp1, modified) options\drawer = ▄Р(╡(1),6) А ▄В(options\drawer,1) <> "/" АB ▄В(options\drawer,1) <> ":" options\drawer = ▄Р(options\drawer,1) А┴ А" temp1 = "" options\drawer = ╡(1) А А А ╝(╡(2)) > 0 А! modified = ╝(╡(2)) А АА АА мВ(0,options\hotkey)=0 dummy=Ы("Could not add hotkey","_Quit",&rt_taglist(2)) АА А; ----------------------- LOAD PREFERENCES -------------------------ww=474:wh=235:wx=70:wy=11А ╛(0,"ENV:Viewfonts.prefs") ╛ 0 ww=▄Н(▌(2)) wh=▄Н(▌(2)) wx=▄Н(▌(2)) wy=▄Н(▌(2)) ╛ 0 ╥ А Аwflags.l=#WFLG_SIZEGADGET+#WFLG_DRAGBAR+#WFLG_DEPTHGADGET+#WFLG_CLOSEGADGET+#WFLG_ACTIVATEА environ\execver>=39 А! wflags=wflags+#WFLG_NEWLOOKMENUSА environ\execver>=37 А! #IDCMP=#IDCMP+#IDCMP_MENUHELP; --------------------------- MAIN GUI LOOP ---------------------------А options\popup=0 А! quit_flag=hidegui{?program,options\iconify}А quit_flag=0 environ\_screen=getpubscreen{options\userpub} А environ\_screen=0 cleanupwin{&environ} А А А ж environ\_screen; Load screen font if possible def_fontname=┌$(environ\_screen\Font\ta_Name) def_fontsize=environ\_screen\Font\ta_YSize А ╛("FONTS:"+def_fontname)=0 def_fontname="topaz.font" А def_fontsize<>9 А! def_fontsize=8 А А ├ 0,def_fontname,def_fontsize min_ww = getminwidth{} + 72 min_wh = environ\_screen\Font\ta_YSize + 5*def_fontsize + 65 А (min_ww>environ\_screen\Width АК min_wh>environ\_screen\Height) def_fontname="topaz.font" def_fontsize=8 ├ 0,def_fontname,def_fontsize min_ww = getminwidth{} + 72 min_wh = environ\_screen\Font\ta_YSize + 5*def_fontsize + 65 А А А wwenviron\_screen\Width А! ww=environ\_screen\Width А wh>environ\_screen\Height А! wh=environ\_screen\Height А wx+ww>environ\_screen\Width А! wx=environ\_screen\Width-ww А wy+wh>environ\_screen\Height А! wy=environ\_screen\Height-wh wtags(0)\ti_Tag=#WA_PubScreen,environ\_screen wtags(1)\ti_Tag=#WA_DetailPen,0 wtags(2)\ti_Tag=#WA_BlockPen,1 wtags(3)\ti_Tag=#WA_IDCMP,#IDCMP wtags(4)\ti_Tag=#WA_Flags,wflags wtags(5)\ti_Tag=#WA_Title,?ptit wtags(6)\ti_Tag=#WA_MinWidth,min_ww wtags(7)\ti_Tag=#WA_MinHeight,min_wh wtags(8)\ti_Tag=#WA_MaxWidth,environ\_screen\Width wtags(9)\ti_Tag=#WA_MaxHeight,environ\_screen\Height wtags(10)\ti_Tag=#WA_Left,wx wtags(11)\ti_Tag=#WA_Top,wy wtags(12)\ti_Tag=#WA_Width,ww wtags(13)\ti_Tag=#WA_Height,wh wtags(14)\ti_Tag=#TAG_END,#TAG_DONE А environ\execver>=37 wtags(14)\ti_Tag=#WA_MenuHelp,╝ wtags(15)\ti_Tag=#TAG_END,#TAG_DONE А А ═ 0,1 ╗ 1,1,(┌.w(А╕ ├(0)+4)+6)/14 ┼ #IDCMP ┼E 0,wflags,┌$(?ptit)+" <"+options\hotkey+">",&wtags(0) environ\_window=┌.l(А╕ ┼(0)) ┼ 0 rt_taglist(1)\ti_Tag=#RT_Window,environ\_window environ\_visual = Ў(environ\_screen,0) gtmenus{?MENUDEF,&environ} gadgets{&environ, &options} и environ\_window,environ\_imenus options\drawer=readdrawer{options\drawer} А temp1 <> "" А! currentfont=temp1 ; If temp1 is not empty then use it as startup font ╞Ф 0,st_sourc,options\drawer ╞Ф 0,st_fname,currentfont А checkforfont{}=0 А └(available()) ╞Ф 0,st_fname,available()\text updatesizes{} А" ╞Ф 0,st_fname,"" ╞Х 0,in_fsize,0 А А currentfont=╞Ц(0,st_fname) А А А temp1 <> "" А! ╞Х 0,in_fsize,modified temp1 = "" ; Make sure this font is only used at startup modified=0 load_font{options\drawer}:drawfont{&environ} А (environ\_window АB quit_flag=0) ; Collect messages, needed to do it like this because I didn't know ; how to use Wait_, and that would mean converting everything to OS ; functions. In a future release... А╗ ■ 3 ev=┼ ce=мЕ А AmigaGuideMask А! handleaguidemsgs{} А╝ (ev АК ce) ; If hotkey is hit (when window is open) bring it to front. А мГ=0 ж environ\_screen ░ environ\_window ╟ environ\_window А А А ev А #IDCMP_NEWSIZE gadgets{&environ, &options} drawfont{&environ} А #IDCMP_GADGETUP А ┼ А lv_avail └ available() А i=0 А ┼@ └ available() А А currentfont<>available()\text ╞Ф 0,st_fname,available()\text currentfont=available()\text updatesizes{} load_font{options\drawer}:drawfont{&environ} А А А lv_sizes └ sizes() А i=0 А ┼@ └ sizes() А ╞Х 0,in_fsize,╝(sizes()\text) load_font{options\drawer}:drawfont{&environ} А lv_selec └ selected() А i=0 А ┼@ └ selected() А └ available() А (└(available()) АB available()\text<>selected()\text) А┴ А currentfont<>available()\text ╞Ф 0,st_fname,selected()\text currentfont=available()\text updatesizes{} load_font{options\drawer}:drawfont{&environ} А А А bu_selec selectone{} А st_sourc А (options\drawer<>╞Ц(0,st_sourc) АК modified=1) options\drawer=readdrawer{options\drawer} modified=0 ╞Ф 0,st_sourc,options\drawer load_font{options\drawer}:drawfont{&environ} А А А sh_sourc А getdrawer{st_sourc}=-1 А (options\drawer<>╞Ц(0,st_sourc) АК modified=1) options\drawer=readdrawer{options\drawer} modified=0 ╞Ф 0,st_sourc,options\drawer load_font{options\drawer}:drawfont{&environ} А А А А А bu_delet ╞Ф 0,st_sourc,options\drawer deletefonts{options\drawer} options\drawer=readdrawer{options\drawer} load_font{options\drawer}:drawfont{&environ} А st_fname А checkforfont{}=╝ load_font{options\drawer}:drawfont{&environ} А А А in_fsize load_font{options\drawer}:drawfont{&environ} А bu_copyf ╞Ф 0,st_sourc,options\drawer copyfonts{options\drawer,╞Ц(0,st_destn)} А st_destn А sh_destn dummy=getdrawer{st_destn} А А А #IDCMP_MENUPICK А ┼ А #MID_PROJECT А ┼ А #MID_ABOUT dummy=Ы(┌$(?ptit)+┌$(?abouttext),"_More",&rt_taglist(0)) dummy=Ы(┌$(?thnxtext),"_Ok",&rt_taglist(0)) А #MID_HIDE ww=environ\_window\Width wh=environ\_window\Height wx=environ\_window\LeftEdge wy=environ\_window\TopEdge cleanupwin{&environ} quit_flag=hidegui{?program,options\iconify} А #MID_QUIT ww=environ\_window\Width wh=environ\_window\Height wx=environ\_window\LeftEdge wy=environ\_window\TopEdge quit_flag=1 А А А #MID_FONTS А ┼ А #MID_SELALL ╞Т 0,lv_selec └ selected() └ available() А └(available()) А └(selected()) selected()\text=available()\text А А А┴ ╞Т 0,lv_selec,selected() А #MID_UNSELALL ╞Т 0,lv_selec └ selected() ╞Т 0,lv_selec,selected() А #MID_READDRAW options\drawer=readdrawer{options\drawer} ╞Ф 0,st_sourc,options\drawer load_font{options\drawer}:drawfont{&environ} А #MID_COPYFONT ╞Ф 0,st_sourc,options\drawer copyfonts{options\drawer,╞Ц(0,st_destn)} А #MID_DELETFNT ╞Ф 0,st_sourc,options\drawer deletefonts{options\drawer} options\drawer=readdrawer{options\drawer} load_font{options\drawer}:drawfont{&environ} А А А #MID_HELP А ┼ А #MID_HTUH dummy=showaguide{&options\helppath,?AG_PName,?program,"LINK help",environ\_screen} А #MID_CONTENTS dummy=showaguide{&options\helppath,?AG_PName,?program,"LINK contents",environ\_screen} А #MID_USING dummy=showaguide{&options\helppath,?AG_PName,?program,"LINK using",environ\_screen} А А А А А #IDCMP_CLOSEWINDOW ww=environ\_window\Width wh=environ\_window\Height wx=environ\_window\LeftEdge wy=environ\_window\TopEdge cleanupwin{&environ} quit_flag=hidegui{?program,options\iconify} А #IDCMP_INTUITICKS А #IDCMP_RAWKEY А ┼@=$5F ; HELP is pressed dummy=showaguide{&options\helppath,?AG_PName,?program,"LINK help",environ\_screen} А А А #IDCMP_VANILLAKEY А ▄Ш(▄Ж(┼@)) А "A"; A, available fonts ╞ 0,st_fname А "C"; C, copy fonts highlight{bu_copyf} copyfonts{options\drawer,╞Ц(0,st_destn)} А "D"; D, delete fonts highlight{bu_delet} deletefonts{options\drawer} options\drawer=readdrawer{options\drawer} load_font{options\drawer}:drawfont{&environ} А "E"; E, dest string ╞ 0,st_destn А "F"; F, select current font highlight{bu_selec} selectone{} А "I"; I, sizes ╞ 0,in_fsize А "S"; S, source string ╞ 0,st_sourc А А А #IDCMP_MENUHELP dummy=showaguide{&options\helppath,?AG_PName,?program,"LINK "+menuhelp{&environ,┼@},environ\_screen} А А cx=мЖ А cx А мР cleanupwin{&environ} А мС ww=environ\_window\Width wh=environ\_window\Height wx=environ\_window\LeftEdge wy=environ\_window\TopEdge cleanupwin{&environ} quit_flag=hidegui{?program,options\iconify} А мФ ж environ\_screen ░ environ\_window ╟ environ\_window А мТ ww=environ\_window\Width wh=environ\_window\Height wx=environ\_window\LeftEdge wy=environ\_window\TopEdge quit_flag=1 А А А┴А┴; ------------------------------ SAVE PREFS ------------------------А ╛(0,"ENVARC:Viewfonts.prefs") ╛ 0 ▌Б ▄Л(ww),▄Л(wh),▄Л(wx),▄Л(wy) ╛ 0 ╥А" dummy=Ы("Could not save prefs to ENVARC:","_Ok",&rt_taglist(2))А АА ╛(0,"ENV:Viewfonts.prefs") ╛ 0 ▌Б ▄Л(ww),▄Л(wh),▄Л(wx),▄Л(wy) ╛ 0 ╥А" dummy=Ы("Could not save prefs to ENV:","_Ok",&rt_taglist(2))А Аbigerror:cleanupwin{&environ}cleanupaguide{}└ available() ; Clear and reset lists└ sizes()└ selected()А; ---------------------------- DATA BLOCKS --------------------------А'ptit:А%.b "Viewfonts v2.02 ",169," David McMinn",0program:А%.b "Viewfonts 2",0AG_PName:А%.b "VF2_Help",0MNU0:А%.b "Project",0MNU1:А%.b "?",0,"About",0MNU2:А%.b "H",0,"Hide",0MNU3:А%.b "Q",0,"Quit",0MNU4:А%.b "Fonts",0MNU5:А%.b "S",0,"Select all",0MNU6:А%.b "U",0,"Unselect all",0MNU7:А%.b "R",0,"Read drawer",0MNU8:А%.b "C",0,"Copy fonts",0MNU9:А%.b "D",0,"Delete fonts",0MNUA:А%.b "Help",0MNUB:А%.b "How to use help",0MNUC:А%.b "Contents",0MNUD:А%.b "Using Viewfonts",0А'MENUDEFА%.b #NM_TITLE: А%.l MNU0,0 : А%.w 0: А%.l 0,#MID_PROJECTА%.b #NM_ITEM : А%.l MNU1+2,MNU1 : А%.w 0: А%.l 0,#MID_ABOUTА%.b #NM_ITEM : А%.l MNU2+2,MNU2 : А%.w 0: А%.l 0,#MID_HIDEА%.b #NM_ITEM : А%.l #NM_BARLABEL,0: А%.w 0: А%.l 0,0А%.b #NM_ITEM : А%.l MNU3+2,MNU3 : А%.w 0: А%.l 0,#MID_QUITА%.b #NM_TITLE: А%.l MNU4,0 : А%.w 0: А%.l 0,#MID_FONTSА%.b #NM_ITEM : А%.l MNU5+2,MNU5 : А%.w 0: А%.l 0,#MID_SELALLА%.b #NM_ITEM : А%.l MNU6+2,MNU6 : А%.w 0: А%.l 0,#MID_UNSELALLА%.b #NM_ITEM : А%.l MNU7+2,MNU7 : А%.w 0: А%.l 0,#MID_READDRAWА%.b #NM_ITEM : А%.l MNU8+2,MNU8 : А%.w 0: А%.l 0,#MID_COPYFONTА%.b #NM_ITEM : А%.l MNU9+2,MNU9 : А%.w 0: А%.l 0,#MID_DELETFNTА%.b #NM_TITLE: А%.l MNUA,0 : А%.w 0: А%.l 0,#MID_HELPА%.b #NM_ITEM : А%.l MNUB,0 : А%.w 0: А%.l 0,#MID_HTUHА%.b #NM_ITEM : А%.l #NM_BARLABEL,0: А%.w 0: А%.l 0,0А%.b #NM_ITEM : А%.l MNUC,0 : А%.w 0: А%.l 0,#MID_CONTENTSА%.b #NM_ITEM : А%.l MNUD,0 : А%.w 0: А%.l 0,#MID_USINGА%.b #NM_END : А%.l 0,0 : А%.w 0: А%.l 0,0А'ERR0:А%.b "Could not copy font",10,0abouttext:А%.b 10,10А%.b "Registered to everybody",10,10А%.b "Contact me at:",10,10А%.b "d.mcminn@eee.rgu.ac.uk",0thnxtext:А%.b "Thanks go to:",10,10А%.b "Acid for Blitz Basic II",10,10А%.b "Eddy Carroll for the",10А%.b "freely distributable",10А%.b "Snoopdos3 source",10,10А%.b "Peter Traskalik",10А%.b "and Mark Tiffany",10А%.b "for all their help",0version:А%.b 0,"$VER: Viewfonts v2.02 (19/11/98)",0А'gtshape_data:А* "browse.shp"