TweetFollow Us on Twitter

Search and Replace
Volume Number:5
Issue Number:5
Column Tag:Pascal Procedures

Related Info: Dialog Manager TextEdit Memory Manager

Modeless Search and Replace

By Mark McBride, Oxford, CA

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

Introduction

While working on development of a utility to speed integration of toolbox calls in MacFortran source code, I found myself looking for a search and replace routine. Perusal of Macintosh Revealed (Vol. 2) quickly led to the toolbox routine Munger (rhymes with plunger). A search of back issues of MacTutor also revealed the lack of a general discussion of Munger and doing find/replace (not even the generic multi-window text editor from the January 1987 issue). Thus, I decided to write a general purpose find/replace unit from a modeless dialog environment.

Basic Program Design

The find/replace unit and the accompanying example program are written in LS Pascal. Conversion to TML, Turbo, or MPW should be relatively straightforward. The find/replace unit is designed as a standalone unit that requires very little modification to the user’s program to add its capabilities. The modifications required include changing the main event loop to handle modeless dialog events, adding a new menu, and inserting calls to the find/replace unit in your program. When calling the find/replace routines the user passes the current event and a handle for the editText to be searched. The program contains a simple text edit window, a modeless Find dialog, and a modeless Replace Dialog. The program supports desk accessories; cut, copy, and paste within the program (but not with desk accessories); and should be screen and machine size independent. The program requires a 512Ke or later machine. If run on an old 512k machine, the program alerts the user and exits back to the Finder.

Simple Text Editor

The demonstration program uses the ROM85 library enhancements for the textedit window which allowed me to write a barebones editor sufficient for demonstration purposes. The text window can be resized, zoomed, and automatically scrolled. However, there are no scroll bars, thus movement to text outside the visible region must done with the arrow keys. Cut, copy, paste, and clear work properly. The text window contents cannot be loaded from disk, nor saved to disk. Upon startup (Figure 1), the text window contains Lincoln’s Gettysburg Address retrieved from the resource fork.

Figure 1.

Find/Replace Unit

The Find dialog allows the user to enter text characters and does an exact find. The search process can be initiated by clicking the ‘Find’ button or pressing the return key. The find routine works from the current selection point and does not wrap past the end of the textedit record. If found, the current selection is set to the string found and highlighted. If not found, the machine beeps. The find routine does not support wildcards nor non-printing characters (e.g., control characters).

The Search dialog allows the user to enter both the search and replace strings. Initially, the ‘Search’ button is highlighted as the default button. Once the search string has been found (and selected, the search routine is just the find routine), the ‘Replace’ button is highlighted. If the ‘Replace’ button is selected then the occurrence of the search string previously found is replaced. The replace string can be null but the find string must contain at least one character. When the replace operation is successfully completed, the ‘Search’ button returns to the default button. Although I have not included a ‘replace all’ button (which could easily be integrated), the user can continually press the return key searching and replacing. Dialog cut, copy, and paste from the text edit scrap is supported within both the Find and Replace dialogs.

Handling Modeless Dialogs

To properly handle the modeless find and replace dialogs four major aspects of modeless dialog event handling must be observed carefully: main event loop changes, window events, dialog events, and command keys. Each element is relatively straightforward, but the combination of the four can lead to some confusion and unnecessary coding.

Main Event Loop

When a program contains modeless dialogs, the toolbox routine IsDialogEvent should be called after calling GetNextEvent. Inside Mac (page I-416) warns that the program should call IsDialogEvent even if GetNextEvent returns false. When IsDialogEvent returns true the program should drop into its routine to handle events for the modeless dialog. Thus, the program should call GetNextEvent, then IsDialogEvent, and then start processing on the basis of the booleans returned by the two routines. If the program does a

{1}

if GetNextEvent(myEvent) then
 begin
 if IsDialogEvent(MyEvent) then
   begin
     Do_Modeless(MyEvent);
...

structure then null dialog events will not be passed to its modeless dialog routines. The alternative used by the program in the listing does the following:

{2}

EventFlag:=GetNextEvent(MyEvent);
if IsDialogEvent(MyEvent)then
  Do_Modeless(MyEvent)
else if EventFlag then
  begin
...

According to Inside Mac, IsDialogEvent returns true for:

• activate or update events for a dialog window

• mouse-down events in the content region of an active dialog window

• any other event when a dialog window is active.

However, the last statement is misleading.

Window Events

The structure region of a window is composed of two parts: the content region and the window frame (see Inside Mac, pages I-271,272). In the standard document window, the window frame contains the drag, go-away, and zoom regions (if zoom was desired). These regions do not overlap with the content region in the standard document window, although they could in a custom window definition. Thus, if your modeless dialog uses a standard document window (or a noGrowDocument proc) then you must be careful in handling events. A mouse-down event in the window frame of a modeless dialog will return false for IsDialogEvent. The main event loop must handle mouse-downs in the drag, go-away, and zoom boxes of a modeless dialog when using standard window types. This does not pose a particular problem since handling multiple windows for growing, dragging, and zooming is a standard Mac programming task.

Dialog Handler

When IsDialogEvent returns true, the user should pass control to a routine that handles the modeless dialog event. This routine should call the function

DialogSelect(theEvent,whichDialog,ItemHit):boolean.

DialogSelect will return a result of true with the dialog pointer in whichDialog and the item number in ItemHit when there is

• a mouse-down, key-down, or auto-key event in an enabled editText item. DialogSelect will take appropriate action within the editText item.

• a mouse-down event, then mouse released within an enabled control item. DialogSelect will call TrackControl while the mouse button is down.

• a mouse-down event in any other enabled item.

DialogSelect returns a result of false with the dialog pointer, whichDialog, undefined and ItemHit undefined when there is

• an activate or update event for the dialog window. DialogSelect will handle the redrawing of all items in the window (but will not handle redrawing of the default button).

• a mouse-down, key-down, or auto-key event in a disabled editText item.

• a key-down or auto-key event when no editText item exists.

• a mouse-down event in a control when the mouse is released outside the control.

• a mouse-down event in any other disabled item.

