-- Scrollbar.TIP, created by System
-- Version of 15-Dec-82 16:28:13

[DEF,ChordTime,(200)]

[DEF,Chord,(SELECT TRIGGER FROM
  ~1 Down BEFORE [ChordTime] => { COORDS ~2 };
  ENDCASE => { COORDS ~3 })]

SELECT TRIGGER FROM
  
  MOUSE => COORDS, Track;
  
  Adjust Up => COORDS, Scroll;
  Point Up => COORDS, MaybeScroll;
  
  Menu Up => COORDS, Scroll;
  MENU Up => COORDS, Scroll;
  
  Adjust Down => [Chord,Point,SetDirectionThumb,SetDirectionBackward];
  Point Down => [Chord,Adjust,SetDirectionThumb,SetDirectionForward];

  Menu Down  => COORDS, SetDirectionThumb;
  MENU Down  => COORDS, SetDirectionThumb;

  ENTER => SELECT ENABLE FROM
    Point Down => SELECT ENABLE FROM
      Adjust Down => Enter, SetDirectionThumb;
      ENDCASE => Enter, SetDirectionForward;
    MENU Down | Menu Down => Enter, SetDirectionThumb;
    Adjust Down => Enter, SetDirectionBackward;
    ENDCASE => Enter;
      
  EXIT => Exit;
  
  ENDCASE...