TweetFollow Us on Twitter

Font Dialog
Volume Number:4
Issue Number:7
Column Tag:Assembly Language Lab

Font Dialog Box Using List Manager

By Ray A. Cameron, Brunswick, Victoria, Australia

Ray. A. Cameron is an Electrical Engineer from Brunswick, Victoria in Australia, employed by Telecom, the Australian Telecommunication Commission. He is currently involved in the introduction of optical fibre into the Customer Access Network. This is his first article for MacTutor.

MacTutor Down Under

Before I start writing about my routines l’d like to say how fantastic MacTutor is for the service that it is providing to Mac programmers in disseminating programming ideas and techniques. It doesn’t matter which language we program in, it is possible to gain information from every article published in MacTutor.

Something that I know would be beneficial to all readers of MacTutor is if the writers of articles include in their description not only how the program works (as published) but what problems they have encountered along the way or techniques thay have employed and why. Also any idiosyncrasies in the system software that don’t appear to be fully explained in Inside Macintosh.

What This Program Does

The FontDialog routine displays a Modal Dialog box for the user to select a font name, size and style. The routine is designed to be incorporated into a program, as I have done with the “Window” example (distributed with the old MDS software and included here), which is on this month’s source disk. There are two routines that I have written, the first routine (SetupFontMap) creates a record of all the ‘FONT’ resources available to the user in the system file. It doesn’t look for ‘FOND’ or ‘NFNT’ resources or fonts attached to documents. The next routine (FontDialog) creates a Modal Dialog box (Fig 1) so that the user can choose a font name, size and style. The font name and size lists are created with the List Manager from data stored in the FontMap record. The routine also includes a UserFilter with the Modal Dialog to handle events.

Some of the procedures and functions used in the FontDialog routine take up a number of lines and are used often so l’ve converted them into Macros to save space. I won’t describe the Macro file as it should be self explanatory.

Fig. 1 Our Font Dialog Box selects text, size & style

User Interface

The Dialog box presented in this example is similar to the one in Microsoft Word. Now that we can all use nested menus to select font, size and style, you might want to be old fashioned and go back to a text dialog box instead! You can select a font name by either clicking on a font name or by typing a character to select the first name starting with that character (or the first name to follow in alphabetical order). As you continue to type additional characters (up to 31) any file that matches the characters you type is found and selected. If you pause while typing, the next character is considered to be a new request, rather than a continuation of your first request. The Delay Until Repeat setting which you set in the (Control Panel) determines how long you can pause before additional characters are considered to be a new request. Hence our dialog box is fairly intelligent in that it includes a sort and search routine and uses the list manager, useful techniques for a variety of dialog functions.

The Font Size Selection Window displays the sizes that are currently available on the system (for the selected font name). If no font name is selected then the Font Size Selection Window is blank, this doesn’t affect the font size in the textedit window. A font size can be selected by clicking on the desired size or by typing in the font size. Numbers and the ‘back space’ character are assumed to be an input to alter the font size, whilst all other characters (except ‘cr’ & ‘enter’) are used to find a matching font name. The font style has been separated into two sections, ‘spacing’ (condense and extend) and ‘style’ (outline, bold, etc). When the dialog box is first displayed the radio buttons and check boxes reflect the current settings. If their settings are altered it is possible to reset them to their original values by clicking on the group title concerned (either ‘spacing’ or ‘style’). The settings are only reset if the mouse is released inside the title. To indicate that the mouse is inside the title the thickness of the frame around the group doubles. This type of facility (interface) lends itself to having the groups set to normal or plain if a double click occurs in the title, something which I haven’t implemented here.

At the bottom of the dialog box is displayed some (sample) text showing the affect of the selected settings. The sample text will only be displayed if the current settings of font name and size are valid. A valid font size can be from 4 to 127, normal quickdraw limitations.

If the Ok button is selected or the ‘cr’ or ‘enter’ keys are pressed while the current settings are invalid an alert box is displayed indicating which setting isn’t valid.

Fig. 2 After text selection, our sample text window allows typing in the chosen font & style

FontMap

To produce the dialog box I require the names of the available fonts on the system as well as the sizes available for each font. The idea of a font menu with a range of font sizes on it (ie MacWrite) is relatively easy, all that is required is to test if the selected font has a desired size. If it does then the size is shown in outlined style, whilst if it doesn’t its style is plain. To find every size available on the system for a particular font name is a little harder. I decided to produce a relocatable block which would contain the names of all the fonts (in alphabetical order) and the sizes of each font (in numerical order). Doing this reduces the amount of time required to set-up the Font Name and Font Size Selection Windows. Note that even some commercial software doesn’t bother to alphabetize font lists! A graphical representation of the FontMap is shown in Fig 3. The first (word) field contains the number of different fonts minus one. Then there are font references, one reference (of three words) for each font. The first field is the font number, the next is the offset to the font name and the last is the offset to the font size list. Both offsets are from the start of the FontMap. The font references are sorted into the alphabetical order of the font names. The space allocated for each font name is the smallest number of even bytes that the name will fit in. The font sizes for each font are sorted into their numerical order within each font size list. The first word of the font size list is the number of font sizes in the list, then follows the font sizes, one word per font size. The handle to the Map is stored for access by the FontDialog routine and could be used to prepare the font sizes in a menu. By having the names and sizes sorted within FontMap it means that when they are placed into a list their cell position relates to their position in the FontMap.

Fig. 3 Layout of our custom font map structure

Apple have laid down in their user interface guidelines that font sizes that exist on a system be represented in some way, as in outlining in a menu etc. With the new font family resources (‘FOND’s & ‘NFNT’s) it is possible to have a font that already has a style attribute associated with it, like Geneva Shadow. How are these fonts to be represented so that the user can tell them apart from a plain font size? The text sample is one solution and perhaps there are others.

Creating the Font Map

The SetupFontMap routine is called at the start of a program so that the FontMap can be used to set up the font size menu items. The routine, first of all evaluates what size to make the Map (relocatable block). It examines each ‘FONT’ resource on the system and determines if the resource contains a font name or a font size. If the resource is a font name, the font (resource) ID and the pointer to the name are stored on the stack. If the resource is a font size, the font (resource) ID is stored in a non-relocatable block (SizeBlock). As each resource is examined, a running total is kept of how large to make the FontMap and how many different fonts there are. The FontMap is created and the number of font names minus one is loaded into the first field. The font ID’s and name pointers are loaded into the font references from the stack. The font references are then sorted into the alphabetical order of the font names. The font names are then loaded into the Map, disposing of their original non-reloctable block in the process and replacing the name pointer with an offset. SetupFontMap then goes through SizeBlock and loads in all the font sizes associated with the first font. The sizes are then sorted into numerical order. SetupFontMap then continues until all fonts have their sizes loaded and sorted. All temporary blocks are disposed of as the routine is finished with them. The FontMap is then unlocked and control returns to the main program.

This routine should be rewritten so that it examines the font resources (‘FOND ‘, ‘FONT’ and ‘NFNT’) and the font resources associated with a document. It should also be recalled each time a new document is accessed in case there is a new font resource associated with it. But that’s a task l’ll leave for you. [Note that Apple discourages the use of fonts within documents now. -Ed]

Font Dialog Mechanics

The FontDialog routine would generally be accessed by the selection of a menu item. The items associated with a dialog are stored in an item list which contains the item type, whether it’s enabled or not and a pointer to the routine that will draw the item, as well as other variables. The order of the items in the list is very important (as I found out). The items are drawn and accessed in the order that they appear in the item list. If items overlap, the item highest in the list (lowest item number) takes precedent. I wanted to set up the ‘spacing’ and ‘style’ groups as shown in Fig 1 so that if I clicked on either the title or a control, the program returned from the ModalDialog trap. At this stage of writing the program I wasn’t using a UserFilter so I had to create routines to draw the bold frame around the Ok button and thin frames around the control groups. The problem arose when I wanted to draw the frame and the group title so that the frame wasn’t drawn through the title (as per Fig 1). If the frame is drawn then the title, the routine that draws the title erases a section of the frame where the title goes. To do this the useritem would have to have a lower item number than the title. The useritem that represented the frame was disabled so I thought that the other items that were enabled wouldn’t be affected by it. Wrong! By placing the useritem higher in the item list than the other items I had made all the lower items except for the top half of the title effectively invisible/disabled. To get around this problem (before I used a UserFilter) I placed the useritem lower in the item list and wrote a subroutine similar to TrackHeading. The routine created a region consisting of the useritem rect minus the group title rect, and made it the clipping region, it then drew a frame around the useritem rect and reset the clipping region. For details on regions and clipping check Chris Derossi’s article on “Quickdraw Does Regions!” (Pascal Procedures) in MacTutor Vol 1 No 3, February 1985. When a User Filter is used, the programmer isn’t confined to accessing the dialog items in their order, which simplifies the drawing of the items.

The FontDialog routine creates a non-relocatable block into which it stores all its variables. This was done so that memory is allocated only when the routine is called. It allows the main program to check to see if there is enough spare memory before the routine is called, or the routine could become a separate code segment that isn’t loaded into memory until it’s needed. The routine takes copies of the font number, size and face (style) that are passed to it so that these can be altered without affecting the original values, in case the user decides to cancel the dialog. The routine only accepts a single font variation (number, size and style), it isn’t suitable for altering multiple font variations.

The spacing radio buttons and style check boxes are set up to display the original settings. I made the condense and extend style variations radio buttons because there is no point in both variations being selected (they cancel one another out).

The Font Name and Size Selection Windows are then created and the available font names and sizes are loaded into their respective list. Each list has its selection flags set so that only one cell is selected at a time and empty cells aren’t selectable. Even though the selection flag was set so that only one cell is selected, I found that I could select more than one cell by using the LSetSelect trap. I wanted to set a cell and I assumed that the List Manager would deselect the currently selected cell. Instead I had to deselect the currently selected cell and then select the desired cell (as shown in DKeyDown). When the mouse is used to select a cell, only one cell is selected, all others are deselected.

Only enough cells are created in each list to contain the font names and sizes. In some cases there are blank lines in the list. Clicking below the cells deselects the current selection, sometimes. For some reason it is possible to click below the cells in one spot and have the selection deselected while not in others. The area in which this occurs is the height of a cell.

A Sample Display Text Edit Record is then setup so that the ‘STR ‘ resource number 264 is displayed in the useritem rect at the bottom of the dialog box. The string is displayed with the current font settings, if they are valid, if they aren’t valid then no text is displayed. The text is centered horizontally within the useritem rect, and also vertically if all the lines are visible.

The handles of the string resources to be used by the alert window are then loaded into the local variable block.

As the user modifies the settings in the dialog box, the routine checks to make sure that they are valid. If they aren’t valid a flag (OkActive) is cleared. I originally set the Ok button to be hilited with #254 (if the selections are invalid) which is supposed to make the control inactive but still indicate if it has been clicked in. When I did this, I found that the Ok button would be grey but it wouldn’t indicate if it was clicked in. If I dragged the mouse an outline of the Ok button would move in the vertical axis. The problem occured when I let the default Modal Dialog routine handle the mouse or when I caught the event in the UserFilter and used the TrackControl trap. For this reason l’ve left the Ok button active when the settings are invalid and display an alert if the Ok button, ‘cr’ or ‘enter’ are selected. Before the alert is displayed the routine determines which variables aren’t valid and sets up the param strings accordingly. I haven’t checked to see if this still occurs since my Mac has been “enhanced”. From a user interface perspective it is good practice to inform the user what the problem is instead of not accepting their input or sounding a beep.

After the items have all been set up the ModalDialog trap is called.

Dialog Filter Proc

The DUserFilter filters all the events that it needs to handle and lets the default routine handle the remainder (by returning false). DUserFilter handles its events and returns true and an item No. if the main program is to do some variable updating or house keeping due to the event (ie a new font name is selected). When the DUserFilter handles an event and a setting hasn’t altered, ie a click on the selected font name, the event is converted to a null event.

DNull checks to see if the mouse is within the textedit rect, if it is it converts the cursor to a handle, otherwise it sets it to the arrow. This section of code could be sped up by storing the textedit item rect in the local variable block instead of using the GetDItem trap every time. When ever a font attribute is altered the sample text is erased and the routine waits until KeyThresh ticks have occured and then redraws the sample with the new attributes. The DNull code checks to see if KeyTresh ticks have passed and if the sample requires updating. If it does then the DUserFilter returns true and item number 21 (a disabled useritem).

DMouseDown handles the mouse down events within the two group titles and the two list windows. All other mouse down events are handled by the default ModalDialog routines. When a mouse down occurs in either of the two group titles the routine (TrackHeading) tracks the mouse to see if it is released in it or not. If it is, ModalDialog returns with the item number, otherwise the event is set to null. When a mouse down occurs in either of the List Manager windows the routines check to see if the selection has altered. If it has ModalDialog returns with the item number, otherwise the event is set to null.

DKeyDown checks for a ‘cr’ or ‘enter’ key and returns item No 1 (Ok button) if it finds one. It then checks to see if a number or ‘back space’ character has been pressed, if one has it deselects the selected cell in the Font Size Selection Window (if one is selected) and returns false for the default ModalDialog routine to handle it. DKeyDown then uses the character to search for a font name (NameSearch), as described in the User Interface section. The List Manager trap LSearch isn’t suitable because it only checks for exact matches and I required the routine to check strings using the IUMagString trap. The FontMap is searched through because it is quicker than using the List Manager routines to check each cells contents. The routine then makes sure the desired cell is selected and visible.

DUpdate updates all the items in the dialog box. The update event removes the need to have an item number for every item that is drawn. A prime example is the bold box around the Ok button, another is the frame around the textedit item. Items don’t have to be drawn in the order in which they appear in the dialog’s item list. This allows the frames to be drawn around the ‘spacing’ and ‘style’ control item groups before the group titles are drawn. The programmer has complete control over what is drawn in the dialog and could in fact draw something that isn’t related to an item in the item list. When lists are drawn they don’t have a frame drawn around them, so l’ve had to include one on each list. After everything has been updated the event is set to a null event (SetoNull) and returned.

DActivate activates the dialog box (the two list windows and the dialog box’s text edit record). I’ve also included the code to deactivate the dialog box, even though it never gets used. When the ShowWindow trap is called to display the dialog box the window is created, a deactivate event is created for the original front window as is an activate event for the dialog window. The main program’s deactivate code isn’t accessed because its event loop has been broken, the main program has to deactivate the front window before the dialog box routine is called. DActivate has to be able to filter out the (de)activate event for the original front window and not handle it. When the alert is shown, the dialog should be deactivated (just like the case above) with similar code to that in DDeactivate. The LActivate trap removes (hides) scroll bars when the list is deactivated instead of inactivating them so I didn’t include the deactivate code because it was visually undesirable (sloppy).

The routines that handle the result of the ModalDialog trap perform the following functions:

DOk displays an alert if the settings aren’t valid and returns to the ModalDialog loop (WaitOk). If the settings are valid the original values are replaced with the desired values. The routine then passes onto DCancel.

DCancel closes the dialog box and disposes of the unwanted records and the local variable block. When there is a lot of information to be included (displayed) in a dialog, it is best to initially set the dialog to be invisible, setup the items involved and then show the dialog. This creates a clean crisp presentation, as opposed to items appearing slowly with delays between items. The same philosophy applies when the dialog is being closed. It is better to hide the dialog first and then to dispose of the items rather than to see items within the dialog (window) disappear before the window does, very sloppy.

Style resets the control check boxes to their original settings after the user has clicked in the style title. SStyle toggles a check box after it has been clicked in.

Spacing resets the control radio buttons to their original settings after the user clicked in the spacing title. SSpacing sets the radio button that was clicked in and clears the other radio buttons within the group.

The ModalDialog default routine handles a mouse down event in the control items (radio buttons and check boxes) and tracks the mouse and returns (with that items number) if the mouse is released within the item. The main routine then alters the value of the control, knowing that it was clicked in, this allows groups of radio buttons to be organised together.

FontName updates the font number variable after a new font name was selected. The Font Size Selection Window is then updated to show the sizes associated with the new font name. If no font name is selected the Font Size Selection Window is cleared.