Thus, your modeless routine calls DialogSelect, letting the Dialog Manager handle actions while the user mouses around in the dialog. If the user indicates some action within an enabled dialog item, then the modeless routine takes appropriate action. If DialogSelect returns false then the modeless routine should do nothing. Two exceptions to handling returns of false from DialogSelect exist. First, if the modeless routine needs to take special actions for modeless update or activate events (e.g., redrawing the default button, showing selected text) then the routine must check for these types of events after DialogSelect returns false.

Second, DialogSelect does not check for the command key when handling key-down events. If some key-down events are special cases or if the command key equivalents for menu events (e.g., cut, copy, paste) are to be handled while the modeless dialog is the active window, then the modeless routine must check for key-down events prior to calling DialogSelect. The find/replace unit in the listing checks for edit menu command key equivalents, find/replace menu command key equivalents, and the return key as the default button.

Find/Replace Routines

Implementing a find/replace unit can take many alternative forms. Inside Mac does not specify user-interface guidelines for find/replace actions leading to many different solutions existing. The implementation given in the listing uses a single modeless dialog and follows a simple logic within three routines: Find, Search, and Replace. These routines provide the setup to access the toolbox routine Munger. Munger provides the core find and replace actions on the specified text. Switching between find and replace options alters the appearance and action of the modeless dialog.

Logic Used

When in the Find mode, the user can enter a text string (Figure 2). When the user clicks the find button (or presses the ‘return’ key) the editText record is searched forward from the current selection. If located, the find string is highlighted in the editText record. If the string is not in the current visible region, a call to TESelView scrolls the string into view (Figure 3). If the string is not found, then the machine beeps.

Figure 2.

Figure 3.

Figure 4.

When in the replace mode, the user must enter a find string while the replace string is optional (Figure 4). When the user clicks the find button (or presses ‘return’), starting at the current selection, the find routine tries to locate and highlight the find string. If found, the search routine changes the default button to ‘Replace’ (Figure 5). When the user clicks the replace button (or presses ‘return’) the find text is replaced with the replace text, leaving the current selection after the replacement text, and re-establishing the ‘Search’ button as the default button (Figure 6).

Figure 5.

Figure 6.

How It Works: Munger

The find, search, and replace routines serve to setup the proper information to send to and retrieve from the toolbox function Munger:

{3}

function Munger(h:handle; offset:longint; ptr1: ptr; len1: longint;
                          ptr2: ptr; len2: longint): longint.

The handle, h, specifies a handle to destination text generated as a relocatable block allocated by the memory manager. Offset refers to the starting location of the operation in the destination text and must be less than the length of the destination text. Ptr1, len1 refers to the target text and ptr2, len2 refers to the replacement text. The function value returned is negative if the operation failed and positive if the specified operation was successful. The behavior of Munger depends on the values passed. The six possible cases are:

Case 1: ptr1<>nil, len1>0; ptr2<>nil, len2>0: the destination text is searched from the offset specified to the end of the text, replacing the first occurrence of the target string found with the replacement text. The function returns the offset of the first byte past the replaced text.

Case 2: ptr1=nil, len1>0; ptr2<>nil, len2>0: the destination text from the specified offset to offset + len1 is replaced by the replacement text. The function returns the offset of the first byte past the replaced text.

Case 3: ptr1=nil, len1<0; ptr2<>nil, len2>0: the destination text from the specified offset to the end of the destination text is replaced by the replacement text. The function returns the offset of the first byte past the replaced text.

Case 4: len1=0; ptr2<>nil, len2>0: the replacement text is inserted into the destination text at the specified offset. The function returns the offset of the first byte past the replaced text.

Case 5: ptr1<>nil, len1>0; ptr2=nil: the destination text is searched for the target string. Munger returns the offset at the beginning of the found string.

Case 6: ptr1<>nil, len1>0; ptr2<>nil, len2=0: the target string is deleted from the destination text instead of replaced. The function returns the offset at the byte where the text was deleted.

The find routine uses Case 5 to perform the search. The find routine retrieves the find string from the dialog, checking for a target string of length greater than zero. The replace pointer is set to nil. If the current selection is not an insertion point, the offset is set to the end of the current selection for the find dialog. The target length is retrieved and the replace length is set to zero. Finally, Munger is called. If the target string is found, the current selection is set to the target and scrolled into view.

The search routine locates the target string using the find routine. If the find was successful, then the default button is set to the replace button and enabled. Once the target string is located, a user action to replace call the replace routine. The replace routine uses Case 1 for positive length replacement text and Case 6 for empty replacement text. The replace routine retrieves the target and replace text from the dialog edit fields, sets the offset to the current selection start of the destination text, and finally calls Munger. If Munger returns a positive value, the first occurrence of the target text was replaced. The editText is then recalibrated, the selection reset, and an invalrect call used to force an update of the editText window. Finally, the default button is set back to the Search button. If Munger returns a negative value, the replace failed and the machine beeps.

Concluding Remarks

The find/replace unit presented is simple in design, takes very little additional memory (approximately 5k), easily integrated into your application, and easily modified to suit your tastes. Most all the programming work is setting up the call to Munger and interpreting the results. The routine could also be changed to a modal dialog quickly. However, the modeless dialog environment seems more natural for a find/replace capability.

Listing:  EnvironIntf.p
{  File: EnvironsIntf.p}
{ Copyright Apple Computer, Inc. 1987}
{ All Rights Reserved}

UNIT EnvironsIntf;

INTERFACE
 CONST
 envMac = -1;    {returned by glue, if any}
 envXL = -2;{returned by glue, if any}
 envMachUnknown = 0;
 env512KE = 1;
 envMacPlus = 2;
 envSE = 3;
 envMacII = 4;
 envCPUUnknown = 0;{ CPU types }
 env68000 = 1;
 env68010 = 2;
 env68020 = 3;
 envUnknownKbd = 0;{ Keyboard types }
 envMacKbd = 1;
 envMacAndPad = 2;
 envMacPlusKbd = 3;
 envAExtendKbd = 4;
 envStandADBKbd = 5;
 { Errors }
 envNotPresent = -5500; { returned by glue. Official stuff}
 envBadSel = -5501;{ Selector non-positive }
 envSelTooBig = -5502;{ Selector bigger than call can take}

 TYPE
 SysEnvRec = RECORD
 environsVersion : INTEGER;
 machineType : INTEGER;
 systemVersion : INTEGER;
 processor : INTEGER;
 hasFPU : BOOLEAN;
 hasColorQD : BOOLEAN;
 keyBoardType : INTEGER;
 atDrvrVersNum : INTEGER;
 sysVRefNum : INTEGER;
 END;

 FUNCTION SysEnvirons (versionRequested : INTEGER;
 VAR theWorld : SysEnvRec) : OSErr;

