webvbt/src/TextPortButton.i3


 Copyright (C) 1995, Digital Equipment Corporation                         
 All rights reserved.                                                      
 See the file COPYRIGHT for a full description.                            
                                                                           
 Last modified on Tue Jul  4 10:00:08 PDT 1995 by mhb                      

INTERFACE TextPortButton;

IMPORT VText, VBT;

CONST
  Brand = "TextPortButton";

TYPE
  Interval = VText.Interval;
  T = OBJECT
    label: TEXT;
    interval: Interval; (* R/O *)
  METHODS
    callback (READONLY cd: VBT.MouseRec);
  END;
For a TextPortButton.T b, the field b.interval is set after b is inserted into some TextPortWithButtons.T t by calling t.insertButton(b).

PROCEDURE GetExtents(b: T; VAR (*out*) left, right: CARDINAL);

END TextPortButton.