FontSize updates the font size variable after a new font size was selected from the Font Size Selection Window. The textedit item (No 20) is then updated to display the new font size. If no font size was selected the textedit item retains its previous value (it isn’t set to zero).

GetEditSize updates the font size variable after the user has altered the textedit item through a key stroke (0 through to 9 or ‘backspace’). The currently selected size in the Font Size Selection Window is deselected. The ModalDialog default routine returns with the textedit item number when the mouse is clicked within its rect even though its value doesn’t change.

FontSample updates the font attributes associated with the sample text at the bottom of the dialog box. The text is then centered vertically within the user item rect if the height of the text lines is less than the height of the rect. The sample is then displayed with the new attributes.

Each of the above routines have code included in them to check if their font variable has in fact altered, if it has the sample text is then erased and isn’t updated until KeyThresh ticks have lapsed.

I’ll leave the remaining description of the routines to the comments placed within each listing. Best of luck with writing your dialog.

Fig. 4 A simple About Box Dialog


Continued in next frame
Volume Number:4
Issue Number:7
Column Tag:Assembly Language Lab

Font Dialog Box Using List Manager (code)


; File Window.Asm
;----------------------------------------------------------
;       Macintosh 68000 Development System
;----------------------------------------------------------
; The Window Sample Program issued with the MDS.
; Modified by Ray.A.Cameron to demonstate a Modal Dialog Box.
; Mon May 4, 1988 21:29:54

This application displays a window within which you can enter and edit text. Program control is through four menus: the Apple menu, the File menu, the Edit menu, and the Font menu.The Apple menu has the standard desk accessories and an About feature. The File menu lets you quit the application. The Edit menu lets you cut, copy, paste, and clear the text in the window or in the desk accessories. Undo is provided for desk accesories only. Command key equivalents for undo, cut, copy, and paste are provided. The Font menu lets you display a Modal Dialog Box to select a Font Name, Size and attributes.

;----------------------- Includes ----------------

Include Traps.D  ; Use System and ToolBox traps
Include ToolEqu.D; Use ToolBox equates
Include QuickEqu.D ; Use QuickDraw equates
Include SysEqu.D ; Use System equates
Include PackMacs.Txt ; Use Package equates

;------------------- Use of Registers -----------

; Operating Sys and Toolbox calls preserve D3-D7, A2-A4.

; Register use: A5-A7 are reserved by the system
;  D1-D3, A0-A1 are unused
;  D0 is used as a temp

ModifyReg Equ    D4  ; modifier bits from GetNextEvent 
MenuReg Equ D5   ; menu ID from MenuSelect,MenuKey
MenuItemReg Equ  D6; item ID from MenuSelect,MenuKey
AppleHReg Equ    D7; handle to the Apple Menu

TextHRegEqu A2   ; handle to TextEdit record
WindowPRegEqu    A3; pointer to editing window
EditHRegEqu A4   ; handle to Edit menu

;------------------- Equates ----------------

; These are equates associated with the resources
; for the Window example.

AppleMenu Equ    1 ; First item in MENU resource
  AboutItem Equ  1 ; First item in Apple menu

FileMenuEqu 2  ; Second item in MENU resource
  QuitItem  Equ  1 ; First item in File menu

EditMenuEqu 3  ; Third item in MENU resource
  UndoItemEqu    1 ; Items in Edit menu
  CutItem Equ    3 ; (Item 2 is a line)
  CopyItemEqu    4
  PasteItem Equ  5
  ClearItem Equ  6
  
FontMenuEqu 4  ; Fourth item in MENU resource
  DialogItemEqu  1 ; Only item in Font menu

AboutDialog Equ  1 ; About dialog is DLOG resource #1
ButtonItemEqu    1 ; First item in DITL used by DLOG #1
ASample Equ 1  ; Sample Window is WIND resource #1

;-------------------- Xdefs ----------------

; Xdef all labels to be symbolically displayed by debugger.

 Xdef   Start
 Xdef   InitManagers
 Xdef   SetupMenu
 Xdef   SetupWindow
 Xdef   SetupTextEdit
 Xdef   Activate
 Xdef   Deactivate
 Xdef   Update
 Xdef   KeyDown
 Xdef   MouseDown
 Xdef   SystemEvent
 Xdef   Content
 Xdef   Drag
 Xdef   InMenu
 Xdef   About
 
 XRef   SetupFontMap ; Routines
 XRef   FontDialog
 
 XRef   FontMap  ; Variable
 
;----------------- Main Program -------------
Start 
 Bsr    InitManagers ; Initialize managers
 Bsr    SetupMenu; Build menus, draw menu bar
 Bsr    SetupWindow; Draw Editing Window
 Bsr    SetupTextEdit; Initialize TextEdit
 Bsr    SetupFontMap ; Initialize the FontMap
EventLoop ; Main Program Loop
 _SystemTask; Update Desk Accessories
 ; ProcedureTEIdle (hTE:TEHandle);
 Move.l TextHReg,-(SP)    ; Get handle to text record
 _TEIdle; blink cursor etc.
 
 ; Function GetNextEvent(eventMask: Integer
 ; Var theEvent: EventRecord) : Boolean
 Clr    -(SP)    ; Clear space for result
 Move   #$0FFF,-(SP) ; Allow 12 low events
 Pea    EventRecord; Place to return results
 _GetNextEvent   ; Look for an event
 Move   (SP)+,D0 ; Get result code
 Beq    EventLoop; No event... Keep waiting
 Bsr    HandleEvent; Go handle event
 Beq    EventLoop; Not Quit, keep going
 Rts    ; Quit, exit to Finder

Note: When an event handler finishes, it returns the Z flag set. If Quit was selected, it returns with the Z flag clear. An Rts is guaranteed to close all files and launch the Finder.

;------------------- InitManagers -------------

InitManagers
 Pea    -4(A5)   ; Quickdraw's global area
 _InitGraf; Init Quickdraw
 _InitFonts ; Init Font Manager
 Move.l #$0000FFFF,D0; Flush all events
 _FlushEvents
 _InitWindows    ; Init Window Manager
 _InitMenus ; Init Menu Manager
 Clr.l  -(SP)    ; No restart Procedure
 _InitDialogs    ; Init Dialog Manager
 _TEInit; Init Text Edit
 _InitCursor; Turn on arrow cursor
 Rts

;--------------------- SetupMenu ---------------

SetupMenu

; Apple Menu Set Up.  

 ; Function GetMenu (menu ID:Integer): MenuHandle;
 Clr.l  -(SP)    ; Space for menu handle
 Move   #AppleMenu,-(SP)  ; Apple menu resource ID 
 _GetRMenu; Get menu handle 
 Move.l (SP),AppleHReg  ; Save for later comparison
 Move.l (SP),-(SP) ; Copy handle for AddResMenu
 
 Clr    -(SP)    ; Append to menu
 _InsertMenu; Which is currently empty

 Move.l #'DRVR',-(SP); Load all drivers 
 _AddResMenu; And Add to Apple menu

; File Menu Set Up

 Clr.l  -(SP)    ; Space for menu handle
 Move   #FileMenu,-(SP) ; File Menu Resource ID 
 _GetRMenu; Get File menu handle

 Clr    -(SP)    ; Append to list
 _InsertMenu; After Apple menu

; Edit Menu Set Up

 Clr.l  -(SP)    ; Space for menu handle
 Move   #EditMenu,-(SP) ; Edit menu resource ID
 _GetRMenu; Get handle to menu
 Move.l (SP),EditHReg; Save for later
        ; Leave on stack for Insert
 
 Clr    -(SP)    ; Append to list
 _InsertMenu; After File menu
 
; Font Menu Set Up

 Clr.l  -(SP)    ; Space for menu handle
 Move   #FontMenu,-(SP) ; Font Menu Resource ID 
 _GetRMenu; Get File menu handle

 Clr    -(SP)    ; Append to list
 _InsertMenu; After Edit menu

 _DrawMenuBar    ; Display the menu bar
 Rts

;---------------- SetupWindow ---------------

SetupWindow

 ; Function GetNewWindow (windowID: Integer; wStorage: Ptr; 
 ;       behind: WindowPtr) : WindowPtr;
 Clr.l  -(SP)    ; Space for window pointer
 Move   #ASample,-(SP)    ; Resource ID for window
 Pea    WindowStorage(A5) ; Storage for window
 Move.l #-1,-(SP); Make it the top window
 _GetNewWindow   ; Draw the window
 Move.l (SP),WindowPReg   ; Save for later 
 
 _SetPort ; Make it the current port
 Rts
 
;------------- SetupTextEdit ----------------

SetupTextEdit

 ; ProcedureTENew (destRect,viewRect: Rect): TEHandle;
 Clr.l  -(SP)    ; Space for text handle 
 Pea    DestRect ; DestRect Rectangle
 Pea    ViewRect ; ViewRect Rectangle
 _TENew ; New Text Record
 Move.l (SP)+,TextHReg  ; Save text handle
 Rts
 
;------------- Event Handling Routines --------

HandleEvent

Use the event number as an index into the Event table. These 12 events are all the things that could spontaneously happen while the program is in the main loop.

Move Modify,ModifyReg ; More useful in a reg

Move What,D0 ; Get event number

Add D0,D0 ; *2 for table index

Move EventTable(D0),D0 ; Point to routine offset

Jmp EventTable(D0) ; and jump to it

EventTable

Dc.w NextEvent-EventTable ; Null Event (Not used)

Dc.w MouseDown-EventTable ; Mouse Down

Dc.w NextEvent-EventTable ; Mouse Up (Not used)

Dc.w KeyDown-EventTable ; Key Down

Dc.w NextEvent-EventTable ; Key Up (Not used)

Dc.w KeyDown-EventTable ; Auto Key

Dc.w Update-EventTable ; Update

Dc.w NextEvent-EventTable ; Disk (Not used)

Dc.w Activate-EventTable ; Activate

Dc.w NextEvent-EventTable ; Abort (Not used)

Dc.w NextEvent-EventTable ; Network (Not used)

Dc.w NextEvent-EventTable ; I/O Driver (Not used)

;-------------------- Event Actions -----------------

Activate

An activate event is posted by the system when a window needs to be activated or deactivated. The information that indicates which window needs to be updated was returned by the NextEvent call.

 Cmp.l  Message,WindowPReg; Was it our window?
 Bne  NextEvent  ; No, get next event
 Btst #activeFlag,ModifyReg ; Activate?
 Beq  Deactivate ; No, go do Deactivate

To activate our window, activate TextEdit, and disable Undo since we don't support it. Then set our window as the port since an accessory may have changed it. This activate event was generated by SelectWindow as a result of a click in the content region of our window. If the window had scroll bars, we would do ShowControl and HideControl here too.

 ; ProcedureTEActivate (hTE: TEHandle);
 Move.l TextHReg,-(SP)    ; Move Text Handle To Stack
 _TEActivate; Activate Text

 ; Procedure DisableItem (menu:MenuHandle; item:Integer);
 Move.l EditHReg,-(SP)    ; Get handle to the menu
 Move   #UndoItem,-(SP)   ; Enable 1st item (undo)
 _DisableItem

SetOurPort; used by InAppleMenu

 Move.l WindowPReg,-(SP)  ; an accessory might have
 _SetPort ; changed it.

NextEvent 
 Moveq #0,D0; Say that it's not Quit
 Rts    ; return to EventLoop
 
Deactivate

 Move.l TextHReg,-(SP)    ; Get Text Handle
 _TeDeActivate   ; Un Activate Text
 Move.l EditHReg,-(SP)    ; Get handle to the menu
 Move   #UndoItem,-(SP)   ; Enable 1st item (undo)
 _EnableItem
 Bra    NextEvent; Go get next event
 
Update  

The window needs to be redrawn. Erase the window and then call TextEdit to redraw it.

 ; ProcedureBeginUpdate (theWindow: WindowPtr);
 Move.l WindowPReg,-(SP)  ; Get pointer to window
 _BeginUpDate    ; Begin the update

 ; EraseRect (rUpdate: Rect);
 Pea    ViewRect ; Erase visible area
 _EraseRect
 
 ; TEUpdate (rUpdate: Rect; hTE: TEHandle);
 Pea    ViewRect ; Get visible area
 Move.l TextHReg,-(SP)    ; and handle to text 
 _TEUpdate; then update the window

 ; ProcedureEndUpdate (theWindow: WindowPtr);
 Move.l WindowPReg,-(SP)  ; Get pointer to window
 _EndUpdate ; and end the update
 Bra    NextEvent; Go get next event
 
KeyDown 

A key was pressed. First check to see if it was a command key. If so, go do it. Otherwise pass the key to TextEdit.

 Btst   #CmdKey,ModifyReg ; Is command key down?
 Bne    CommandDown; handle command key

 ; ProcedureTEKey (key: CHAR; hTE: TEHandle);
 Move   Message+2,-(SP)   ; Get character
 Move.l TextHReg,-(SP)    ; and text record
 _TEKey ; Give char to TextEdit
 Bra    NextEvent; Go get next event
 
CommandDown 

The command key was down. Call MenuKey to find out if it was the command key equivalent for a menu command, pass the menu and item numbers to Choices.

 ; Function MenuKey (ch:CHAR): LongInt;
 Clr.l  -(SP)    ; Space for Menu and Item
 Move   Message+2,-(SP)   ; Get character
 _MenuKey ; See if it's a command
 Move   (SP)+,MenuReg; Save Menu
 Move   (SP)+,MenuItemReg ; and Menu Item
 Bra    Choices  ; Go dispatch command


;---------Mouse Down Events And Their Actions-----

MouseDown 

If the mouse button was pressed, we must determine where the click occurred before we can do anything. Call FindWindow to determine where the click was; dispatch the event according to the result.

 ; Function FindWindow (thePt: Point; 
 ;             Var whichWindow: WindowPtr): Integer;
 Clr    -(SP)    ; Space for result
 Move.l Point,-(SP); Get mouse coordinates
 Pea    WWindow  ; Event Window
 _FindWindow; Who's got the click? 
 Move   (SP)+,D0 ; Get region number
 Add    D0,D0    ; *2 for index into table
 Move   WindowTable(D0),D0; Point to routine offset
 Jmp    WindowTable(D0)   ; Jump to routine
 
WindowTable

 Dc.w   NextEvent-WindowTable ; In Desk (Not used)
 Dc.w   InMenu-WindowTable; In Menu Bar
 Dc.w   SystemEvent-WindowTable ; System Window
 Dc.w   Content-WindowTable ; In Content
 Dc.w   Drag-WindowTable  ; In Drag
 Dc.w   NextEvent-WindowTable ; In Grow (Not used)
 Dc.w   NextEvent-WindowTable ; In Go Away (Not used)

SystemEvent 

The mouse button was pressed in a system window. SystemClick calls the appropriate desk accessory to handle the event.

 ; ProcedureSystemClick (theEvent: EventRecord;
 ;              theWindow: WindowPtr);
 Pea    EventRecord; Get event record
 Move.l WWindow,-(SP); and window pointer
 _SystemClick    ; Let the system do it
 Bra    NextEvent; Go get next event
 
Content 

The click was in the content area of a window. If our window was in front, then call Quickdraw to get local coordinates, then pass the coordinates to TextEdit. We also determine whether the shift key was pressed so TextEdit can do shift-clicking. If our window wasn't in front, Move it to the front, but don't process click.

 Clr.l  -(SP)    ; clear room for result
 _FrontWindow    ; get FrontWindow
 Move.l (SP)+,D0 ; Is front window pointer
 Cmp.l  WindowPReg,D0; same as our pointer?
 Beq.s  @1; Yes, call TextEdit

 We weren't active, select our window.  This causes an activate event.

 ; ProcedureSelectWindow (theWindow: WindowPtr);
 Move.l WWindow,-(SP); Window Pointer To Stack
 _SelectWindow   ; Select Window
 Bra    NextEvent; and get next event

@1 

; We were active, pass the click (with shift) to TextEdit.

 ; ProcedureGlobalToLocal (Var pt:Point);
 Pea    Point    ; Mouse Point
 _GlobalToLocal  ; Global To Local

 ; Procedure   TEClick (pt: Point; extend: Boolean; hTE: TEHandle);
 Move.l Point,-(SP); Mouse Point (GTL)
 Btst   #shiftKey,ModifyReg ; Is shift key down?
 Sne    D0; True if shift down