IMPLEMENTATION
 FUNCTION SysEnvirons;
 External;
END.
Listing Globals.Pas:
UNIT SearchGlobs;

{File name:Globals.Pas}
{Function: Global Variables and Constants for Search Program}
{History: 7/02/88 MEM Initial Variables Added.   }
{                       }

INTERFACE

 USES
 ROM85;
 CONST
{window constants}
 minWidth = 80;
 minHeight = 80;
 mBarHeightGlob = $BAA;
 sBarWidth = 16;
 TxtMargin = 4;
 TxtWindID = 2;
 AboutID = 20;
 AlertID = 6;
 I_OK = 1;
 SpeechID = 100;
{Menu Resource ID’s}
 AppleID = 201;
 FileID = 202;
 EditID = 203;
 SearchID = 204;
{Menu Choice Constants}
 I_About = 1;
 I_Quit = 1;
 I_Undo = 1;
 I_Cut = 3;
 I_Copy = 4;
 I_Paste = 5;
 I_Clear = 6;
 I_Find = 1;
 I_Replace = 2;
 I_Show_Text = 4;
{Global Variables}
 VAR
{misc stuff}
 doneFlag : boolean;
 mBarHeight : integer;
{menu stuff}
 AppleMenu : MenuHandle;
 FileMenu : MenuHandle;
 EditMenu : MenuHandle;
 SearchMenu : MenuHandle;
{rectangles}
 DragRect : Rect;
 GrowRect : Rect;
 ScreenRect : Rect;
 TempRect : Rect;
{window stuff}
 MyWindow : WindowPtr;
{text edit stuff}
 hte : TEHandle;
{String stuff}
 theString : Str255;

IMPLEMENTATION
END.
Listing: Inits.Pas
UNIT Inits;
{File name:Init.Pas}
{Function: Initialization Routines for Search Program}
{History: 7/02/88 MEM All routines Added.   }

INTERFACE

 USES ROM85, EnvironsIntf, SearchGlobs;

 PROCEDURE InitMac;
 PROCEDURE CheckEnvirons;
 PROCEDURE InitTxtWind;
 PROCEDURE InitRects;
 PROCEDURE InitMenus;

IMPLEMENTATION
 PROCEDURE Crash;
 BEGIN
 ExitToShell;
 END;

 PROCEDURE InitMac;
 BEGIN
 MoreMasters;
 MoreMasters;
 MoreMasters;
 initCursor;
 FlushEvents(everyEvent, 0);
 doneFlag := false;
 END;

 PROCEDURE CheckEnvirons;
 VAR
 MyWorld : SysEnvRec;
 Version : integer;
 Err1, Err2 : OSErr;
 BEGIN
 Version := 1;
 Err1 := SysEnvirons(Version, MyWorld);
 IF (MyWorld.machineType < 1) THEN
 BEGIN
 ParamText(‘Program Requires Mac 512Ke or newer machine’, ‘’, ‘’, ‘’);
 Err2 := NoteAlert(AlertID, NIL);
 ExitToShell;
 END;
 END;

 PROCEDURE InitRects;
 VAR
 MemPtr : ^Integer;
 BEGIN
 MemPtr := pointer(MBarHeightGlob);
 mBarHeight := MemPtr^;
 screenrect := ScreenBits.Bounds;
 SetRect(DragRect, ScreenRect.left + 4, Screenrect.top + mBarHeight + 
4, Screenrect.right - 4, Screenrect.bottom - 4);
 SetRect(GrowRect, ScreenRect.left + minWidth, Screenrect.top + minHeight, 
Screenrect.right - 8, Screenrect.bottom - 8);
 END;

 PROCEDURE InitTxtWind;
 VAR
 ItemHdl : Handle;
 BEGIN
 MyWindow := GetNewWindow(TxtWindID, NIL, Pointer(-1));
 SelectWindow(MyWindow);
 SetPort(MyWindow);
 WITH MyWindow^.portRect DO
 SetRect(TempRect, 0, 0, right - sBarWidth - 1, bottom - sBarWidth - 
1);
 InsetRect(TempRect, TxtMargin, TxtMargin);
 hte := TENew(TempRect, TempRect);
 HLock(Handle(hte));
 hte^^.txFont := geneva;
 hte^^.fontAscent := 12;
 hte^^.lineHeight := 12 + 3 + 1; {ascent + descent + leading}
 HUnLock(Handle(hte));
 ItemHdl := GetResource(‘TEXT’, SpeechID);
 IF ItemHdl = NIL THEN
 BEGIN
 theString := ‘Search and Replace Demo program.  Use find and replace 
to change text in this window.’;
 TESetText(Pointer(Ord4(@theString) + 1), length(theString), hte);
 END
 ELSE
 BEGIN
 DetachResource(ItemHdl);
 SetHandleSize(hte^^.hText, SizeResource(ItemHdl));
 hte^^.hText := ItemHdl;
 hte^^.teLength := SizeResource(ItemHdl);
 ReleaseResource(ItemHdl);
 END;
 TESetSelect(0, 0, hte);
 TECalText(hte);
 TEAutoView(true, hte);
 TESelView(hte);
 TextFont(applFont);
 END;

 PROCEDURE InitMenus;
 VAR
 tempMenu : MenuHandle;
 BEGIN
 ClearMenuBar;
 tempMenu := GetMenu(AppleID);
 AddResMenu(tempMenu, ‘DRVR’);
 InsertMenu(tempMenu, 0);
 AppleMenu := tempMenu;
 tempMenu := GetMenu(FileID);
 InsertMenu(tempMenu, 0);
 FileMenu := tempMenu;
 tempMenu := GetMenu(EditID);
 InsertMenu(tempMenu, 0);
 EditMenu := tempMenu;
 tempMenu := GetMenu(SearchID);
 InsertMenu(tempMenu, 0);
 SearchMenu := tempMenu;
 DrawMenuBar;
 DisableItem(EditMenu, I_Undo);
 END;

