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.