Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*> INTERFACETheBtnVBTClass ; IMPORT ButtonVBT; TYPE T = ButtonVBT.Public BRANDED OBJECT ready, armed := FALSE END;
ready
boolean is set if the pre
method has been called.
The armed
boolean is set if an up transition over the button
would cause the action procedure to be called.
REVEAL ButtonVBT.T <: T; END BtnVBTClass.