END.
Listing: Utils.Pas

UNIT Utils;
{File name:Utils.Pas}
{Function: General Utility Routines for Search Program}
{History: 7/02/88 MEM Alert Error Routine Added.   }
{                       }

INTERFACE

 USES ROM85, SearchGlobs, Find_Dialog;

 PROCEDURE Do_About;
 PROCEDURE Do_Menu (theMenu, theItem : integer);
 PROCEDURE FrameDItem (dLog : DialogPtr; iNum : integer);
 PROCEDURE Update_Txt;
 PROCEDURE Act_Txt (theEvent : EventRecord);
 PROCEDURE FixText;
 PROCEDURE Grow_Txt (hSize, vSize : integer);
 PROCEDURE Do_Quit;

IMPLEMENTATION
 PROCEDURE Do_About;
 VAR
 oldPort : GrafPtr;
 dlg : DialogPtr;
 itemHit : integer;
 BEGIN
 GetPort(OldPort);
 dlg := GetNewDialog(AboutID, NIL, pointer(-1));
 FrameDItem(dlg, I_OK);
 ModalDialog(NIL, itemHit);
 DisposDialog(dlg);
 SetPort(OldPort);
 END;

 PROCEDURE Do_Menu;
 VAR
 DaNum : integer;
 Bool : boolean;
 DAName : Str255;
 oldPort : GrafPtr;
 BEGIN
 CASE theMenu OF
 AppleID : 
 BEGIN
 CASE theItem OF
 I_About : 
 BEGIN
 Do_About;
 END;
 OTHERWISE
 BEGIN
 GetPort(oldPort);
 GetItem(AppleMenu, theItem, DAName);
 DaNum := OpenDeskAcc(DAName);
 SetPort(oldPort);
 END;
 END;
 END;
 FIleID : 
 BEGIN
 CASE theItem OF
 I_Quit : 
 doneFlag := TRUE;
 OTHERWISE
 BEGIN
 END;
 END;
 END;
 EditID : 
 BEGIN
 IF NOT SystemEdit(theItem - 1) THEN
 BEGIN
 CASE theItem OF
 I_Cut : 
 TECut(hte);
 I_Copy : 
 TECopy(hte);
 I_Paste : 
 TEPaste(hte);
 I_Clear : 
 TEDelete(hte);
 OTHERWISE
 BEGIN
 END;
 END;
 END;
 END;
 SearchID : 
 BEGIN
 CASE theItem OF
 I_Find : 
 Open_Find(I_Find);
 I_Replace : 
 Open_Find(I_Replace);
 I_Show_Text : 
 BEGIN
 ShowWindow(MyWindow);
 SelectWindow(MyWindow);
 END;
 OTHERWISE
 BEGIN
 END;
 END;
 END;
 OTHERWISE
 BEGIN
 END;
 END;
 HiliteMenu(0);
 END;

 PROCEDURE FrameDItem;
 VAR
 iBox : Rect;
 iType : integer;
 iHandle : Handle;
 oldPenState : PenState;
 oldPort : GrafPtr;
 BEGIN
 GetPort(oldPort);
 SetPort(dlog);
 GetPenState(oldPenState);
 GetDItem(dLog, iNum, iType, iHandle, iBox);
 InsetRect(iBox, -4, -4);
 PenSize(3, 3);
 FrameRoundRect(iBox, 16, 16);
 SetPenState(oldPenState);
 SetPort(oldPort)
 END;

 PROCEDURE UpDate_Txt;
 VAR
 oldPort : GrafPtr;
 BEGIN
 GetPort(oldPort);
 SetPort(MyWindow);
 BeginUpDate(MyWindow);
 TEUpdate(hte^^.viewRect, hte);
 DrawGrowIcon(MyWindow);
 EndUpDate(MyWindow);
 SetPort(oldPort);
 END;

 PROCEDURE Act_Txt;
 BEGIN
 SetPort(MyWindow);
 IF Odd(theEvent.modifiers) THEN
 BEGIN
 TEActivate(hte);
 DrawGrowIcon(MyWindow);
 DisableItem(EditMenu, I_Undo);
 END
 ELSE
 BEGIN
 TEDeactivate(hte);
 DrawGrowIcon(MyWindow);
 EnableItem(EditMenu, I_Undo);
 END;
 END;

 PROCEDURE FixText;
 BEGIN
 HLock(Handle(hte));
 WITH hte^^ DO
 BEGIN
 viewRect := MyWindow^.portRect;
 WITH viewRect DO
 BEGIN
 right := right - sBarWidth - 1;
 bottom := bottom - sBarWidth - 1;
 bottom := (bottom DIV lineHeight) * lineHeight
 END;
 destRect := viewRect;
 InsetRect(destRect, TxtMargin, TxtMargin);
 TECalText(hte);
 TESelView(hte);
 END;
 HUnlock(Handle(hte));
 END;

 PROCEDURE Grow_Txt;
 BEGIN
 InvalRect(MyWindow^.portRect);
 EraseRect(MyWindow^.portRect);
 SizeWindow(MyWindow, hSize, vSize, true);
 InvalRect(MyWindow^.portRect);
 FixText;
 END;

 PROCEDURE Do_Quit;
 BEGIN
 TEDispose(hte);
 DisposeWindow(MyWindow);
 ExitToShell;
 END;
END.                                  {End of unit}
Listing:  Find.Pas
UNIT Find_Dialog;
{File name:Find.Pas   }
{Function: Handle a modeless dialog}
{History: 7/03/88 MEM - Made the Find dialog functional    }
INTERFACE

 USES ROM85;

 PROCEDURE Init_Find;
 PROCEDURE Act_Find;
 PROCEDURE Open_Find (Action : integer);
 PROCEDURE Do_Find (theEvent : EventRecord; hte : TEHandle);
 PROCEDURE Close_Find;

