Hello All,

The segments below are an alert in a new program
in FB4. When I "Run" the program and the alert is
triggered I receive the following error message for
2 buttons that do not exist in the indicated window
(the Alert window = 4). :

"Rect parameter must be specified for Button 10
in window 4

This error message is shown for a Run, but not in the Built
application"

In addition the Refresh function is not called during a "Run"

When I run the built app it does not appear to affect the
performance.

I have seen this error message before. As I recall someone
on the list was able to clue me in on the cause. Unfortunately
I can't remember what that advice was.

Can anyone help?


=== Program Segments =======
clear local
dim resID
'-----------------------------------
LOCAL FN RefreshGlobalAlert
flushwindowbuffer
FN ShowICON(128,22,19,54,51)
resID=_msgFive
EDIT FIELD -_Line2Fld,%resID%
flushwindowbuffer
END FN

clear local
dim as ControlFontStyleRec tfs
dim as Rect                 r
dim as Boolean            @ bool
'------------------------------------------------------------
local fn BuildGlobalAlert

SetRect(r, 0, 0, 300, 125)
appearance window -_GlobalAlertWnd,"GlobalAlert", @r,_kPlainWindowClass
'--------------------------------------------------------------
text _Lucida,12,1
SetRect(r, 90, 18, 263, 34)
edit field _Line1Fld,"INCORRECT PROCEDURE!" , @r, _statNoFramed, _centerJust

SetRect(r, 98, 41, 254, 73)
edit field _Line2Fld, "", @r, _statNoFramed, _centerJust

SetRect(r, 227, 85, 267, 105)
appearance button _okBtn, _activeBtn,0,0,1,"OK", @r,_kControlPushButtonProc
bool = _zTrue
def SetButtonData(_okBtn, _kControlEntireControl, 
_kControlPushButtonDefaultTag, SizeOf(Boolean), bool)
end fn

Bruce Gottshall

--
To unsubscribe, send ANY message to: futurebasic-unsubscribe@...