Note: We want the Boolean in the high byte, so use Move.b. The 68000 pushes an extra, unused byte on the stack for us.

 Move.b D0,-(SP) 
 Move.l TextHReg,-(SP)  ; Identify Text
 _TEClick ; TEClick
 Bra    NextEvent; Go get next event
 
Drag

 Move.l WWindow,-(SP); Pass window pointer
 Move.l Point,-(SP); mouse coordinates
 Pea    WBounds  ; and boundaries
 _DragWindow; Drag Window
 Bra    NextEvent; Go get next event
 
InMenu  

 Clr.l  -(SP)    ; Get Space For Menu Choice
 Move.l Point,-(SP); Mouse At Time Of Event
 _MenuSelect; Menu Select
 Move   (SP)+,MenuReg; Save Menu
 Move   (SP)+,MenuItemReg ; and Menu Item

On entry to Choices, the resource ID of the Menu is saved in the low word of a register, and the resource ID of the MenuItem in another. The routine MenuKey, used when a command key is pressed, returns the sameinfo.

Choices ; Called by command key too

 Cmp  #AppleMenu,MenuReg  ; Is It In Apple Menu?
 Beq  InAppleMenu; Go do Apple Menu
 Cmp  #FileMenu,MenuReg ; Is It In File Menu?
 Beq  InFileMenu ; Go do File Menu
 Cmp  #EditMenu,MenuReg ; Is It In Edit Menu?
 Beq  InEditMenu ; Go do Edit Menu
 Cmp  #FontMenu,MenuReg ; Is It In Font Menu?
 Beq  InFontMenu ; Go do Font Menu
 
ChoiceReturn

 Bsr    UnHiliteMenu ; Unhighlight the menu bar
 Bra    NextEvent; Go get next event
 
InFileMenu

 Cmp    #QuitItem,MenuItemReg ; Is It Quit?
 Bne    ChoiceReturn ; No, Go get next event
 Bsr    UnHiliteMenu ; Unhighlight the menu bar
 Move   #-1,D0   ; say it was Quit
 Rts
 
InEditMenu

; First, call SystemEdit.  If a desk accessory is active that uses the 
Edit menu (such as the Notepad) this lets it use our menu. Decide whether 
it was cut, copy, paste, or clear.  Ignore Undo since we didn't implement 
it.

 Bsr    SystemEdit ; Desk accessory active?
 Bne  ChoiceReturn ; Yes, SystemEdit handled it
 Cmp    #CutItem,MenuItemReg; Is It Cut?
 Beq    Cut ; Yes, go handle it
 Cmp    #CopyItem,MenuItemReg ; Is it Copy?
 Beq    Copy; Yes, go handle it
 Cmp    #PasteItem,MenuItemReg; Is it Paste?
 Beq    Paste    ; Yes, go handle it
 Cmp    #ClearItem,MenuItemReg; Is it Clear?
 Beq    ClearIt  ; Yes, go handle it
 Bra    ChoiceReturn ; Go get next event
 
InFontMenu

 Cmp    #DialogItem,MenuItemReg  ; Is It Dialog?
 Bne    ChoiceReturn ; No, Go get next event
 
 ; ProcedureTEDeActivate (hTE: TEHandle)
 Move.l TextHReg,-(SP)    ; Identify Text
 _TEDeActivate   ; Deactivate Text
 
; Obtain the current Font number, size and attributes to setup the dialog 
box.
 Movea.lTextHReg,A0; Handle to the TE record
 Movea.l(A0),A0  ; Pointer to the TE record
 Move.w teFont(A0),D0;- Font Number
 Cmp.w  #1,D0    ;  Default number?
 Bne.s  @0;  No, -> @0
 Move.w ApFontID,D0;  Yes, load default number
@0 Move.w D0,DtxFont(A5)
 Clr.w  D0;- Font Face
 Move.b teFace(A0),D0;   Place the attribute bits in the
 Move.w D0,DtxFace(A5)  ;  low byte of DtxFace(A5).
 Move.w teSize(A0),D0;- Font Size
 Bne.s  @1;  Default size, No -> @1
 Move.b FMDefaultSize,D0  ; Yes, load default size
@1 Move.w D0,DtxSize(A5)
 
 Clr.w  -(SP)
 Pea    DtxFont(A5); Load the font's number address
 Pea    DtxFace(A5); Load the font's face address
 Pea    DtxSize(A5); Load the font's size address
 Jsr    FontDialog

Test to see if the okButton was pressed (ie install the new Font variables). If the cancelButton was pressed leave the Font variables as they are.

 Move.b (SP)+,D0
 Beq.s  @2

Update the Font number, size, and face fields in the textedit record. The teAscent and teLineHite fields also require up dating. Reset the port to the textedit window, since the current GraphPort has been changed by the FontDialog routine.

 Move.l WindowPReg,-(SP)  
 _SetPort
 Move.w DtxFont(A5),-(SP)
 _TextFont
 Move.w DtxFace(A5),-(SP)
 _TextFace
 Move.w DtxSize(A5),-(SP)
 _TextSize
 
 ; Procedure GetFontInfo (Var Info: FontInfo)
 Pea    Info(A5)
 _GetFontInfo
 
 Movea.lTextHReg,A1; DeReference the Handle
 Movea.l(A1),A1
 Move.w DtxFont(A5),teFont(A1); teFont
 Move.b DtxFace+1(A5),teFace(A1) ; teFace
 Move.w DtxSize(A5),teSize(A1); teSize
 Move.w Info+ascent(A5),teAscent(A1) ; teAscent
 Move.w Info+ascent(A5),D0; teLineHite
 Add.w  Info+descent(A5),D0
 Add.w  Info+leading(A5),D0
 Move.w D0,teLineHite(A1)
 
@2 Bra  GoSetOurPort 

InAppleMenu

 Cmp    #AboutItem,MenuItemReg; Is It About?
 Beq  About ; If So Goto About...
 
 ; ProcedureGetItem (menu: MenuHandle; item: Integer; 
 ;                        Var itemString: Str255);
 Move.l AppleHReg,-(SP)   ; Look in Apple Menu
 Move   MenuItemReg,-(SP) ; What Item Number?
 Pea    DeskName ; Get Item Name
 _GetItem ; Get Item

 ; Function OpenDeskAcc (theAcc: Str255) : Integer;
 Clr    -(SP)    ; Space For Opening Result
 Pea    DeskName ; Open Desk Acc
 _OpenDeskAcc    ; Open It
 Move   (SP)+,D0 ; Pop result
 
GoSetOurPort

 Bsr    SetOurPort ; Set port to us 
 Bra    ChoiceReturn ; Unhilite menu and return
 
;----------- Text Editing Routines ---------

Cut; CUT
 Move.l TextHReg,-(SP)    ; Identify Text
 _TECut ; Cut it and copy it
 Bra    ChoiceReturn ; Go get next event
Copy    ; COPY
 Move.l TextHReg,-(SP)    ; Identify Text
 _TECopy; Copy text to clipboard
 Bra    ChoiceReturn ; Go get next event
Paste   ; PASTE
 Move.l TextHReg,-(SP)    ; Identify Text
 _TEPaste ; Paste
 Bra    ChoiceReturn ; Go get next event
ClearIt ;CLEAR
 Move.l TextHReg,-(SP)    ; Point to text
 _TEDelete; Clear without copying
 Bra    ChoiceReturn ; Go get next event

SystemEdit does undo, cut, copy, paste, and clear for desk accessories. It returns False (Beq) if the active window doesn't belong to a desk accessory.

SystemEdit
 
 ; Function SystemEdit (editCmd:Integer): Boolean;
 Clr    -(SP)    ; Space for result
 Move   MenuItemReg,-(SP) ; Get item in Edit menu
 Subq   #1,(SP)  ; SystemEdit is off by 1
 _SysEdit ; Do It 
 Move.b (SP)+,D0 ; Pop result
 Rts    ; Beq if NOT handled

UnhiliteMenu
 
 ; ProcedureHiLiteMenu (menuID: Integer);
 Clr    -(SP)    ; All Menus
 _HiLiteMenu; UnHilite Them All
 Rts
 

;--------------------Misc Routines------------

About



 ; Function GetNewDialog (dialogID: Integer; dStorage: Ptr; 
 ;                             behind: WindowPtr) : DialogPtr
 Clr.l  -(SP)    ; Space For dialog pointer
 Move   #AboutDialog,-(SP); Identify dialog rsrc #
 Pea    DStorage ; Storage area
 Move.l #-1,-(SP); Dialog goes on top
 _GetNewDialog   ; Display dialog box
 Move.l (SP),-(SP) ; Copy handle for Close
 ; Handle on stack
 _SetPort ; Make dialog box the port
 Move.l TextHReg,-(SP)  ; Identify Text
 _TEDeActivate   ; Deactivate Text

WaitOK

 ; ProcedureModalDialog (filterProc: ProcPtr; 
 ;      Var itemHit: Integer);
 Clr.l  -(SP)    ; Clear space For handle
 Pea    ItemHit  ; Storage for item hit
 _ModalDialog    ; Wait for a response

 Move   ItemHit,D0 ; Look to see what was hit
 Cmp    #ButtonItem,D0  ; was it OK?
 Bne    WaitOK   ; No, wait for OK
 
 _CloseDialog    ; Handle already on stack
  Bra   GoSetOurPort ; Set port to us and return
  
; ----------- Data Starts Here ------------

EventRecord ; NextEvent's Record
 What:  Dc  0    ; Event number
 Message: Dc.l   0 ; Additional information
 When:  Dc.l0    ; Time event was posted 
 Point: Dc.l0    ; Mouse coordinates
 Modify:Dc  0    ; State of keys and button
 WWindow: Dc.l   0 ; Find Window's Result

DStorageDcb.w    DWindLen,0 ; Storage For Dialog
DeskNameDcb.w    16,0; Desk Accessory's Name
WBounds Dc  28,4,308,508  ; Drag Window's Bounds
ViewRectDc  5,4,245,405 ; Text Record's View Rect
DestRectDc  5,4,245,405 ; Text Record's Dest Rect
ItemHit Dc0 ; Item clicked in dialog

;-------------- Nonrelocatable Storage ---------

Variables declared using Ds are placed in a global space relative to A5. When these variables are referenced, A5 must be explicitly mentioned.

DtxFont Ds.w1
DtxFace Ds.w1
DtxSize Ds.w1
Info    Ds.w4    ; FontInfo Record
WindowStorage    Ds.wWindowSize  ; Storage for Window

End

;-------------- FontDialog --------------------

; Written by Ray.A.Cameron
; Version 1
;Wed May 6, 1988 21:00:51


XDef    FontDialog ; Routine's name
XRef    FontMap  ; Variable's name

;---------- Includes -------------

Include Traps.D  ; Use System and ToolBox traps
Include ToolEqu.D; Use ToolBox Equates
Include QuickEqu.D ; Use QuickDraw Equates
Include SysEqu.D ; Use System Equates
Include PackMacs.Txt ; Use Package Equates
Include FontMacros.Txt  ; Use Macro file


; ---------- Equates ----------
FontDPtrEqu A4

FDialog Equ 260  ; Font dialog is DLOG resource #260
ADialog Equ 260  ; Alert dialog is ALRT resource #260
True    Equ 1    ; Boolean True
False   Equ 0    ; Boolean False
enterCode Equ  3 ; ASCII Enter
bsCode  Equ 8    ; ASCII Back Space
crCode  Equ 13   ; ASCII Carriage Return
param0  Equ 0    ; Offset to string 0 in DAStrings
param1  Equ 4    ; Offset to string 1 in DAStrings
param2  Equ 8    ; Offset to string 2 in DAStrings
OkActiveEqu 0    ; OkActive bit within Dialog Flags
SUpdate Equ 1    ; Sample update bit within Dialog Flags


Font Dialog 2
	








Continued from - Font Dialog


SRect   Equ 2    ; Sample rect bit within Dialog Flags
SKey    Equ 3    ; Sample key bit  within Dialog Flags

; --------- Font Dialog Data Record -------

DStorageEqu $0   ; Storage for the Dialog Record
TempFontEqu $AA  ; Currently selected font number
TempFaceEqu $AC  ; Currently selected font style
TempSizeEqu $AE  ; Currently selected font size
DFlags  Equ $B0  ; Dialog Flags
NameListH Equ  $B2 ; Font Name Selection List's Handle
NameCellEqu $B6  ; Font Name selected cell
SizeListH Equ  $BA ; Font Size Selection List's Handle
SizeCellEqu $BE  ; Font Size selected cell
TempCellEqu $C2  ; Temporary Cell variable
Item    Equ $C6  ; Item's handle or procedure
ItemtypeEqu $CA  ; Item's type
ItemBox Equ $CC  ; Item's enclosing rect
ItemHit Equ $D4  ; Item clicked in dialog
loc_pt  Equ $D6  ; mouse location
InitBoundsEqu  $DA ; Init size of Lists
TextCursorEqu  $E2 ; Handle to the IBeam cursor
thename Equ $E6  ; Text string
pnState Equ $1E6 ; Original state of the pen
String1 Equ $1F8 ; Alert text string1
String2 Equ $1FC ; Alert text string2
String3 Equ $200 ; Alert text string3
Sample  Equ $204 ; Sample Text Edit Handle
SampleRectEqu  $208; Sample Text Edit Rect
SampleTicks Equ  $210; Ticks when Sample required updated
info    Equ $214 ; GetFontInfo record
search  Equ $21C ; String to search Font Name List

Globalslength  Equ $23C

; This routine receives the following inputs:
;  teFont: The current font's number
;teFace: The current type face's attributes in low byte
;Bit 0 - Bold    Bit 3 - Outline   Bit 6 - Extend
;Bit 1 - Italic  Bit 4 - Shadow
;Bit 2 - Underline Bit 5 - Condense
;teSize: The current font's size

A ModalDialog box is displayed to allow the user to choose the font attributes that they desire. If the Ok button, enter key or carriage return is pressed the selected values will replace the original values otherwise the values remain the same.

FontDialog

 Link A6,#0 
 ; Boolean result20(A6) ; Ok or Cancel
 ; DtxFont Address 16(A6) ; Address of current Font number
 ; DtxFace Address 12(A6) ; Address of current Font style
 ; DtxSize Address 8(A6)  ; Address of current Font size
 ; Return Address4(A6)
 ; Old A6 (A6)

 Movem.lD0-D7/A0-A4,-(SP) ; Save register values.
 Move.w #False,20(A6); Set up to return False.
 
 ; Create a non-relocatable block for Font Data Record.
 Move.l #Globalslength,D0
 _NewPtr,CLEAR
 Move.l A0,FontDRec(A5)   ; Store the pointer.
 Movea.lA0,FontDPtr

 GetPenStatepnState(A4) ; Save the current pen settings.
 ; Load the present values of the font number, face and size  
 ; into temporary locations.
 Movea.l16(A6),A0; Font number.  
 Move.w (A0),TempFont(A4) 
 Movea.l12(A6),A0; Font face. 
 Move.w (A0),TempFace(A4) 
 Movea.l8(A6),A0 ; Font size.
 Move.w (A0),TempSize(A4)

 ; Obtain the iBeamCursor's resource and lock it down.
 ; Function GetCursor (cursorID: Integer): CursHandle
 Subq.l #4,SP
 Move.w #iBeamCursor,-(SP)
 _GetCursor
 Move.l (SP)+,TextCursor(A4)
 HLock  TextCursor(A4)

 Subq.l #4,SP    ; Space for dialog pointer.
 Move.w #FDialog,-(SP)  ; Identify dialog rsrc #.
 Move.l FontDPtr,-(SP)  ; Storage area.
 Move.l #-1,-(SP); Dialog goes on top.
 _GetNewDialog
 _SetPort
 
 Move.l OneOne,InitBounds+bottom(A4) 
 Bset.b #OkActive,DFlags(A4) ; selections are valid.
 
 ; Lock FontMap while its information is being accessed.
 HLock  FontMap(A5)
 DeRefHndle FontMap(A5),A3

