\ Forms 98.12.3 5:06 pm NAB
: GetObjectIndex ( objectid -- index )
FrmGetActiveForm
FrmGetObjectIndex ;
: GetObjectPtr ( objectid -- ptr. )
GetObjectIndex
FrmGetActiveForm
FrmGetObjectPtr ;
: GetControlValue ( controlid -- flag )
GetObjectIndex
FrmGetActiveForm
FrmGetControlValue ;
: SetControlValue ( flag controlid -- )
GetObjectIndex
FrmGetActiveForm
FrmSetControlValue ;
: SetLabel ( &string. controlid -- )
GetObjectPtr CtlSetLabel ;
: until-drawn ( formID -- )
begin
0. (ekey) drop
FrmGetActiveFormID over =
FrmGetActiveForm FrmVisible and
until drop ;
: PopupForm ( formID -- )
dup FrmPopupForm until-drawn ;