IMPLEMENTATION
 CONST
 FindID = 4;
 I_Find = 1;
 I_Replace = 2;
 I_Cancel = 3;
 I_Find_Label = 4;
 I_Find_Text = 5;
 I_Replace_Label = 6;
 I_Replace_Text = 7;
 Active = 0;
 InActive = 255;
 AlertID = 6;
 VAR
 MyDialog : DialogPtr;
 ExitDialog : Boolean;
 tempRect : Rect;
 DType : Integer;
 Index : Integer;
 DItem : Handle;
 CItem, CTempItem : controlhandle;
 itemHit : Integer;
 temp : Integer;
 Bolden : integer;
 Opened : integer;
 theString : Str255;

 PROCEDURE FrameItem (inum : integer);
 VAR
 iBox : Rect;
 iType : integer;
 iHandle : Handle;
 oldPenState : PenState;
 oldPort : GrafPtr;
 BEGIN
 GetPort(oldPort);
 SetPort(MyDialog);
 GetPenState(oldPenState);
 GetDItem(MyDialog, inum, iType, iHandle, iBox);
 InsetRect(iBox, -4, -4);
 PenSize(3, 3);
 FrameRoundRect(iBox, 16, 16);
 SetPenState(oldPenState);
 SetPort(oldPort)
 END;

 PROCEDURE DeFrameItem (inum : integer);
 VAR
 iBox : Rect;
 iType : integer;
 iHandle : Handle;
 oldPenState : PenState;
 oldPort : GrafPtr;
 BEGIN
 GetPort(oldPort);
 SetPort(MyDialog);
 GetPenState(oldPenState);
 GetDItem(MyDialog, inum, iType, iHandle, iBox);
 InsetRect(iBox, -4, -4);
 PenSize(3, 3);
 PenMode(PatBic);
 FrameRoundRect(iBox, 16, 16);
 SetPenState(oldPenState);
 SetPort(oldPort)
 END;

 PROCEDURE Init_Find;
 BEGIN
 MyDialog := NIL;
 END;

 PROCEDURE Act_Find;
 BEGIN
 IF (MyDialog <> NIL) THEN
 ShowWindow(MyDialog);
 END;

 PROCEDURE Open_Find;
 VAR
 ThisEditText : TEHandle;
 TheDialogPtr : DialogPeek;
 BEGIN
 IF (MyDialog = NIL) THEN
 BEGIN
 MyDialog := GetNewDialog(FindID, NIL, Pointer(-1));
 ShowWindow(MyDialog);
 SelectWindow(MyDialog);
 SetPort(MyDialog);
 TheDialogPtr := DialogPeek(MyDialog);
 ThisEditText := TheDialogPtr^.textH;
 HLock(Handle(ThisEditText));
 ThisEditText^^.txSize := 12;
 TextSize(12);
 ThisEditText^^.txFont := systemFont;
 TextFont(systemFont);
 ThisEditText^^.txFont := 0;
 ThisEditText^^.fontAscent := 12;
 ThisEditText^^.lineHeight := 12 + 3 + 1;
 HUnLock(Handle(ThisEditText));
 GetDItem(MyDialog, I_Replace_Text, DType, DItem, tempRect);
 SetIText(DItem, ‘’);
 SelIText(MyDialog, I_Replace_Text, 0, 0);
 GetDItem(MyDialog, I_Find_Text, DType, DItem, tempRect);
 SetIText(DItem, ‘’);
 SelIText(MyDialog, I_Find_Text, 0, 0);
 Opened := action;
 Bolden := I_Find;
 END
 ELSE
 BEGIN
 Opened := action;
 SelectWindow(MyDialog);
 END;
 IF (action = I_FInd) THEN
 BEGIN
 DeFrameItem(I_Replace);
 HideDItem(MyDialog, I_Replace);
 HideDItem(MyDialog, I_Replace_Label);
 HideDItem(MyDialog, I_Replace_Text);
 GetDItem(MyDialog, I_Find, DType, DItem, tempRect);
 GetIText(DItem, theString);
 SetCTitle(ControlHandle(DItem), ‘Find’);
 SetWTitle(MyDialog, ‘Find’);
 Bolden := I_Find;
 END
 ELSE
 BEGIN
 ShowDItem(MyDialog, I_Replace);
 SHowDItem(MyDialog, I_Replace_Label);
 SHowDItem(MyDialog, I_Replace_Text);
 GetDItem(MyDialog, I_Replace, DType, DItem, tempRect);
 HiLiteControl(ControlHandle(DItem), InActive);
 GetDItem(MyDialog, I_Find, DType, DItem, tempRect);
 SetCTitle(ControlHandle(DItem), ‘Search’);
 SetWTitle(MyDialog, ‘Replace’);
 END;
 DrawDialog(MyDialog);
 FrameItem(Bolden);
 ShowWindow(MyDialog);
 SelectWindow(MyDialog);
 END;

 PROCEDURE Close_Find;
 BEGIN
 IF (MyDialog <> NIL) THEN
 BEGIN
 DisposDialog(MyDialog);
 Opened := 0;
 MyDialog := NIL
 END;
 END;

 FUNCTION Find (hte : TEHandle) : boolean;
 VAR
 theFindString : Str255;
 StartAt, EndAt, targetlen, replacelen, FoundAt : longint;
 destText : Handle;
 targetPtr, replacePtr : Ptr;
 BEGIN
 Find := false;
 GetDItem(MyDialog, I_Find_Text, Dtype, DItem, tempRect);
 GetIText(DItem, theFindString);
 IF (theFindString = ‘’) THEN
 BEGIN
 ParamText(‘You have not specified anything to Find’, ‘’, ‘’, ‘’);
 temp := NoteAlert(AlertID, NIL);
 END
 ELSE
 BEGIN
 destText := Handle(hte^^.hText);
 targetPtr := pointer(Ord(@theFindString) + 1);
 replacePtr := NIL;
 IF (hte^^.selStart < hte^^.selEnd) THEN
 IF (opened = I_Find) THEN
 StartAt := hte^^.selEnd
 ELSE
 StartAt := hte^^.selStart
 ELSE
 StartAt := hte^^.selStart;
 targetlen := length(theFindString);
 replacelen := 0;
 FoundAt := Munger(destText, StartAt, targetPtr, targetlen, replacePtr, 
replacelen);
 IF (FoundAt >= 0) THEN
 BEGIN
 TESetSelect(FoundAt, FoundAt + targetlen, hte);
 TESelView(hte);
 TEActivate(hte);
 Find := true;
 END
 ELSE
 SysBeep(1);
 END;
 END;

 PROCEDURE Replace (hte : TEHandle);
 VAR
 theFindString, theReplString : Str255;
 StartAt, EndAt, targetlen, replacelen, FoundAt : longint;
 destText : Handle;
 targetPtr, replacePtr : Ptr;
 OldPort : GrafPtr;
 BEGIN
 GetDItem(MyDialog, I_Find_Text, Dtype, DItem, tempRect);
 GetIText(DItem, theFindString);
 GetDItem(MyDialog, I_Replace_Text, Dtype, DItem, tempRect);
 GetIText(DItem, theReplString);
 destText := Handle(hte^^.hText);
 targetPtr := pointer(Ord(@theFindString) + 1);
 targetlen := length(theFindString);
 replacePtr := pointer(Ord(@theReplString) + 1);
 replacelen := length(theReplString);
 StartAt := hte^^.selStart;
 FoundAt := Munger(destText, StartAt, targetPtr, targetlen, replacePtr, 
replacelen);
 IF (FoundAt >= 0) THEN
 BEGIN
 TECalText(hte);
 TESetSelect(FoundAt, FoundAt, hte);
 TESelView(hte);
 GetPort(OldPort);
 SetPort(hte^^.inPort);
 InvalRect(hte^^.viewRect);
 SetPort(OldPort);
 TEActivate(hte);
 GetDItem(MyDialog, I_Replace, DType, DItem, tempRect);
 HiLiteControl(ControlHandle(DItem), Inactive);
 DeFrameItem(I_Replace);
 FrameItem(I_Find);
 Bolden := I_Find;
 END
 ELSE
 BEGIN
 Sysbeep(1);
 GetDItem(MyDialog, I_Replace, DType, DItem, tempRect);
 HiLiteControl(ControlHandle(DItem), Inactive);
 IF (bolden = I_Replace) THEN
 DeFrameItem(I_Replace);
 FrameItem(I_Find);
 Bolden := I_Find;
 END;
 END;

 PROCEDURE Search (hte : TEHandle);
 VAR
 theReplString : Str255;
 success : boolean;
 BEGIN
 GetDItem(MyDialog, I_Replace_Text, Dtype, DItem, tempRect);
 GetIText(DItem, theReplString);
 success := Find(hte);
 IF success THEN
 BEGIN
 GetDItem(MyDialog, I_Replace, DType, DItem, tempRect);
 HiLiteControl(ControlHandle(DItem), Active);
 DeFrameItem(I_Find);
 FrameItem(I_Replace);
 Bolden := I_Replace;
 END;
 END;

 PROCEDURE Do_Find;
 CONST
 ReturnKey = 13;
 LABEL
 1;
 VAR
 Index : integer;
 myPt : Point;
 ExitDialog : boolean;
 CmdDown : boolean;
 success : boolean;
 chCode : integer;
 MyCmdKey : char;
 whichDialog : DialogPtr;
 BEGIN
 ExitDialog := false;
 IF (MyDialog <> NIL) THEN
 BEGIN
 IF (theEvent.what = KeyDown) THEN
 BEGIN
 CmdDown := odd(theEvent.modifiers DIV CmdKey);
 chCode := BitAnd(theEvent.message, CharCodeMask);
 MyCmdKey := CHR(chCode);
 IF CmdDown THEN
 BEGIN
 IF ((MyCmdKey = ‘x’) OR (MyCmdKey = ‘X’)) THEN
 DlgCut(MyDialog)
 ELSE IF ((MyCmdKey = ‘c’) OR (MyCmdKey = ‘C’)) THEN
 DlgCopy(MyDialog)
 ELSE IF ((MyCmdKey = ‘v’) OR (MyCmdKey = ‘V’)) THEN
 DlgPaste(MyDialog)
 ELSE IF ((MyCmdKey = ‘f’) OR (MyCmdKey = ‘F’)) THEN
 Open_Find(I_Find)
 ELSE IF ((MyCmdKey = ‘r’) OR (MyCmdKey = ‘R’)) THEN
 Open_Find(I_Replace);
 GOTO 1
 END
 ELSE IF (chCode = ReturnKey) THEN
 BEGIN
 IF (bolden = I_Find) THEN
 IF (Opened = I_Find) THEN
 success := Find(hte)
 ELSE
 Search(hte)
 ELSE
 Replace(hte);
 GOTO 1;
 END
 END;
 IF DialogSelect(theEvent, whichDialog, itemHit) THEN
 BEGIN
 GetDItem(whichDialog, itemHit, DType, DItem, tempRect);
 CItem := Pointer(DItem);
 IF (ItemHit = I_Cancel) THEN
 ExitDialog := true;
 IF (ItemHit = I_Find) THEN
 IF (Opened = I_Find) THEN
 success := Find(hte)
 ELSE
 Search(hte);
 IF (ItemHit = I_Replace) THEN
 Replace(hte);
 END
 ELSE IF (theEvent.what = UpDateEvt) THEN
 FrameItem(Bolden)
 ELSE IF (theEvent.what = ActivateEvt) AND (Opened = I_Find) AND Odd(theEvent.modifiers) 