Set up the Style check boxes so that they show the current font's values.

 Move.w TempFace(A4),D0   ; current face (style) byte.
 Move.w #4,-(SP) ; Item No 4.
 Move.w #5,-(SP) ; 5 Items (check boxes).
 Move.w D0,-(SP) ; Bits to set.
 Bsr    SControl

Set up the Spacing radio buttons so that they show the current fonts values.

 Move.w TempFace(A4),D0 ; current face (style) byte.
 Andi.w #%01100000,D0; Examine Condense & Extend.
 Bne.s  @0; If neither are set, then
 Move.w #%00010000,D0; add bit to represent "Normal".
@0 Lsr.W#4,D0
 
 Move.w #11,-(SP); Item No 11.
 Move.w #3,-(SP) ; 3 Items (radio buttons).
 Move.w D0,-(SP) ; Bits to set.
 Bsr    SControl
 
 ; Set up the Font Name Selection Window

 GetDItem FontDPtr,#17,Itemtype(A4),Item(A4),ItemBox(A4)
 
 Subq.l #4,SP    ; Space for the handle.
 Pea    ItemBox(A4)
 Pea    InitBounds(A4)    ; Create one cell.
 Clr.l  -(SP)    ; Cell size for text.
 Move.w #0,-(SP) ; Text definition procedure.
 Move.l FontDPtr,-(SP)
 Move.b #False,-(SP) ; drawIt
 Move.b #False,-(SP) ; hasGrow
 Move.b #False,-(SP) ; scrollHoriz
 Move.b #True,-(SP); scrollVert
 _LNew
 
 Move.l (SP),NameListH(A4); Store the List's handle.
 DeRefHndle (SP)+,A0 ; Set the selection flags.
 Move.b #%10000010,selFlags(A0)    ; lOnlyOne, lNoNilHilite
 Move.l #$FFFF0000,NameCell(A4)    ; (0,-1), no cell     
 Jsr    LdNames  ; Load the Font Names.

; Set up the Font Size Selection Window

 GetDItem FontDPtr,#19,Itemtype(A4),Item(A4),ItemBox(A4)
 
 ; Function LNew (rView, dataBounds: Rect; cSize: Point; 
 ; theProc: Integer; theWindow: WindowPtr; drawIt, hasGrow, 
 ; scrollHoriz, scrollVert: Boolean): ListHandle

 Subq.l #4,SP    ; Space for the handle.
 Pea    ItemBox(A4)
 Pea    InitBounds(A4)    ; Create one cell.
 Clr.l  -(SP)    ; Cell size for text.
 Move.w #0,-(SP) ; Text definition procedure.
 Move.l FontDPtr,-(SP)
 Move.b #False,-(SP) ; drawIt
 Move.b #False,-(SP) ; hasGrow
 Move.b #False,-(SP) ; scrollHoriz
 Move.b #True,-(SP); scrollVert
 _LNew
 
 Move.l (SP),SizeListH(A4); Store the List's handle.
 DeRefHndle (SP)+,A0 ; Set the selection flags.
 Move.b #%10000010,selFlags(A0)    ; 1OnlyOne, lNoNilHilite
 Move.l #$FFFF0000,SizeCell(A4)    
 
 Jsr    LdSizes  ; Load the current Font's Sizes.

; Set up the Font Size Text Edit item 

 Jsr    SetEditSize
 
; Set up the Sample Display Text Edit Record 

 GetDItem FontDPtr,#21,Itemtype(A4),Item(A4),SampleRect(A4)
 ; Function TENew (destRect, viewRect: Rect): TEHandle
 Subq.l #4,SP
 Pea    SampleRect(A4)  ; Create a new text edit record.
 Pea    SampleRect(A4)
 _TENew
 Move.l (SP)+,Sample(A4)  ; Store theTEdit handle.
 HLock  Sample(A4)
 DeRefHndle Sample(A4),A0 ; Setup the variables.
 Move.w #teJustCenter,teJust(A0)
 Move.b MinusOne,teCROnly(A0)
 
 GetResource'STR ',#264 ; Obtain the sample text.
 HLock  (SP); Leave the handle on the stack.
 DeRefHndle (SP),A0; Address of text in A0.
 Clr.l  D0; Length of text in D0.
 Move.b (A0)+,D0
 
 Move.l A0,-(SP) ; Insert the sample string into
 Move.l D0,-(SP) ; the record.
 Move.l Sample(A4),-(SP)
 _TEInsert
 HUnlock(SP)+    ; Unlock the string resource.

 Jsr    SampleWindow ; Update the TEdit variables.
 HUnlockSample(A4)

; Set up the Alert Dialog Variables
 Move.w #-1,ACount ; Reset the Alert stage to 1.
 GetResource   'STR ',#261; Obtain copies of the Alert strings
 Move.l (SP)+,String1(A4) ; handles and store for easy
 GetResource   'STR ',#262; access.
 Move.l (SP)+,String2(A4)
 GetResource   'STR ',#263
 Move.l (SP)+,String3(A4)

; Display the Dialog Window
 ShowWindow FontDPtr ; This posts an Activate event.
 
 
WaitOk  
 Pea    DUserFilter
 Pea    ItemHit(A4)
 _ModalDialog

 Move.w ItemHit(A4),D0  ; Get the itemNo that was Hit.
 Subq.w #1,D0    ; Allow for no item zero.
 Lsl.w  #1,D0    ; *2 for table index.
 Move.w ItemTable(D0),D0  ; Point to routine offset
 Jmp    ItemTable(D0); and jump to it.
 
ItemTable
 Dc.w   DOk-ItemTable; Ok Button
 Dc.w   DCancel-ItemTable ; Cancel Button
 Dc.w   WaitOk-ItemTable  ; Character  Text (Disabled)
 Dc.w   SStyle-ItemTable  ; Bold   Check Box
 Dc.w   SStyle-ItemTable  ; Italic Check Box
 Dc.w   SStyle-ItemTable  ; Underline  Check Box
 Dc.w   SStyle-ItemTable  ; Outline  Check Box
 Dc.w   SStyle-ItemTable  ; Shadow Check Box
 Dc.w   Style-ItemTable   ; Style  Text (Enabled)
 Dc.w   WaitOk-ItemTable  ; ThinBox  User Item
 Dc.w   SSpacing-ItemTable; Normal Radio Button
 Dc.w   SSpacing-ItemTable; Condense Radio Button
 Dc.w   SSpacing-ItemTable; Extend Radio Button
 Dc.w   Spacing-ItemTable ; Spacing  Text (Enabled)
 Dc.w   WaitOk-ItemTable  ; ThinBox  User Item
 Dc.w   WaitOk-ItemTable  ; Font N...  Text (Disabled)
 Dc.w   FontName-ItemTable; NameSel Wind     User Item
 Dc.w   WaitOk-ItemTable  ; Font S...  Text (Disabled)
 Dc.w   FontSize-ItemTable; SizeSel Wind     User Item
 Dc.w   GetEditSize-ItemTable ; Type size    Text Edit
 Dc.w   FontSample-ItemTable; Sample Font          User Item
 
DOk
 ; If the current Dialog selection isn't valid, set up the appropriate 
param text strings and invoke the Caution Alert.
 Btst.b #OkActive,DFlags(A4); Is the selection valid?
 Bne    @3; Yes -> @3
 Clr.w  D0; Set up the three param
 Movea.l#DAStrings,A0; text strings.
 Clr.l  param0(A0)
 Clr.l  param1(A0)
 Clr.l  param2(A0)
 Cmpi.w #-1,TempFont(A4)  ; Is TempFont a valid selection?
 Bne.s  @0; Yes -> @0
 Bset.b #0,D0    ; No -> include related text.
 Move.l String1(A4),param0(A0)
@0 Cmpi.w #0,TempSize(A4) ; Is TempSize a valid selection?
 Bne.s  @1; Yes -> @1
 Bset.b #1,D0    ; No -> include related text.
 Move.l String2(A4),param2(A0)
@1 Cmpi.w #3,D0  ; If both TempFont and TempSize
 Bne.s  @2; are invalid include the conjunctive
 Move.l String3(A4),param1(A0); string (String3).
@2 ; Function CautionAlert (alertID: Integer; filterProc: ProcPtr): Integer
 Subq.l #2,SP
 Move.w #ADialog,-(SP)
 Clr.l  -(SP)
 _CautionAlert
 Addq.l #2,SP
 Bra    WaitOk   ; User to alter their selection.
 
@3 ; 

If the current Dialog selection is valid, replace the original font number, style and size values with the values chosen by the user.

 Movea.l16(A6),A0; Font number.
 Move.w TempFont(A4),(A0)
 Movea.l12(A6),A0; Font style.
 Move.w TempFace(A4),(A0)
 Movea.l8(A6),A0 ; Font size.
 Move.w TempSize(A4),(A0)
 Move.b #True,20(A6) ; Return True.
 
DCancel 
 HideWindow FontDPtr
 LMDisposeNameListH(A4)   ; Font Name List.
 LMDisposeSizeListH(A4)   ; Font Size List.
 TEDisposeSample(A4) ; Sample Text Edit Record.
 CloseDialog   FontDRec(A5)
 HUnLockFontMap(A5); FontMap .
 HUnLockTextCursor(A4)  ; iBeamCursor resource.
 SetPenStatepnState(A4)   ; Restore the pen settings.
 DisposePtr FontDPtr ; Font Dialog Data Record.

 Movem.l(SP)+,D0-D7/A0-A4 ; Restore registers.
 Unlk   A6
 Movea.l(SP)+,A0 ; Pop args & return.
 Add.l  #12,SP
 Jmp    (A0)
 
Style
 Move.w TempFace(A4),D2 ; Store for comparison later.
 Movea.l12(A6),A0; Obtain original style values
 Move.w (A0),D0  ; and retain lower five bits.
 Andi.w #%00011111,D0
 Andi.w #%11100000,TempFace(A4)  ; Clear the lower 5 bits. 
 Or.w   D0,TempFace(A4) ; Combine the two together.
 Bra.s  SetStyle
SStyle  
 Move.w TempFace(A4),D2 ; Store for comparison later.
 Move.w ItemHit(A4),D0  ; Get the itemNo that was hit.
 Subq.w #4,D0
 Bchg.b D0,TempFace+1(A4) ; Toggle the selected item.
SetStyle
 Cmp.w  TempFace(A4),D2   ; Has the face altered?
 Beq.s  @1; No -> @1
 Move.w TempFace(A4),D0
 ; Routine SControl (StItem, NofItems, ValueBits : Integer)
 Move.w #4,-(SP) ; Item No 4.
 Move.w #5,-(SP) ; 5 Items (check boxes).
 Move.w D0,-(SP) ; Bits to set.
 Bsr    SControl
 Btst.b #OkActive,DFlags(A4); Are Dialog selections valid.
 Beq.s  @1; No, don't update the sample.
 Bclr.b #SRect,DFlags(A4) ; Erase Sample if it hasn't
 Beq.s  @0; been already.
 EraseRectSampleRect(A4)
@0 Bset.b #SUpdate,DFlags(A4) ; Window requires updating.
 Move.l Ticks,SampleTicks(A4)
@1 Jmp  WaitOk

Spacing
 Move.w TempFace(A4),D2 ; Store for comparison later.
 Movea.l12(A6),A0; Obtain the original style values.
 Move.w (A0),D0
 Bra.s  SetSpacing
SSpacing
 Move.w TempFace(A4),D2 ; Store for comparison later.
 Move.w ItemHit(A4),D1  ; Get the item No that was hit.
 Sub.w  #11,D1   ; Produce in D0 a byte that
 Move.w #%00010000,D0; represents which bit to set.
 Lsl.b  D1,D0
SetSpacing
 Andi.w #%11100000,D0; Clear the lower 5 bits.
 Andi.w #%00011111,TempFace(A4)  ; Clear the top 3 bits.
 Or.w   D0,TempFace(A4) ; Combine the two together.
 Cmp.w  TempFace(A4),D2 ; Has the face altered?
 Beq.s  @2; No -> @2
 Move.w TempFace(A4),D0 ; Produce in the first 3 bits
 Andi.w #%01100000,D0; of D0 the settings of the
 Bne.s  @0; 3 radio buttons.
 Move.w #%00010000,D0
@0 Lsr.b#4,D0
 ; Routine SControl (StItem, NofItems, ValueBits : Integer)
 Move.w #11,-(SP); Item No 11.
 Move.w #3,-(SP) ; 3 Items (radio buttons).
 Move.w D0,-(SP) ; Bits to set.
 Bsr    SControl
 Btst.b #OkActive,DFlags(A4); Are Dialog selections valid.
 Beq.s  @2; No, don't update the sample.
 Bclr.b #SRect,DFlags(A4); Erase Rect if it hasn't
 Beq.s  @1; been already.
 EraseRectSampleRect(A4)
@1 Bset.b #SUpdate,DFlags(A4) ; Window requires updating.
 Move.l Ticks,SampleTicks(A4)
@2 Jmp  WaitOk


SControl
 ; Routine SControl (StItem, NofItems, ValueBits : Integer)    
 Link   A6,#0
 ; StItem 12(A6) Start Item number
 ; NofItems 10(A6) Number of Items
 ; ValueBits   8(A6) Values of the items
 ; Return address4(A6)
 ; Old A6 (A6)
 
SetControl
 GetDItem FontDPtr,12(A6),Itemtype(A4),Item(A4),ItemBox(A4)
 Clr.w  D0; Set D0 to 1 if the item
 Lsr.W  8(A6)    ; is to be set or 0 if its not.
 Bcc.s  @1
 Addq.w #1,D0
@1 SetCtlValue   Item(A4),D0
 Addq.w #1,12(A6); Increment the item No counter.
 Sub.w  #1,10(A6); Any more items to process?
 Bne.s  SetControl ; Yes -> SetControl.
 
 Unlk   A6
 Movea.l(SP)+,A0 ; Pop args & return.
 Add.l  #6,SP
 Jmp    (A0)
 
 
FontName

The user has made a new selection from the Font Name Selection Window, either a new font name or none. TempFont will change.

 Bclr.b #SRect,DFlags(A4) ; Erase Rect if it hasn't
 Beq.s  @0; been already.
 EraseRectSampleRect(A4)
@0 Move.w NameCell+v(A4),D0 ; Update the font number in
 Bmi.s  @1; TempFont with the number
 Mulu   #6,D0    ; of the font selected .
 Move.w 2(A3,D0.W),TempFont(A4)
 Cmpi.w #0,TempSize(A4)
 Beq.s  @2
 Bset.b #OkActive,DFlags(A4); selections are valid.
 Bset.b #SUpdate,DFlags(A4) ; Window requires updating.
 Move.l Ticks,SampleTicks(A4)
 Bra.s  @3
@1 Move.w #-1,TempFont(A4); No Font Name is selected.
@2 Bclr.b #OkActive,DFlags(A4); selections aren't valid.
@3 Jsr  LdSizes  ; Update Font Size Selection Window.
 GetDItem FontDPtr,#19,Itemtype(A4),Item(A4),ItemBox(A4)
 EraseRect  ItemBox(A4)
 LMUpdate VisRgn(A4),SizeListH(A4)
 Jmp    WaitOk


FontSize

The user has made a new selection from the Font Size Selection Window, either a new font name or none. TempSize might not change.

 Move.w TempSize(A4),D2   ; Store for comparison later.
 Move.w NameCell+v(A4),D0
 Bmi.s  @0; No Font Name selected.
 Mulu   #6,D0
 Move.w 2+4(A3,D0.W),D0 ; Offset to font's size list.
 Lea    (A3,D0.W),A0 ; Address of the size list.
 Move.w SizeCell+v(A4),D0
 Bmi.s  @0; No Font Size selected.
 Lsl.w  #1,D0
 Move.w 2(A0,D0.W),TempSize(A4)  ; Store new font size.
 Cmp.w  TempSize(A4),D2   ; Has the size altered?
 Beq.s  @0; No -> @0
 Jsr    SetEditSize; Update the textedit window.
@0 Jmp  WaitOk
 
 
GetEditSize

