ui/src/split/BtnVBTClass.i3


 Copyright (C) 1992, Digital Equipment Corporation                         
 All rights reserved.                                                      
 See the file COPYRIGHT for a full description.                            
                                                                           
 by Steve Glassman, Mark Manasse and Greg Nelson           
 Last modified on Mon Feb 24 13:52:53 PST 1992 by muller   
      modified on Wed Sep 11 15:28:15 PDT 1991 by msm      
<*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.