ui/src/split/BtnVBTClass.i3


Copyright (C) 1994, Digital Equipment Corp.
 by Steve Glassman, Mark Manasse and Greg Nelson           
<*PRAGMA LL*>

INTERFACE BtnVBTClass;

IMPORT ButtonVBT;

TYPE T = ButtonVBT.Public BRANDED OBJECT
  ready, armed := FALSE
END;
The 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.