Convert the text in the font size text edit window into a number to update TempSize. TempSize might not have changed, if the mouse is clicked within the font size text edit window this routine is called.

 GetDItem FontDPtr,#20,Itemtype(A4),Item(A4),ItemBox(A4)
 GetIText Item(A4),thename(A4)
 Lea    thename(A4),A0
 _StringToNum
 Cmpi.w #4,D0
 Blt    @2; if <4
 Cmpi.w #127,D0
 Bgt    @2; if >127
 Cmp.w  TempSize(A4),D0   ; Has the size altered?
 Beq.s  @1; No -> @1
 Move.w D0,TempSize(A4)   ; Yes -> update TempSize.
 Cmp.w  #-1,TempFont(A4)  ; Is there a valid font name?
 Beq.s  @3; No -> @3
 Bset.b #OkActive,DFlags(A4); selections are valid.
 Bclr.b #SRect,DFlags(A4) ; Erase Rect if it hasn't
 Beq.s  @0; been already.
 EraseRectSampleRect(A4)
@0 Bset.b #SUpdate,DFlags(A4) ; Window requires updating.
 Move.l Ticks,SampleTicks(A4)
@1 Jmp  WaitOk

@2 Clr.wTempSize(A4) ; Indicate its outside limits.
@3 Bclr.b #OkActive,DFlags(A4); selections aren't valid.
 Bclr.b #SRect,DFlags(A4) ; Erase Rect if it hasn't
 Beq.s  @4; been already.
 EraseRectSampleRect(A4)
@4 Jmp  WaitOk


FontSample
 Jsr    SampleWindow ; update the attributes
 TEUpdate SampleRect(A4),Sample(A4)
 Bclr.b #SUpdate,DFlags(A4) ; Window has been updated.
 Bset.b #SRect,DFlags(A4) ; Sample Rect isn't blank.
 Jmp    WaitOk


SetEditSize

Setup the font size text edit item. To access this routine there must be a valid font name.

 GetDItem FontDPtr,#20,Itemtype(A4),Item(A4),ItemBox(A4)
 Clr.l  D7
 Move.w TempSize(A4),D7   
 Cmpi.w #4,D7
 Blt    @1; if <4
 Cmpi.w #127,D7
 Bgt    @1; if >127
 Bset.b #OkActive,DFlags(A4); selections are valid.
 Bclr.b #SRect,DFlags(A4) ; Erase Sample if it hasn't
 Beq.s  @0; been already.
 EraseRectSampleRect(A4)
@0 Bset.b #SUpdate,DFlags(A4) ; Window requires updating.
 Move.l Ticks,SampleTicks(A4)
 Lea    thename(A4),A0    ; Load thename pointer.
 Move.l D7,D0
 _NumToString
 Move.l Item(A4),-(SP)  ; Set the item text to the new
 Move.l A0,-(SP) ; number string.
 _SetIText
 
 Move.l FontDPtr,-(SP)
 Move.w #20,-(SP); Select complete text in the item.
 Move.w #0,-(SP)
 Move.w #255,-(SP)
 _SelIText
 Rts

@1 Clr.wTempSize(A4) ; Indicate it's outside limits.
 Bclr.b #OkActive,DFlags(A4); selections aren't valid.
 Bclr.b #SRect,DFlags(A4) ; Erase Sample if it hasn't
 Beq.s  @2; been already.
 EraseRectSampleRect(A4)