THEN
 BEGIN
 GetDItem(MyDialog, I_Find, DType, DItem, tempRect);
 GetIText(DItem, theString);
 IF length(theString) > 0 THEN
 SelIText(MyDialog, I_Find_Text, 0, length(theString));
 END;
 END;
1 :
 IF ExitDialog THEN
 BEGIN
 Close_Find;
 END;
 END;

END.
Listing: Search.Pas
PROGRAM Searcher;
{Program name:Searcher.Pas   }
{This is the main program and event loop.  }
{History: 7/03/88 MEM Original Coding  }
{                       }
 USES
 ROM85, SearchGlobs, Inits, Find_Dialog, Utils;
 VAR
 theEvent : EventRecord;
 thecode : integer;
 theWindow : WindowPtr;
 thePeek : WindowPeek;
 OldPort : GrafPtr;
 menuResult : longint;
 newSize : longint;
 theMenu, theItem : integer;
 chCode : integer;
 ch : char;
 GlobalPt, localPt : Point;
 EventFlag : boolean;
 extend : boolean;
BEGIN
 InitMac;
 InitRects;
 InitMenus;
 InitTxtWind;
 Init_Find;
 REPEAT
 IF (hte <> NIL) THEN
 TEIdle(hte);
 SystemTask;
 EventFlag := GetNextEvent(everyEvent, theEvent);
 thecode := FindWindow(theEvent.where, theWindow);
 IF IsDialogEvent(theEvent) THEN
 Do_Find(theEvent, hte)
 ELSE IF EventFlag THEN
 BEGIN
 CASE theEvent.what OF
 MouseDown : 
 BEGIN
 IF (thecode = inMenuBar) THEN
 BEGIN
 menuResult := MenuSelect(theEvent.Where);
 theMenu := HiWord(menuResult);
 theItem := LoWord(menuResult);
 Do_Menu(theMenu, theItem);
 END;
 IF (thecode = InDrag) THEN
 DragWindow(theWindow, theEvent.where, DragRect);
 IF (thecode = inGrow) THEN
 BEGIN
 newSize := GrowWindow(theWindow, theEvent.where, GrowRect);
 IF newSize <> 0 THEN
 Grow_Txt(LoWord(newSize), HiWord(newSize))
 END;
 IF (thecode = inGoAway) THEN
 BEGIN
 IF TrackGoAway(theWindow, theEvent.where) THEN
 HideWindow(theWindow);
 END;
 IF ((thecode = inZoomIn) OR (thecode = inZoomOut)) THEN
 BEGIN
 IF TrackBox(thewindow, theEvent.where, theCode) THEN
 BEGIN
 GetPort(OldPort);
 SetPort(MyWindow);
 EraseRect(MyWindow^.portRect);
 ZoomWindow(Mywindow, thecode, TRUE);
 WITH MyWindow^.portRect DO
 Grow_Txt(right - left, bottom - top);
 SetPort(OldPort);
 END;
 END;
 IF (thecode = inContent) THEN
 BEGIN
 IF (theWindow <> FrontWindow) THEN
 SelectWindow(theWindow)
 ELSE
 BEGIN
 globalPt := theEvent.where;
 localPt := globalPt;
 GlobalToLocal(localPt);
 IF PtInRect(localPt, hte^^.viewRect) THEN
 BEGIN
 extend := (BitAnd(theEvent.modifiers, ShiftKey) <> 0);
 TEClick(localPt, extend, hte);
 END;
 END;
 END;
 IF (thecode = inSysWindow) THEN
 SystemClick(theEvent, theWindow);
 END;
 KeyDown, AutoKey : 
 BEGIN
 WITH theEvent DO
 BEGIN
 chCode := BitAnd(message, CharCodeMask);
 ch := CHR(chCode);
 IF (Odd(modifiers DIV CmdKey)) THEN
 BEGIN
 menuResult := MenuKey(ch);
 theMenu := HiWord(menuResult);
 theItem := LoWord(menuResult);
 IF (theMenu <> 0) THEN
 Do_Menu(theMenu, theItem)
 ELSE IF ((ch = ‘x’) OR (ch = ‘X’)) AND (hte <> NIL) THEN
 TECut(hte)
 ELSE IF ((ch = ‘c’) OR (ch = ‘C’)) AND (hte <> NIL) THEN
 TECopy(hte)
 ELSE IF ((ch = ‘v’) OR (ch = ‘V’)) AND (hte <> NIL) THEN
 TEPaste(hte);
 END
 ELSE IF (hte <> NIL) THEN
 TEKey(ch, hte);
 END;
 END;
 UpDateEvt : 
 BEGIN
 Update_Txt;
 END;
 ActivateEvt : 
 BEGIN
 Act_Txt(theEvent);
 END;
 OTHERWISE
 BEGIN
 END;
 END;
 END;
 UNTIL doneFlag;
 Do_Quit;