@2 Rts

 
LdNames
 ; Load the NameList  with the font names stored in FontMap.
 ; Function LAddRow (count, rowNum: Integer; lHandle: ListHandle): Integer
 Subq.l #2,SP
 Move.w (A3),-(SP) ; The number of font names - 1.
 Move.w #0,-(SP)
 Move.l NameListH(A4),-(SP)
 _LAddRow
 Addq.l #2,SP
 
 Clr.w  D7; Loop counter (the # of fonts -1).
@0 Move.w D7,D6
 Mulu   #6,D6    ; Point to the next font info.
 Move.w 2(A3,D6.W),D0; Obtain the font's number.
 Cmp.w  TempFont(A4),D0 ; Is this font to be selected?
 Bne.s  @1; No -> @1.
 Move.w D7,NameCell+v(A4) ; cell # into NameCell+v.
@1 Move.w 2+2(A3,D6.W),D6 ; Obtain the font's name offset.

 ; Procedure LSetCell (dataPtr: Ptr; dataLen: Integer; theCell: Cell; 
lHandle: ListHandle)
 Pea    1(A3,D6.W) ; Address of the name (string).
 Clr.w  D0
 Move.b (A3,D6.W),D0 ; Length of the name.
 Move.w D0,-(SP) 
 Move.w #0,-(SP) ; Cell column #.
 Move.w D7,-(SP) ; Cell row #.
 Move.l NameListH(A4),-(SP)
 _LSetCell
 
 Addq.w #1,D7    ; Increment the loop counter.
 Cmp.w  (A3),D7  ; Loaded all font names yet?
 Ble.s  @0; No -> @0.

Select the cell containing the font name which corresponds to the font number passed to the FontDialog Routine. If the font number isn't associated with one of the fonts on the current system file then don't select any name.

 Cmpi.w #-1,NameCell+v(A4); Cell to be selected?
 Beq.s  @2; No -> @2
 LMSetSelect   #True,NameCell(A4),NameListH(A4)
 
 DeRefHndle NameListH(A4),A0; Scroll if selected cell
 Move.w visible+bottom(A0),D6 ; isn't visible, ie 
 ;the last visible cell is
 Cmp.w  NameCell+v(A4),D6 ; less than selected cell.
 Bgt.s  @2
 LMAutoScroll  NameListH(A4)
 
@2 LMDoDraw #True,NameListH(A4)  ; Drawing on.
 Rts
 
LdSizes
 ; load SizeList with font sizes of TempFont in FontMap.
 LMDoDraw #False,SizeListH(A4); Drawing off.
 LMDelRow #0,#0,SizeListH(A4) ; Delete all the rows.
 Move.l #$FFFF0000,SizeCell(A4)
 Move.w TempFont(A4),D4 ;The font number.
 Bmi    @5; -ve, no font number passed to FontDialog.
 
 Clr.w  D7; Loop counter.
@1 Move.w D7,D6
 Mulu   #6,D6    ; Point to the next font info.
; Compare the font number with the font number that was passed 
; to the FontDialog Routine.
 Cmp.w  2(A3,D6.W),D4; Match?
 Beq.s  @2; Yes -> @2.
 Addq.w #1,D7    ; Increment the loop counter.
 Cmp.w  (A3),D7  ; Looked at all font numbers yet?
 Ble.s  @1; No ->@1.
 Bra    @5; Yes & no match was found.
 
@2 Move.w 2+4(A3,D6.W),D7 ; Offset to font size list.
 Move.w (A3,D7.W),D6 ; The number of font sizes.
 ; Procedure LAddRow (count, rowNum: Integer; lHandle: ListHandle): Integer
 Subq.l #2,SP
 Move.w D6,-(SP) ; Number of rows to add.
 Move.w #0,-(SP)
 Move.l SizeListH(A4),-(SP)
 _LAddRow
 Addq.l #2,SP
 
 Clr.w  D6; Setup the loop counter.
@3 Move.w D6,D5  ; Create an offset within size list.
 Lsl.w  #1,D5
 Add.w  D7,D5    ; Offset from the start of FontMap.
 Clr.l  D0; Clear .L for NumToString.
 Move.w 2(A3,D5.W),D0; A font size.
 Cmp.w  TempSize(A4),D0 ; Is this the selected size?
 Bne.s  @4; No -> @4.
 Move.w  D6,SizeCell+v(A4); Store cell number to  select
@4 Lea  thename(A4),A0
 _NumToString
 ; Procedure LSetCell (dataPtr: Ptr; dataLen: Integer; theCell: Cell; 
lHandle: ListHandle)
 Pea    1(A0)    ; Address of the Size (string).
 Clr.w  D0
 Move.b (A0),D0  ; Length of the Size.
 Move.w D0,-(SP)
 Move.w #0,-(SP) ; Cell column #.
 Move.w D6,-(SP) ; Cell row #.
 Move.l SizeListH(A4),-(SP)
 _LSetCell
 
 Addq.w #1,D6    ; Increment the loop counter.
 Cmp.w  (A3,D7.W),D6 ; Loaded all font sizes yet?
 Blt.s  @3; No -> @3.

Select the cell containing the font size which corresponds to the font size passed to the FontDialog Routine. If the font doesn't have the size selected, do nothing.

 Cmpi.w #-1,SizeCell+v(A4); Cell to be selected?
 Beq.s  @5; No -> @5
 LMSetSelect   #True,SizeCell(A4),SizeListH(A4)
 
 DeRefHndle SizeListH(A4),A0
 ; Scroll if the selected cell isn't
 Move.l (A0),A0  ; visible, ie last visible cell is
 Move.w visible+bottom(A0),D6 ; less than selected cell.
 Cmp.w  SizeCell+v(A4),D6
 Bgt.s  @5
 LMAutoScroll  SizeListH(A4)
 
@5 LMDoDraw #True,SizeListH(A4)  ; Drawing on.
 Rts


SampleWindow
 ; Update the sample TextEdit Record with the currently
 ; selected font attributes.
 Btst.b #OkActive,DFlags(A4); Are the selections valid?
 Beq    @0; No -> @0
 TextFont TempFont(A4)    ; Font number
 TextFace TempFace(A4)    ; Font style
 TextSize TempSize(A4)    ; Font size
 GetFontInfoinfo(A4)
 
 DeRefHndle Sample(A4),A0
 Move.w TempFont(A4),teFont(A0)    ; teFont
 Move.b TempFace+1(A4),teFace(A0)  ; teFace
 Move.w TempSize(A4),teSize(A0)    ; teSize
 Move.w info+ascent(A4),teAscent(A0) ; teAscent
 Move.w info+ascent(A4),D0; teLineHite
 Add.w  info+descent(A4),D0
 Add.w  info+leading(A4),D0
 Move.w D0,teLineHite(A0)
 Move.l teViewRect+topLeft(A0),teDestRect+topLeft(A0)
 Move.l teViewRect+botRight(A0),teDestRect+botRight(A0)
 Mulu   teNLines(A0) ,D0  ; Height of the sample text.
 Move.w SampleRect+bottom(A4),D1
 Sub.w  SampleRect+top(A4),D1
 Cmp.w  D0,D1    ; Sample greater than Rect?
 Ble    @0; Yes -> @0
 Sub.w  D0,D1    ; Center the sample
 Lsr.w  #1,D1    ; lines in the middle
 Add.w  D1,teDestRect+top(A0) ; of SampleRect.
@0 Rts


; ------------ Modal Dialog User Filter ---------- 
DUserFilter

 Link A6,#0
 ; Boolean result20(A6)
 ; Dialog (window) pointer16(A6)
 ; Address of the event record12(A6)
 ; Addr of word to fill in item no 8(A6)
 ; Return address4(A6)
 ; Old A6   (A6)

Use the event number as an index into the DEventTable. These 12 events are all the things that could spontaneously happen while the program is in the Modal Dialog event loop.

 Movea.l16(A6),A4; Font Dialog Data Record.
 Move.w #False,20(A6); Set function result to False.
 Movea.l12(A6),A0; Event Records Address.
 Move.w evtNum(A0),D0; Get the event number.
 Lsl.w  #1,D0    ; *2 for table index.
 Move.w DEventTable(D0.W),D0; Point to the routine offset
 Jmp    DEventTable(D0.W) ; and jump to it.
 
DEventTable
 Dc.w DNull-DEventTable   ; Null 
 Dc.w DMouseDown-DEventTable; Mouse Down
 Dc.w DFReturn-DEventTable; Mouse Up (Not used)
 Dc.w DKeyDown-DEventTable; Key Down
 Dc.w DFReturn-DEventTable; Key Up (Not used)
 Dc.w DKeyDown-DEventTable; Auto Key
 Dc.w DUpdate-DEventTable ; Update 
 Dc.w DFReturn-DEventTable; Disk   (Not used)
 Dc.w DActivate-DEventTable ; Activate 
 Dc.w DFReturn-DEventTable; Network  (Not used)
 Dc.w DFReturn-DEventTable; I/O Driver (Not used)

DNull
 GetDItem 16(A6),#20,Itemtype(A4),Item(A4),ItemBox(A4)
 GetMouse loc_pt(A4)
 PtInRect loc_pt(A4),ItemBox(A4) ; Was mouse within the 
 Move.b (SP)+,D0 ; FontSize text edit Rect?
 Beq.s  @0; Yes -> iBeam cursor.
 
 Move.l TextCursor(A4),A0 
 Move.l (A0),-(SP)
 _SetCursor
 Bra    @1
@0 _InitCursor   ; No -> Arrow cursor.

@1 Move.l Ticks,D0 ; If KeyTresh Ticks have passed
 Sub.l  SampleTicks(A4),D0; since last item alteration,
 Cmp.w  KeyThresh,D0 ; update the sample window by
 Blt    DFReturn ; indicating item #21 was hit.
 Btst.b #SUpdate,DFlags(A4)
 Beq    DFReturn
 
 Move.w #21,D0   ; Set the itemNo to 21, Sample
 Bra    DFTReturn


DMouseDown
 Bclr.b #SKey,DFlags(A4)  ; Not a SKey event.
 ; Obtain the (events) mouse location and convert it to 
 ; local coordinates.
 Move.l evtMouse(A0),loc_pt(A4)
 GlobalToLocal loc_pt(A4)
 
; Check to see if the mouse was clicked inside one of the 
; active rectangles. 

Item9
; mouse was pressed down within item No 9? (Style heading) 
 GetDItem FontDPtr,#9,Itemtype(A4),Item(A4),ItemBox(A4)
 PtInRect loc_pt(A4),ItemBox(A4)
 Move.b (SP)+,D0 ; Was the point within the heading?
 Beq.s  Item14   ; No -> check item No 14's Rect.

 ; Routine TrackHeading (theDialog: DialogPtr; itemNo: Integer): Boolean
 Subq.l #2,SP    ; Set up for the result.
 Move.l FontDPtr,-(SP)
 Move.w #9,-(SP)
 Bsr    TrackHeading
 Move.b (SP)+,D0 ; Was the mouse up within the item?
 Beq    SetoNull ; No, Convert event to null & return    .
 Move.w #9,D0    ; Yes, return True & the item No 9.
 Bra    DFTReturn
 
Item14
;mouse was pressed down within item No 14? (Spacing heading).
 GetDItem FontDPtr,#14,Itemtype(A4),Item(A4),ItemBox(A4)
 PtInRect loc_pt(A4),ItemBox(A4)
 Move.b (SP)+,D0 ; Was the point within the heading?
 Beq    Item17   ; No -> check item No 17's Rect.

 Subq.l #2,SP
 Move.l FontDPtr,-(SP)
 Move.w #14,-(SP)
 Bsr    TrackHeading
 Move.b (SP)+,D0 ; Was the mouse up within the item?
 Beq    SetoNull ; No, Convert event to null & return    .
 Move.w #14,D0   ; Yes, return True & the item No 14.
 Bra    DFTReturn

Item17
; mouse was pressed down within item No 17?
; The Font Name Selection Window.
 GetDItem FontDPtr,#17,Itemtype(A4),Item(A4),ItemBox(A4)
 Addi.w #15,ItemBox+right(A4) ; include vertical scroll
 PtInRect loc_pt(A4),ItemBox(A4)
 Move.b (SP)+,D0 ; Was the point within the rect?
 Beq    Item19   ; No -> check item No 19's rect.

If a new selection is made return true and the item number, otherwise set the event to a null event and return.

 ; Function LClick (pt: Point; modifiers: Integer; lHandle: ListHandle): 
Boolean
 Subq.l #2,SP
 Move.l loc_pt(A4),-(SP)
 Movea.l12(A6),A0
 Move.w evtMeta(A0),-(SP)
 Move.l NameListH(A4),-(SP)
 _LClick
 Addq.l #2,SP
 
 Clr.l  TempCell(A4)
 LMGetSelect   #True,TempCell(A4),NameListH(A4)
 Move.b (SP)+,D0 ; Is there a selected cell?
 Bne    @0; Yes -> @0.
 Move.l #$FFFF0000,TempCell(A4)  ; No set TempCell to 0,-1.
@0 Move.l TempCell(A4),D0 ; Has the selected cell changed?
 Cmp.l  NameCell(A4),D0
 Beq    SetoNull ; No -> SetoNull.
 Move.l D0,NameCell(A4) ; Yes, return True & item No 17.
 Move.w #17,D0
 Bra    DFTReturn
 
Item19
; Check to see if the mouse was pressed down within item No 19. 
; The Font Size Selection Window.
 GetDItem FontDPtr,#19,Itemtype(A4),Item(A4),ItemBox(A4)
 Addi.w #15,ItemBox+right(A4) 
 PtInRect loc_pt(A4),ItemBox(A4)
 Move.b (SP)+,D0 ; Was the point within the rect?
 Beq    DFReturn ; No -> DFReturn.
 
 If a new selection is made return true and the item number, otherwise 
set the event to a null event and return.

 Subq.l #2,SP
 Move.l loc_pt(A4),-(SP)
 Movea.l12(A6),A0
 Move.w evtMeta(A0),-(SP)
 Move.l SizeListH(A4),-(SP)
 _LClick
 Addq.l #2,SP
 
 Clr.l  TempCell(A4)
 LMGetSelect   #True,TempCell(A4),SizeListH(A4)
 Move.b (SP)+,D0 ; Is there a selected cell?
 Bne    @0; Yes -> @0.
 Move.l #$FFFF0000,TempCell(A4)
@0 Move.l TempCell(A4),D0 ; Has selected cell changed?
 Cmp.l  SizeCell(A4),D0
 Beq    SetoNull ; No -> SetoNull.
 Move.l D0,SizeCell(A4) ; Yes, return True & item No 19.
 Move.w #19,D0
 Bra    DFTReturn

DKeyDown

Examine the key that was pressed, if it was a 'cr' or 'enter' then that is equivalent to clicking the Ok button.

 Move.l evtMessage(A0),D0 
 Cmpi.b #crCode,D0 ; Was the cr key pressed?
 Beq.s  @1; Yes -> @1.
 Cmpi.b #enterCode,D0; Was the enter key pressed?
 Bne.s  @2; No -> @2.
@1 Move.w #1,D0  ; Set the item No to Ok button.
 Bra    DFTReturn; Item No 1 - Ok.

@2 ; 

If the key pressed was the back space key or a number then deselect the cell in the Font Size Selection Window (if there is one selected), then return, allowing the number or 'bs' to be used to alter the FontSize

 ; text edit data.
 Cmpi.b #bsCode,D0 ; Was the bs key pressed?
 Beq.s  @3; Yes -> @3.
 Cmpi.b #$30,D0
 Blt.s  NameSearch
 Cmpi.b #$39,D0
 Bgt.s  NameSearch
@3 Bclr.b #SKey,DFlags(A4); Not a SKey event.
 Cmpi.l #$FFFF0000,SizeCell(A4)  ; If a cell is selected,
 Beq    DFReturn ; deselect it, 
 LMSetSelect   #False,SizeCell(A4),SizeListH(A4)   ; let the
 ; default routine 
 Move.l #$FFFF0000,SizeCell(A4)  ; handle the event.
 Bra    DFReturn

NameSearch
 Lea    search(A4),A2
 Bset.b #SKey,DFlags(A4)  ; Was last event a SKey event?
 Beq.s  @0; No -> @0
 Move.l evtTicks(A0),D1   ; Yes -> If this key down
 Sub.l  SampleTicks(A4),D1;  within KeyThresh Ticks
 Cmp.w  KeyThresh,D1 ;  continue the search string
 Blt.s  @1; else, reset search string.
@0 Clr.b(A2); Continue.
@1 Addq.b #1,(A2); Reset.
 Move.l evtTicks(A0),SampleTicks(A4) 
 Clr.w  D1; If search string is greater than
 Move.b (A2),D1  ; 32, SetoNull.
 Cmpi.b #31,D1
 Bgt    SetoNull
 Move.b D0,(A2,D1.w) ; Add char to string.
 
 DeRefHndle FontMap(A5),A3
 Clr.w  D7; Set loop counter.
@2 Move.w D7,D6
 Mulu   #6,D6    ; Offset to next font info.
 Move.w 2+2(A3,D6.w),D6 ; Offset to name string.

 ; Function IUMagString (aPtr, bPtr: Ptr; aLen, bLen: Integer): Integer
 Subq.l #2,SP
 Pea    1(A3,D6.w) ; Address of FontName string.
 Pea    1(A2)    ; Address of search string.
 Clr.w  D0
 Move.b (A3,D6.w),D0
 Move.w D0,-(SP) ; Length of FontName string.
 Move.b (A2),D0
 Move.w D0,-(SP) ; Length of search string.
 _IUMagString
 Move.w (SP)+,D0 ; Was the FontName => ?
 Bpl.s  @3; Yes -> @3
 
 Addq.w #1,D7    ; Have all the fonts been 
 Cmp.w  (A3),D7  ; looked at?
 Blt    @2; No -> @2
 
@3 ; Is the desired cell selected?
 ; Yes -> Don't do anything.
 ; No -> Deselect existing cell & select new cell.
 Cmp.w  NameCell+v(A4),D7
 Beq    SetoNull
 LMSetSelect#False,NameCell(A4),NameListH(A4)
 Move.w D7,NameCell+v(A4)
 LMSetSelect#True,NameCell(A4),NameListH(A4)
 
 DeRefHndle NameListH(A4),A0; If selected cell isn't
 Cmp.w  visible+top(A0),D7; visible then AutoScroll.
 Blt.s  @4; else continue.
 Cmp.w  visible+bottom(A0),D7
 Blt.s  @5
@4 LMAutoScroll  NameListH(A4)
@5 Move.w #17,D0
 Bra    DFTReturn


DUpdate
 Bclr.b #SKey,DFlags(A4)  ; Not a SKey event.
 SetPortFontDPtr
 BeginUpdateFontDPtr
 DrawControls  FontDPtr

; Update itemNo 1
 ; The BoldBox around the Ok button.
 GetDItem FontDPtr,#1,Itemtype(A4),Item(A4),ItemBox(A4)
 InsetRectItemBox(A4),#-4,#-4
 PenSize#3,#3
 FrameRoundRect  ItemBox(A4),#16,#16
 _PenNormal
 
; Update itemNo 3 
 ; The Static Text heading "Character Font & Attributes".
 GetDItem FontDPtr,#3,Itemtype(A4),Item(A4),ItemBox(A4)
 GetIText Item(A4),thename(A4)
 Lea    thename(A4),A0  ; Address of the text.
 Clr.l  D0
 Move.b (A0)+,D0 ; Length of the text.
 TextBox  A0,D0,ItemBox(A4),#0
 
; Update the Font Style Selection Window 
 ; The ThinBox around the Style Check Boxes  (item No 10).
 GetDItem FontDPtr,#10,Itemtype(A4),Item(A4),ItemBox(A4)
 FrameRectItemBox(A4)

 ; The Static Text heading "Style" (item No 9).    
 GetDItem FontDPtr,#9,Itemtype(A4),Item(A4),ItemBox(A4)
 GetIText Item(A4),thename(A4)
 Lea    thename(A4),A0  ; Address of the text.
 Clr.l  D0
 Move.b (A0)+,D0 ; Length of the text.
 TextBox  A0,D0,ItemBox(A4),#0
 
; Update the Font Spacing Selection Window
 ; The ThinBox around the Style Check Boxes  (item No 15).
 GetDItem FontDPtr,#15,Itemtype(A4),Item(A4),ItemBox(A4)
 FrameRectItemBox(A4)

 ; The static text heading "Spacing" (item No 14). 
 GetDItem FontDPtr,#14,Itemtype(A4),Item(A4),ItemBox(A4)
 GetIText Item(A4),thename(A4)
 Lea    thename(A4),A0    ; Address of the text.
 Clr.l  D0
 Move.b (A0)+,D0 ; Length of the text.
 TextBox  A0,D0,ItemBox(A4),#0
 
; Update itemNo 16
 ; The Static Text heading "Font Name:".
 GetDItem FontDPtr,#16,Itemtype(A4),Item(A4),ItemBox(A4)
 GetIText Item(A4),thename(A4)
 Lea    thename(A4),A0    ; Address of the text.
 Clr.l  D0
 Move.b (A0)+,D0 ; Length of the text.
 TextBox  A0,D0,ItemBox(A4),#0

; Update itemNo 17
 ; The Font Name Selection Window.
 GetDItem FontDPtr,#17,Itemtype(A4),Item(A4),ItemBox(A4)
 InsetRect  ItemBox(A4),#-1,#-1
 EraseRect  ItemBox(A4)
 FrameRect  ItemBox(A4)
 LMUpdate VisRgn(A4),NameListH(A4)
 
; Update itemNo 18
 ; The Static Text heading "Font Size:".
 GetDItem FontDPtr,#18,Itemtype(A4),Item(A4),ItemBox(A4)
 GetIText Item(A4),thename(A4)
 Lea    thename(A4),A0    ; Address of the text.
 Clr.l  D0
 Move.b (A0)+,D0 ; Length of the text.
 TextBox  A0,D0,ItemBox(A4),#0
 
; Update itemNo 19
 ; The Font Size Selection Window.
 GetDItem FontDPtr,#19,Itemtype(A4),Item(A4),ItemBox(A4)
 InsetRect  ItemBox(A4),#-1,#-1
 EraseRect  ItemBox(A4)
 FrameRect  ItemBox(A4)
 LMUpdate VisRgn(A4),SizeListH(A4)
 
; Update itemNo 20
 ; The TextEdit text item.
 GetDItem FontDPtr,#20,Itemtype(A4),Item(A4),ItemBox(A4)
 EraseRect  ItemBox(A4)
 TEUpdate ItemBox(A4),teHandle(A4)
 InsetRect  ItemBox(A4),#-3,#-3
 FrameRect  ItemBox(A4) ; Frame the textedit item.

; Update itemNo 21
 ; Update the Sample Text Window.
 EraseRect  SampleRect(A4)
 Bclr.b #SRect,DFlags(A4)
 Btst.b #OkActive,DFlags(A4); Are selections valid?
 Beq    @0; No -> @0
 TEUpdate SampleRect(A4),Sample(A4); Yes -> update sample
 Move.l Ticks,SampleTicks(A4) ;  and associated
 Bclr.b #SUpdate,DFlags(A4) ; variables.
 Bset.b #SRect,DFlags(A4)

@0 EndUpdateFontDPtr
 Bra    SetoNull
 
DActivate

Check first to see if this activate event is associated with this Dialog Window, compare the Dialog Window's pointer to that of the Window pointerin the event record. A0 contains the address of the event record.

 Move.l FontDPtr,D0
 Cmp.l  evtMessage(A0),D0
 Bne    DFReturn ; Event not related to Dialog.
 
 Bclr.b #SKey,DFlags(A4)  ; Not a SKey event.
 SetPortFontDPtr
 Movea.l12(A6),A0; Address of the event record.
 Move.w evtMeta(A0),D0  ; Obtain the modify word.
 Lsr    #1,D0    ; Check Bit 0 to see if its
 Bcc    DDeactivate; Activate or Deactivate.
 
 TEActivate teHandle(A4)
 LMActivate #True,NameListH(A4)
 LMActivate #True,SizeListH(A4)
 Bra    SetoNull

DDeactivate
 TEDeactivate  teHandle(A4)
 LMActivate #False,NameListH(A4)
 LMActivate #False,SizeListH(A4)
 Bra    SetoNull 

SetoNull
 Movea.l12(A6),A0; Obtain the address of the Event
 Clr.w  evtNum(A0) ; Record & set it to a null event.
 Bra.s  DFReturn
DFTReturn
 Move.b #True,20(A6) ; Dialog Filter (True) Return.
 Movea.l8(A6),A0
 Move.w D0,(A0)
DFReturn; Dialog Filter Return.
 Unlk   A6
 Movea.l(SP)+,A0 ; Pop args & return.
 Add.l  #12,SP
 Jmp    (A0)
 
TrackHeading
 Link   A6,#-22
 ; Boolean result 14(A6)
 ; theDialog pointer  10(A6)
 ; itemNo   8(A6)
 ; Return address  4(A6)
 ; Old A6     (A6)
 ; Temporary Region Handle No1 -4(A6)
 ; Temporary Region Handle No2    -8(A6)
 ; Vis boolean   -10(A6)
 ; Mouse Location-14(A6)
 ; Temporary Rectangle    -22(A6)
 
 Move.b #False,14(A6); Set up to return False.
 
; Get Rect of user item that surrounds the headings control 
; items (check boxes or radio buttons).
 Addq.w #1,8(A6)
 GetDItem 10(A6),8(A6),Itemtype(A4),Item(A4),-22(A6)
 
; Create a region and store the current clipping region. 
 NewRgn
 Move.l (SP),-4(A6); Store the regions handle.
 _GetClip

Create a new clipping region which is the user item's rect inset by 1 pixel on all sides minus the intersection rectangle of the heading's rect and the newly created rect.

 NewRgn
 Move.l (SP),-8(A6); Store the regions handle.
 InsetRect  -22(A6),#1,#1
 _OpenRgn
 FrameRect-22(A6)

Find the rectangle that is the intersection of ItemBox(A4) and -22(A6). If they intersect then remove that rectangle from the clipping region.

 SectRect ItemBox(A4),-22(A6),TempRect
 Move.b (SP)+,D0 ; Was there an intersection?
 Beq.s  @1; No -> @1.
 FrameRectTempRect
@1 _CloseRgn; handle is already on stack.
 SetClip-8(A6)   ; Set up the new clipping region.

 PenSize  #1,#1
 PenMode#10 ; Inverts what ever is drawn over.
 
; Draw the rectangle in question, giving the user the 
; impression that they have selected the heading.
 FrameRect-22(A6)
 Move.b #True,-10(A6); Set the vis byte to True.
 
Track 
 StillDown
 Move.b (SP)+,D0 ; Is the mouse button still down?
 Beq    @1; No -> @1.
 GetMouse -14(A6)
 PtInRect -14(A6),ItemBox(A4)
 Move.b (SP)+,D0 ; Has the mouse entered or
 Cmp.b  -10(A6),D0 ; left the item's rect?
 Beq.s  Track    ; No -> Track.
 FrameRect-22(A6); Yes -> toggle the rectangle.
 Eori.b #1,-10(A6) ; Toggle the visible byte.
 Bra.s  Track
 
@1 Move.b -10(A6),D0 ; Is the rect visible?
 Beq.s  @2; No -> Return False.
 FrameRect-22(A6); Yes -> Remove the rectangle &   
 Move.b #True,14(A6) ; return True.
@2 _PenNormal  
 SetClip-4(A6)   ; Reset to its original setting.
 DisposeRgn -4(A6) ; Dispose of two temporary regions.
 DisposeRgn -8(A6)
 
 Unlk   A6
 Movea.l(SP)+,A0 ; Pop args & return.
 Add.l  #6,SP
 Jmp    (A0)
 
; ---------- Variables ------ 

FontDRecDs.l1


;--------------- SetupFontMap -----------------

; Written by Ray.A.Cameron
; Version 1.0
; Mon May 4, 1988 21:41:50

XDef    SetupFontMap ; Routine's name
XDef    FontMap  ; Global location for the FontMap's Handle


;---------- Includes -------------

Include Traps.D  ; Use System and ToolBox traps
Include PackMacs.Txt ; Use Package Equates

; ---------- Equates ----------

True    Equ 1
False   Equ 0
FNum    Equ %1111111111000000
FSize   Equ %0000000000111111


SetupFontMap

 Link   A6,#0
 Movem.lD0-D7/A0-A4,-(SP) ; Save register values.
 
 ; Function CountResources (theType: ResType): Integer;
 Clr.w  -(SP)    ; Clear for answer.
 Move.l #'FONT',-(SP); Count number of 'FONT' resources.
 _CountResources
 Clr.l  D7
 Move.w (SP)+,D7 ; Store the result.

Create a non-relocatable block into which will be stored each font resource ID, if the resource has a font size (ie no name).

 Move.l D7,D0  ; Create a size to allow 2 bytes for
 Lsl.w  #1,D0  ; each resource ID.
 _NewPtr,Clear
 Movea.lA0,A4  ; Store pointer to non-relocatable block.
 
 Setup the Resource Manager so that the resources aren't loaded into 
memory.

 ; Procedure SetResLoad (load: Boolean);
 Move.b #False,-(SP) ; Load False
 _SetResLoad
 
 Clr.w  D3; Loop counter (# of font resources).
 Clr.w  D4; Offset into the theID non-relocatable block.
 Clr.w  D5; The number of different fonts.
 Clr.l  D6; The # of bytes to allocate to FontMap.
 ; Setup a non-relocatable block for the name of a resource.
 Move.l #256,D0  ; The # of bytes required.
 _NewPtr,Clear
 Move.l A0,thename(A5)  ; Store pointer.
 
ExamRes 
 Addq.w #1,D3    ; increment loop counter.

Obtain a handle to a resource with type 'FONT' and an index value from 1-to-CountResources.

 ; Function GetIndResource (theType: resType; index: Integer): Handle;
 Clr.l  -(SP)    ; Space for handle
 Move.l #'FONT',-(SP); Font resource type
 Move.w D3,-(SP) ; Index value
 _GetIndResource
 
 ; Use the handle to obtain the resources ID and name.
 ; The handle is already on the stack.
 Pea    theID(A5); point to theID
 Pea    theType(A5); point to theType
 Move.l thename(A5),-(SP) ; load address of name
 _GetResInfo
 
 Move.w theID(A5),D0 ; Examine theID to see if resource
 Andi.w #FSize,D0; has a font size (ie no name).
 Beq.s  NoSize   ; NoSize, ie a name-> NoSize

Place theID of the font resource (which contains a font size) into the non-relocatable block. Then increment the offset.

 Move.w theID(A5),(A4,D4.W)
 Addq.w #2,D4    ; increment the offset
 Bra.s  Testloop
 
NoSize  
 Movea.lthename(A5),A0

Evaluate the number of bytes to allocate to this font's name in the FontMap. Add this to the running total.

 Clr.l  D0
 Move.b (A0),D0  ; Create an even length for the name
 Bset.l #0,D0    ; (ie add padding if its rEquired).
 Addq.l #1,D0
 Add.l  D0,D6    ; Update the running total.
 Move.l A0,-(SP) ;Place the pointer to the name and 
 Move.w theID(A5),-(SP) ; resource ID onto the stack.
 Addq.w #1,D5  ; Increment the number of different fonts.

Create a new non-relocatable block for the next font resource name.

 Move.l #256,D0  ; The # of bytes required.
 _NewPtr,Clear
 Move.l A0,thename(A5)  ; Store pointer

Testloop
 Cmp.w  D3,D7    ; Have all font resources been
 Bne.s  ExamRes  ; examined, No -> ExamRes
 
 ; Dispose of pointer in thename(A5) 
 Movea.lthename(A5),A0
 _DisposPtr

Setup the Resource Manager so that the resources can be loaded into memory.

 ; Procedure SetResLoad (load: Boolean);
 Move.b #True,-(SP); Load True
 _SetResLoad

Evaluate the number of bytes required for the FontMap. Then create a relocatable block for the FontMap. D6 contains the number of bytes to allocate for the font names in the FontMap.

 Addq.l #2,D6  ; 2 bytes for "the number of fonts"
 Clr.l  D0
 Move.w D5,D0  ; The # of different fonts, each font
 Mulu   #6,D0  ; list rEquires 6 bytes.
 Add.l  D0,D6
 Move.l D0,D3  ; Reserved for later.

The amount of space to allocate for the font sizes is 2 x the number of font resources. This allows one word per entry.

 Lsl.l  #1,D7
 Add.l  D7,D6  ; Grand Total in D6
 
 Move.l D6,D0
 _NewHandle 
 Move.l A0,FontMap(A5)  ; Store the FontMap handle.
 Movea.lA0,A2    ; Copy the handle.
 _HLock ; lock it
 
 Movea.l(A2),A2  ; Obtain the address of the FontMap.
 Subq.w #1,D5    ; The number of fonts- 1.
 Move.w D5,(A2)  ; Store # of fonts- 1 in FontMap.
 
 Lea.l  2(A2,D3.W),A1; start of font name list.
 Lea.l  2(A2),A0 ; start of the font info list.
 
 ; Transfer theID and name pointer onto FontMap from stack.

Transfer
 Move.w (SP)+,(A0)+; theID
 Move.l (SP)+,(A0)+; name pointer.
 Cmpa.l A0,A1  ; Have all the resources been transfered?
 Bne.s  Transfer ; No -> Transfer.
 
 ; The information on the FontMap, in the font info list is now sorted 

 ; so that the first font info has the lowest (alphabetically) name
 ; associated with it.
 Move.w (A2),D7
 Mulu   #6,D7    ; Point to last entry in list
@1 Move.w D7,D6
@2 Subq.w #6,D6
 Bmi.s  @3
 Movea.l2+2(A2,D7.W),A1 ; Load pointer to aStr
 Movea.l2+2(A2,D6.W),A0 ; Load pointer to bStr
 ; Compare the two strings.
 ; Function IUMagString (aPtr, bPtr: Ptr; aLen, bLen: Integer): Integer;
 Clr.w  -(SP)    ; Clear for result.
 Pea    1(A1)    ; Address of aStr
 Pea    1(A0)    ; Address of bStr
 Clr.w  D0
 Move.b (A1),D0
 Move.w D0,-(SP) ; Length of aStr
 Move.b (A0),D0
 Move.w D0,-(SP) ; Length of bStr
 _IUMagString    ; Compare aStr and bStr
 Move.w (SP)+,D0
 Cmpi.w #1,D0    ; Was aStr greater than bstr
 Beq.s  @2; Yes -> @2.
 
 ; Swap the theID and the name pointers over
 Move.w 2(A2,D7.W),D0; Swap theIDs over
 Move.w 2(A2,D6.W),2(A2,D7.W)
 Move.w D0,2(A2,D6.W)
 Move.l 2+2(A2,D7.W),D0 ; Swap the pointers over
 Move.l 2+2(A2,D6.W),2+2(A2,D7.W)
 Move.l D0,2+2(A2,D6.W)
 Bra.s  @2
 
@3 Subq.w #6,D7  ; Shorten the search and repeat until
 Bne.s  @1; the table is completely sorted.

Now that the entries in the font info list have been sorted the font names are loaded into the FontMap and the name pointer is now replaced by a two byte offset, As each font name is loaded its non-relocatable block is disposed of.

 Move.w (A2),D5
 Addq.w #1,D5    ; The number of fonts.
 Mulu   #6,D5
 Addq.w #2,D5
 ; D5 contains the offset to the postion of the first font name.
 
 Clr.w  D7; loop counter (the # of fonts - 1)
LoadNames
 Move.w D7,D6
 Mulu   #6,D6    ; Point to the next font info
 Movea.l2+2(A2,D6.W),A3 ; Obtain pointer to the name.
 Move.w D5,2+2(A2,D6.W) ; Store name offset in FontMap.
 
 ; Perform a BlockMove to load the font's name.
 ; Procedure BlockMove (sourcePtr, destPtr: Ptr; byteCount: Size);
 Clr.l  D0
 Move.b (A3),D0
 Bset.l #0,D0
 Addq.l #1,D0    ; # of bytes required to move.
 Lea    (A3),A0  ; load source address
 Lea    (A2,D5.W),A1 ; load destination address
 Add.w  D0,D5  ; point to next name (offset)
 _BlockMove
 Movea.lA3,A0  ; Dispose of the non-relocatable block
 _DisposPtr ; it's no longer required.
 
 Addq.w #1,D7    ; increment counter
 Cmp.w  (A2),D7
 Ble.s  LoadNames
 
 ; Load the font sizes
 Clr.w  D7; loop counter
LdFSizes
 Lea    (A2,D5.W),A0
 Clr.w  (A0)
 Move.w D7,D6
 Mulu   #6,D6    ; Point to the next font info
 Move.w 2(A2,D6.W),D3; theID of the font
 Move.w D5,4+2(A2,D6.W) ; size list offset in FontMap
 Clr.w  D2; Offset into the theID block
@1 Move.w (A4,D2.W),D0    ; Obtain the next theID
 Andi.w #FNum,D0
 Cmp.w  D3,D0
 Bne.s  @2
 Move.w (A4,D2.W),D0
 Andi.w #FSize,D0
 Addq.w #1,(A0)  ; Increment "# of font sizes" counter
 Move.w (A0),D1  ; Offset to place font size in list
 Lsl.w  #1,D1    ; Doubled to allow for word length.
 Move.w D0,(A0,D1.W) ; Store the font size
@2 Addq.w #2,D2  ; Increment offset counter
 Cmp.w  D2,D4    ; Examined the complete block
 Bgt.s  @1; No -> @1.
 
 ; Sort the font size list in order of smallest to largest.
 Move.w (A0),D3  ; The # of font sizes
 Lsl.w  #1,D3    ; Offset to the last font size
Sort1 
 Move.w D3,D2
Sort2
 Subq.w #2,D2
 Beq.s  Sort3
 Move.w (A0,D3.W),D1
 Cmp.w  (A0,D2.W),D1
 Bgt.s  Sort2
 Move.w (A0,D2.W),(A0,D3.W)
 Move.w D1,(A0,D2.W)
 Bra.s  Sort2
Sort3
 Subq.w #2,D3
 Bne.s  Sort1
 
 ; Convert the font "theID" into the font number
 Move.w 2(A2,D6.W),D3
 Lsr.w  #7,D3
 Move.w D3,2(A2,D6.W)

Update the offset in the FontMap (D5) to point to the location of the font sizes associated with the next font.

 Move.w (A0),D0
 Addq.w #1,D0
 Lsl.w  #1,D0
 Add.w  D0,D5
 
 ; Check to see if there are any more fonts to load into the FontMap.

 Addq.w #1,D7
 Cmp.w  (A2),D7
 Ble.s  LdFSizes

The FontMap has been created, and loaded with its information. Dispose of the theID non-relocatable block and unlock the FontMap.

 Movea.lA4,A0
 _DisposPtr
 Movea.lFontMap(A5),A0
 _HUnlock
 
 ; Restore registers to their original values
 Movem.l(SP)+,D0-D7/A0-A4
 Unlk   A6
 
 Rts
 
; ---------- Variables ----------

theID   Ds.w1  
theType Ds.l1
thename Ds.l1
FontMap Ds.l1    ; Handle of the FontMap.

End

;------------------ FontMacros -------------

; Written by Ray.A.Cameron

; -----  Control Manager Routines

 ; Procedure DrawControls (gp: GrafPort)
 .Macro DrawControls
 Move.l %1,-(SP)
 _DrawControls
 .Endm
 
 ; Procedure HiliteControl (theControl: Control Handle; hiliteState: 
Integer)
 .Macro HiliteControl
 Move.l %1,-(SP)
 Move.w %2,-(SP)
 _HiliteControl
 .Endm

 ; Procedure SetCtlValue (theControl: ControlHandle; theValue: Integer)
 .Macro SetCtlValue
 Move.l %1,-(SP)
 Move.w %2,-(SP)
 _SetCtlValue
 .Endm
 
; -----  Dialog Manager Routines
 ; Procedure CloseDialog (theDialog: DialogPtr)
 .Macro CloseDialog
 Move.l %1,-(SP)
 _CloseDialog
 .Endm
 
 ; Procedure GetDItem (theDialog: DialogPtr; itemNo:Integer;
 ; Var type: Integer; Var item: Handle; Var box: Rect)
 .Macro GetDItem
 Move.l %1,-(SP)
 Move.w %2,-(SP)
 Pea    %3
 Pea    %4
 Pea    %5
 _GetDItem
 .Endm

 ; Procedure GetIText (item: Handle; Var text: Str255)
 .Macro GetIText
 Move.l %1,-(SP)
 Pea    %2
 _GetIText
 .Endm
 
 ; Procedure SetDItem (theDialog: DialogPtr; itemNo: Integer; type: Integer; 
item: Handle; box: Rect)
 .Macro SetDItem
 Move.l %1,-(SP)
 Move.w %2,-(SP)
 Move.w %3,-(SP)
 Pea    %4
 Pea    %5
 _SetDItem
 .Endm
 
; -----  Event Manager Routines

 ; Procedure GetMouse (Var mouseLoc: Point)
 .Macro GetMouse
 Pea    %1
 _GetMouse
 .Endm
 
 ; Function StillDown: Boolean
 .Macro StillDown
 Clr.w  -(SP)
 _StillDown
 .Endm

; -----  List Manager Routines

 ; Procedure LActivate (act: Boolean; lHandle: ListHandle)
 .Macro LMActivate
 Move.b %1,-(SP)
 Move.l %2,-(SP)
 _LActivate
 .Endm
 
 ; Procedure LAutoScroll (lHandle: ListHandle)
 .Macro LMAutoScroll
 Move.l %1,-(SP)
 _LAutoScroll
 .Endm
 
 ; Procedure LDelRow (count, rowNum: Integer; lHandle: ListHandle)
 .Macro LMDelRow
 Move.w %1,-(SP)
 Move.w %2,-(SP)
 Move.l %3,-(SP)
 _LDelRow
 .Endm

 ; Procedure LDispose (lHandle: ListHandle)
 .Macro LMDispose
 Move.l %1,-(SP)
 _LDispose
 .Endm

 ; Procedure LDoDraw (drawIt: Boolean; lHandle: ListHandle)
 .Macro LMDoDraw
 Move.b %1,-(SP)
 Move.l %2,-(SP)
 _LDoDraw
 .Endm
 
 ; Function LGetSelect (next: Boolean; Var theCell: Cell; 
 ; lHandle: ListHandle): Boolean
 .Macro LMGetSelect
 Clr.w  -(SP)
 Move.b %1,-(SP)
 Pea    %2
 Move.l %3,-(SP)
 _LGetSelect
 .Endm
 
 ; Procedure LSetSelect (setIt: Boolean; theCell: Cell; lHandle: ListHandle)
 .Macro LMSetSelect
 Move.b %1,-(SP)
 Move.l %2,-(SP)
 Move.l %3,-(SP)
 _LSetSelect
 .Endm
 
 ; Procedure LUpdate (theRgn: RgnHandle; lHandle: ListHandle)
 .Macro LMUpdate
 Move.l %1,-(SP)
 Move.l %2,-(SP)
 _LUpdate
 .Endm

; -----  Memory Manager Routines

 ; Procedure DisposePtr (p: Ptr)
 ; On Entry A0: p (pointer)
 ; On ExitA0: 0
 ; D0: result code (integer)
 .Macro DisposePtr
 Move.l %1,A0
 _DisposPtr
 .Endm
 
 ; Procedure HLock (h: Handle)
 ; On Entry A0 - h (Handle)
 ; On ExitD0 - result code (integer)
 .Macro HLock
 Movea.l%1,A0
 _HLock
 .Endm
 
 ; Procedure HUnLock (h: Handle);
 ; On Entry A0 - h (Handle)
 ; On ExitD0 - result code (integer)
 .Macro HUnLock
 Movea.l%1,A0
 _HUnLock
 .Endm
 
; -----  Quick Draw Routines

 ; Procedure DisposRgn (rgn: RgnHandle)
 .Macro DisposeRgn
 Move.l %1,-(SP)
 _DisposRgn
 .Endm
 
 ; Procedure EraseRect (r: Rect)
 .Macro EraseRect
 Pea    %1
 _EraseRect
 .Endm
 
 ; Procedure FrameRect (r: Rect)
 .Macro FrameRect
 Pea    %1
 _FrameRect
 .Endm
 
 ; Procedure FrameRoundRect
 .Macro FrameRoundRect
 Pea    %1
 Move.w %2,-(SP)
 Move.w %3,-(SP)
 _FrameRoundRect
 .Endm
 
 ; Procedure GetFontInfo (Var info: FontInfo)
 .Macro GetFontInfo
 Pea    %1
 _GetFontInfo
 .Endm

 ; Procedure GetPenState (Var pnState: PenState)
 .Macro GetPenState
 Pea    %1
 _GetPenState
 .Endm
 
 ; Procedure GlobalToLocal (Var pt: Point);
 .Macro GlobalToLocal
 Pea    %1
 _GlobalToLocal
 .Endm

 ; Procedure InsetRect (Var r: Rect; dh,dv: Integer)
 .Macro InsetRect
 Pea    %1
 Move.w %2,-(SP)
 Move.w %3,-(SP)
 _InsetRect
 .Endm
 
 ; Function NewRgn: Rgn Handle
 .Macro NewRgn
 Clr.l  -(SP)
 _NewRgn
 .Endm
 
 ; Procedure PenMode (mode: Integer)
 .Macro PenMode
 Move.w %1,-(SP)
 _PenMode
 .Endm
 
 ; Procedure PenSize (width, height: Integer)
 .Macro PenSize
 Move.w %1,-(SP)
 Move.w %2,-(SP)
 _PenSize
 .Endm
 
 ; Function PtInRect (pt: Point; r: rect): Boolean
 .Macro PtInRect
 Clr.w  -(SP)
 Move.l %1,-(SP)
 Pea    %2
 _PtInRect
 .Endm
 
 ; Function SectRect (srcRectA, srcRectB: Rect; Var dstRect: Rect): Boolean
 .Macro SectRect
 Clr.w  -(SP)
 Pea    %1
 Pea    %2
 Pea    %3
 _SectRect
 .Endm
 
 ; Procedure SetClip (rgn: RgnHandle)
 .Macro SetClip
 Move.l %1,-(SP)
 _SetClip
 .Endm
 
 ; Procedure SetPenState (pnState: PenState)
 .Macro SetPenState
 Pea    %1
 _SetPenState
 .Endm
 
 ; Procedure SetPort (gp: GrafPort)
 .Macro SetPort
 Move.l %1,-(SP)
 _SetPort
 .Endm
 
 ; Procedure TextFace (face: stlye)
 .Macro TextFace
 Move.w %1,-(SP)
 _TextFace
 .Endm
 
 ; Procedure TextFont (font: Integer)
 .Macro TextFont
 Move.w %1,-(SP)
 _TextFont
 .Endm
 
 ; Procedure TextSize (size: Integer)
 .Macro TextSize
 Move.w %1,-(SP)
 _TextSize
 .Endm
 
; -----  Resource Manager Routines

 ; Function GetResource (theType: ResType; theID: Integer): Handle
 .Macro GetResource
 Clr.l  -(SP)
 Move.l #%1,-(SP)
 Move.w %2,-(SP)
 _GetResource
 .Endm

; -----  Text Edit Routines

 ; Procedure TEActivate (hTE: TEHandle)
 .Macro TEActivate
 Move.l %1,-(SP)
 _TEActivate
 .Endm
 
 ; Procedure TEDeactivate (hTE: TEHandle)
 .Macro TEDeactivate
 Move.l %1,-(SP)
 _TEDeactivate
 .Endm

 ; Procedure TEDispose (hTE: TEHandle)
 .Macro TEDispose
 Move.l %1,-(SP)
 _TEDispose
 .Endm
 
 ; Procedure TEUpdate (rUpdate: Rect; hTE: TEHandle)
 .Macro TEUpdate
 Pea    %1
 Move.l %2,-(SP)
 _TEUpdate
 .Endm
 
 ; Procedure TextBox (text: Ptr; length: LongInt; box :Rect;
 ; just: Integer)
 .Macro TextBox
 Move.l %1,-(SP) 
 Move.l %2,-(SP) 
 Pea    %3
 Move.w %4,-(SP)
 _TextBox
 .Endm

; -----  Window Manager Routines

 ; Procedure BeginUpdate (gp: GrafPort)
 .Macro BeginUpdate
 Move.l %1,-(SP)
 _BeginUpdate
 .Endm
 
 ; Procedure EndUpdate (WindowPtr: WindowPtr)
 .Macro EndUpdate
 Move.l %1,-(SP)
 _EndUpdate
 .Endm
 
 ; Procedure HideWindow (theWindow: WindowPtr)
 .Macro HideWindow
 Move.l %1,-(SP)
 _HideWindow
 .Endm
 
 ; Procedure ShowWindow (theWindow: WindowPtr)
 .Macro ShowWindow
 Move.l %1,-(SP)
 _ShowWindow
 .Endm
 
; -----  Miscellaneous Routines

 .Macro DeRefHndle
 Movea.l%1,%2
 Movea.l(%2),%2
 .Endm

; File Window.Link

!Start

/Output Window

[

FontMap
FontDialog
Window

/Include Window.Rsrc

$


* Window.R
* resource file for the program called "Window"
*

Window.Rsrc
????????

Type RACA = STR 
 ,0
© by Ray A. Cameron of Australia \0Dver 4 MAR 1988

Type FREF
,128
APPL 0
,129
TEXT 1

Type BNDL
,128
RACA 0
ICN#
0 128 1 129
FREF 
0 128 1 129

* ------ Multifinder events ---------

* bit 15 = switcher save screen
* bit 14 = accept suspend resume events
* bit 13 = switcher enable option switch
* bit 12 = can do background on null events
* bit 11 = multifinder aware 
*         (activates & deactivates topmost 
*           window at resume, suspend events)

Type SIZE = GNRL
 ,-1
.H
4800    ;; $4800 = bits 14,11 set
.L
128000  ;; (for 150K recomended)
.L
80000 ;; (for 80K minimum)
.I

*
* MENU Resource #1 specifies the menus used by the Window program.
* For proper support of the Desk accessories, the Apple menu
* should be first, and the Edit menu should be third.  The first 5 items
* in the Edit menu should be identical to those used below.  This makes 

* it possible for the desk accessories to share the Edit menu with your
* application.
*

Type MENU
  ,1 (16)
\14
 About This Example...
 (-

  ,2 (16)
File
  Quit/Q

  ,3 (16)
Edit
  (Undo/Z
  (-
  Cut/X
  Copy/C
  Paste/V
  Clear

  ,4 (16)
Font
  Dialog /F

* Dialog Resource #1 specifies properties of the About box.  It points
* to Dialog Item List (DITL) Resource #1 as containing its items.

Type DLOG
  ,1
  
100 100 190 400
Visible  NoGoAway
1
0
1

* Dialog Resource #260 specifies properties of the Font  box.  It points
* to Dialog Item List (DITL) Resource #260 as containing its items.

 ,260
This is the Font Modal Dialog.
30 38 330 473
Invisible  NoGoAway 
1
0
260

* Alert Resource #260 specifies properties of the Font Alert box.  It 
points
* to Dialog Item List (DITL) Resource #261 as containing its items.

Type ALRT
 ,260
30 38 100 473
261
6665

* Dialog Item List Resource #1 specifies the items in the About box.
* By convention, the first item in an item list is the OK button.
* If there is a cancel button, it should be second.  This makes it
* easier to interpret the item number returned by the call to ModalDialog.

Type DITL
  ,1
3

Button
60 230 80 290
OK

StaticText
15 20 36 300
This sample program was written

StaticText
35 20 56 300
just to prove it could be done!

* Dialog Item List Resource #260 specifies the items in the Font box.
 ,260
21

button
8 359 26 427
Ok

button
8 281 26 349
Cancel

staticText Disabled
4 4 18 194
Character Font & Attributes

checkBox
63 339 79 422
Bold

checkBox
79 339 95 422
Italic

checkBox
95 339 111 422
Underline

checkBox
111 339 127 422
Outline

checkBox
127 339 143 422
Shadow

staticText
45 339 61 375
Style

userItem Disabled
53 331 151 427 

radiobutton
95 235 111 318
Normal

radiobutton
111 235 127 318
Condense

radiobutton
127 235 143 318
Extend

staticText
77 235 93 288
Spacing

userItem Disabled
85 227 151 323 

staticText
34 4 48 81
Font Name:

userItem
54 5 150 126

staticText
34 151 48 218
Font Size:

 
AAPL
$94.72
Apple Inc.
+0.78
MSFT
$44.83
Microsoft Corpora
-0.01
GOOG
$594.74
Google Inc.
+5.27

MacTech Search:
Community Search:

Software Updates via MacUpdate

Airmail 1.4 - Powerful, minimal email cl...
Airmail is a powerful, minimal mail client.It was designed to retain the same experience with a single or multiple accounts and provide a quick, modern and easy-to-use user experience. Airmail... Read more
Macs Fan Control 1.1.12 - Monitor and co...
Macs Fan Control allows you to monitor and control almost any aspect of your computer's fans, with support for controlling fan speed, temperature sensors pane, menu-bar icon, and autostart with... Read more
A Better Finder Rename 9.37 - File, phot...
A Better Finder Rename is the most complete renaming solution available on the market today. That's why, since 1996, tens of thousands of hobbyists, professionals and businesses depend on A Better... Read more
MacBook Air EFI Firmware Update 2.9 - Fo...
MacBook Air EFI Firmware Update is recommended for MacBook Air (Mid 2011) models. This update addresses an issue where systems may take longer to wake from sleep than expected and fixes a rare issue... Read more
FileZilla 3.9.0.1 - Fast and reliable FT...
FileZilla (ported from Windows) is a fast and reliable FTP client and server with lots of useful features and an intuitive interface.Version 3.9.0.1: MSW: Fix installation issue with locked DLLs... Read more
OS X Yosemite 10.10 DP4 - Developer Prev...
Note: This is a Developer Preview. You must be a registered Apple Mac Developer to download this update. OS X Yosemite is Apple's newest operating system for Mac. An elegant design that feels... Read more
FinderPop 2.5.6 - Classic Mac utility, n...
FinderPop is a Universal preference pane that extends OS X's contextual menus using a FinderPop Items folder much as the Apple Menu Items folder used to do for the Apple menu. It has other features... Read more
SpiderOak 5.1.7 - Secure cloud backup, s...
SpiderOak is a multi-platform secure online backup, storage, access, and sharing solution engineered for the consumer and small businesses. You must first sign up to use SpiderOak. Running natively... Read more
Espionage 3.6 - Simple, state of the art...
Espionage offers state-of-the-art encryption and plausible deniability for your confidential data. Sometimes, encrypting your data isn't enough to protect it. That's why Espionage 3 goes beyond data... Read more
calibre 1.45.0 - Complete e-library mana...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital... Read more

Latest Forum Discussions

See All

Celebrate Summer With a Cat in the Hat L...
Celebrate Summer With a Cat in the Hat Learning Library Sale Posted by Ellis Spice on July 22nd, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
MyTaskList Review
MyTaskList Review By Jennifer Allen on July 22nd, 2014 Our Rating: :: EFFECTIVE IF PLAINUniversal App - Designed for iPhone and iPad It’s not the most stylish of task management apps, but MyTaskList has all the features you could... | Read more »
FlyCraft Herbie: Crazy Machines Review
FlyCraft Herbie: Crazy Machines Review By Jennifer Allen on July 22nd, 2014 Our Rating: :: TRICKY FLYINGUniversal App - Designed for iPhone and iPad A tough game of careful thrusting and navigation, FlyCraft Herbie: Crazy Machines... | Read more »
MTN Review
MTN Review By Jessica Fisher on July 22nd, 2014 Our Rating: :: ADORABLE, SERENE, AND AMUSINGUniversal App - Designed for iPhone and iPad MTN is an adorable, talking pet mountain that is less game and more zen garden.   | Read more »
Fly High with Ninja UP! Now Available o...
Fly High with Ninja UP! Now Available on the App Store Posted by Jessica Fisher on July 22nd, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Bio Inc. Review
Bio Inc. Review By Nadia Oxford on July 22nd, 2014 Our Rating: :: SICKENING - IN A COMPELLING WAYUniversal App - Designed for iPhone and iPad Bio Inc is about orchestrating the medical destruction of a single person. If that doesn’... | Read more »
HELMUT Review
HELMUT Review By Andrew Fisher on July 21st, 2014 Our Rating: :: TRUNDLE SIMULATOR 2014Universal App - Designed for iPhone and iPad HELMUT is a fun, fleeting time-sink that offers a momentary distraction and nothing else.   | Read more »
Walkr Review
Walkr Review By Jennifer Allen on July 21st, 2014 Our Rating: :: ORIGINAL WALKINGiPhone App - Designed for the iPhone, compatible with the iPad Walking is a bit more exciting thanks to this planet building/discovering sim reliant... | Read more »
Zombie Commando Review
Zombie Commando Review By Jennifer Allen on July 21st, 2014 Our Rating: :: MINDLESS SLAUGHTERUniversal App - Designed for iPhone and iPad Briefly fun but ultimately forgettable, Zombie Commando will scratch an itch then be... | Read more »
Swords & Poker Adventures Review
Swords & Poker Adventures Review By Jennifer Allen on July 21st, 2014 Our Rating: :: SOULLESS POKER PLAYUniversal App - Designed for iPhone and iPad Swords & Poker Adventures is a mishmash of Poker and RPGing, but it lacks... | Read more »

Price Scanner via MacPrices.net

WaterField Designs Unveils Cycling Ride Pouch...
High end computer case and bag maker WaterField Designs of San Francisco now enters the cycling market with the introduction of the Cycling Ride Pouch – an upscale toolkit with a scratch-free iPhone... Read more
Kingston Digital Ships Large Capacity Near 1T...
Kingston Digital, Inc., the Flash memory affiliate of Kingston Technology Company, Inc.,has announced its latest addition to the SSDNow V300 series, the V310. The Kingston SSDNow V310 solid-state... Read more
15-inch 2.0GHz MacBook Pro Retina on sale for...
B&H Photo has the 15″ 2.0GHz Retina MacBook Pro on sale for $1829 including free shipping plus NY sales tax only. Their price is $170 off MSRP. B&H will also include free copies of Parallels... Read more
Apple restocks refurbished Mac minis for up t...
The Apple Store has restocked Apple Certified Refurbished Mac minis for up to $150 off the cost of new models. Apple’s one-year warranty is included with each mini, and shipping is free: - 2.5GHz Mac... Read more
Twelve South HiRise For MacBook – Height-Adju...
If you use your MacBook as a workhorse desktop substitute, as many of us do, a laptop stand combined with an external keyboard and pointing device are pretty much obligatory if you want to avoid... Read more
Why The Mac Was Not Included In The Apple/IBM...
TUAW’s Yoni Heisler cites Fredrick Paul of Network World whoi blogged last week that the Mac’s conspicuous absence from Apple and IBM’s landmark partnership agreement represents a huge squandered... Read more
Save $100 on 13-inch Retina MacBook Pros, plu...
Adorama has 13″ Retina MacBook Pros on sale for $100 off MSRP. Shipping is free, and Adorama charges sales tax in NY & NJ only: - 13″ 2.4GHz/128GB MacBook Pro with Retina Display: $1199 - 13″ 2.... Read more
Blurr it 2.3 for iOS – Quickly Blurs Selected...
Hyderabad, India based TouchLabs has announced a new update of Blurr it 2.3, their photography app for iOS users. Blurr it allows you to blur part of the image to hide potentially sensitive or... Read more
MacBook Airs on sale for $100 off MSRP, start...
Best Buy has the new 2014 MacBook Airs on sale for up to $100 off MSRP on their online store. Choose free home shipping or free local store pickup (if available). Prices valid for online orders only... Read more
Amazon Announces Kindle Unlimited: Unlimited...
Amazon.com has introduced Kindle Unlimited — a new subscription service which allows customers to freely read as much as they want from over 600,000 Kindle books, and listen as much as they want to... Read more

Jobs Board

Sr Software Lead Engineer, *Apple* Online S...
Sr Software Lead Engineer, Apple Online Store Publishing Systems Keywords: Company: Apple Job Code: E3PCAK8MgYYkw Location (City or ZIP): Santa Clara Status: Full Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Sr *Apple* Engineer - IT - Requisition #: -...
For more information about TIAA-CREF, visit our website . The Apple Engineer will provide engineering and third-level incident support for 300- 500 MacOS desktop/laptop Read more
*Apple* Systems Administrator - DISH (United...
…satellite service provider, and Dish is currently looking for an experienced Apple /Mac Systems Administrator. Apple systems administrator will be responsible for Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.