END.

 
AAPL
$98.38
Apple Inc.
-0.64
MSFT
$43.89
Microsoft Corpora
-0.09
GOOG
$585.61
Google Inc.
-4.99

MacTech Search:
Community Search:

Software Updates via MacUpdate

Drive Genius 3.2.4 - Powerful system uti...
Drive Genius is an OS X utility designed to provide unsurpassed storage management. Featuring an easy-to-use interface, Drive Genius is packed with powerful tools such as a drive optimizer, a... Read more
Vitamin-R 2.15 - Personal productivity t...
Vitamin-R creates the optimal conditions for your brain to work at its best by structuring your work into short bursts of distraction-free, highly focused activity alternating with opportunities for... Read more
Toast Titanium 12.0 - The ultimate media...
Toast Titanium goes way beyond the very basic burning in the Mac OS and iLife software, and sets the standard for burning CDs, DVDs, and now Blu-ray discs on the Mac. Create superior sounding audio... Read more
OS X Yosemite Wallpaper 1.0 - Desktop im...
OS X Yosemite Wallpaper is the gorgeous new background image for Apple's upcoming OS X 10.10 Yosemite. This wallpaper is available for all screen resolutions with a source file that measures 5,418... Read more
Acorn 4.4 - Bitmap image editor. (Demo)
Acorn is a new image editor built with one goal in mind - simplicity. Fast, easy, and fluid, Acorn provides the options you'll need without any overhead. Acorn feels right, and won't drain your bank... Read more
Bartender 1.2.20 - Organize your menu ba...
Bartender lets you organize your menu bar apps. Features: Lets you tidy your menu bar apps how you want. See your menu bar apps when you want. Hide the apps you need to run, but do not need to... Read more
TotalFinder 1.6.2 - Adds tabs, hotkeys,...
TotalFinder is a universally acclaimed navigational companion for your Mac. Enhance your Mac's Finder with features so smart and convenient, you won't believe you ever lived without them. Tab-based... Read more
Vienna 3.0.0 RC 2 :be5265e: - RSS and At...
Vienna is a freeware and Open-Source RSS/Atom newsreader with article storage and management via a SQLite database, written in Objective-C and Cocoa, for the OS X operating system. It provides... Read more
VLC Media Player 2.1.5 - Popular multime...
VLC Media Player is a highly portable multimedia player for various audio and video formats (MPEG-1, MPEG-2, MPEG-4, DivX, MP3, OGG, ...) as well as DVDs, VCDs, and various streaming protocols. It... Read more
Default Folder X 4.6.7 - Enhances Open a...
Default Folder X attaches a toolbar to the right side of the Open and Save dialogs in any OS X-native application. The toolbar gives you fast access to various folders and commands. You just click... Read more

Latest Forum Discussions

See All

Note Review
Note Review By Jennifer Allen on July 29th, 2014 Our Rating: :: TOO SIMPLEiPhone App - Designed for the iPhone, compatible with the iPad Note is a note taking app that’s a little too short on features to be worth its asking price... | Read more »
Chainsaw Warrior Goes on Sale & Ther...
Chainsaw Warrior Goes on Sale & There’s a Chance to Win a Copy of the Original Board Game Posted by Jennifer Allen on July 29th, 2014 [ permalink | Read more »
It Came From Canada: Tiny Tower Vegas
If you go to a casino, you might make a lot of money. If you run a casino, you’re guaranteed to make a lot of money. The choice seems pretty obvious. So while waiting for your shady real estate deals to move forward, get prepared with Tiny Tower... | Read more »
Z Hunter Review
Z Hunter Review By Lee Hamlet on July 29th, 2014 Our Rating: :: RIGHT ON TARGETUniversal App - Designed for iPhone and iPad While it might not necessarily break new ground, Z Hunter has enough tricks up its sleeve to ensure that... | Read more »
Huge Update Comes To Duet, Adding 48 New...
Huge Update Comes To Duet, Adding 48 New Stages Posted by Jennifer Allen on July 29th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Sharknado: The Video Game Available Now....
Sharknado: The Video Game Available Now. Seriously. Posted by Rob Rich on July 29th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Frog Orbs 2 Review
Frog Orbs 2 Review By Nadia Oxford on July 29th, 2014 Our Rating: :: THIS MAGIC IS A TAD MONOTONOUS Universal App - Designed for iPhone and iPad Frog Orbs 2 is repetitive, but younger players should enjoy it nonetheless.   | Read more »
Puzzix Review
Puzzix Review By Jennifer Allen on July 29th, 2014 Our Rating: :: NICE IDEAUniversal App - Designed for iPhone and iPad A little like Tetris, Puzzix is all about piecing together blocks and watching them vanish. It could do with... | Read more »
Cannonball eMail is Now Live – Works Wit...
Cannonball eMail is Now Live – Works With Gmail, Yahoo, Outlook, Hotmail, and AOL Posted by Jessica Fisher on July 29th, 2014 [ permalink ] | Read more »
To The End Review
To The End Review By Lee Hamlet on July 29th, 2014 Our Rating: :: A VICIOUS CYCLEUniversal App - Designed for iPhone and iPad To The End will test players’ patience, timing, and dedication as they try to navigate all 13 levels in... | Read more »

Price Scanner via MacPrices.net

WaterField Unveils 15″ Outback Solo & 13″...
Hard on the heels of Apple’s refreshed MacBook Pro Retina laptops announcement, WaterField Designs has unveiled a 15-inch version of the waxed-canvas and leather Outback Solo and a 13-inch version of... Read more
New Roxio Toast 12 Delivers Digital Media Pow...
Roxio Toast 12 is a hub for sharing digital media to virtually any platform or device. has introduced two new additions to its Roxio Toast product family – Roxio Toast 12 Titanium and Roxio Toast 12... Read more
The lowest prices on leftover Retina MacBook...
Best Buy has dropped prices on leftover 13″ and 15″ Retina MacBook Pros by up to $300 off original MSRP on their online store for a limited time. Choose free local store pickup (if available) or free... Read more
Apple Updates MacBook Pro with Retina Display...
Apple today updated its MacBook Pro with Retina display with faster processors and double the amount of memory in both entry-level configurations. MacBook Pro with Retina display features a Retina... Read more
Up to $250 price drop on leftover 15-inch Mac...
B&H Photo has dropped prices on 2013 15″ Retina MacBook Pros by as much as $250 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.3GHz Retina MacBook Pro: $2349... Read more
Updated MacBook Pro Price Trackers
We’ve updated our MacBook Pro Price Trackers with the latest information on prices, bundles, and availability on the new 2014 models from Apple’s authorized internet/catalog resellers as well as... Read more
Apple updates MacBook Pros with slightly fast...
Apple updated 13″ and 15″ Retina MacBook Pros today with slightly faster Haswell processors. 13″ models now ship with 8GB of RAM standard, while 15″ MacBook Pros ship with 16GB across the board. Most... Read more
Apple drops price on 13″ 2.5GHz MacBook Pro b...
The Apple Store has dropped their price for the 13″ 2.5GHz MacBook Pro by $100 to $1099 including free shipping. Read more
Apple drops prices on refurbished 2013 MacBoo...
The Apple Store has dropped prices on Apple Certified Refurbished 13″ and 15″ 2013 MacBook Pros, with model now available starting at $929. Apple’s one-year warranty is standard, and shipping is free... Read more
iOS 8 and OS X 10.10 To Support DuckDuckGo As...
Writing for Quartz, Dan Frommer reports that Apple’s forthcoming iOS 8 and OS X 10.10 operating systems version updates will allow users to select DuckDuckGo as their default search engine. He notes... 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* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
Sr. Product Leader, *Apple* Store Apps - Ap...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.