home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 7 / FreshFishVol7.bin / bbs / gnu / aplusplus-1.01-src.lha / GNU / src / amiga / APlusPlus-1.01 / libsource / GT_Scroller.cxx < prev    next >
C/C++ Source or Header  |  1994-05-08  |  1KB  |  47 lines
  1. /******************************************************************************
  2.  **
  3.  **    C++ Class Library for the Amiga© system software.
  4.  **
  5.  **    Copyright (C) 1994 by Armin Vogt  **  EMail: armin@uni-paderborn.de
  6.  **    All Rights Reserved.
  7.  **
  8.  **    $Source: apphome:APlusPlus/RCS/libsource/GT_Scroller.cxx,v $
  9.  **    $Revision: 1.4 $
  10.  **    $Date: 1994/05/08 13:32:59 $
  11.  **    $Author: Armin_Vogt $
  12.  **
  13.  ******************************************************************************/
  14.  
  15.  
  16. extern "C" {
  17. #ifdef __GNUG__
  18. #include <inline/intuition.h>
  19. #include <inline/gadtools.h>
  20. #include <inline/utility.h>
  21. #endif
  22.  
  23. #ifdef __SASC
  24. #include <proto/utility.h>
  25. #include <proto/gadtools.h>
  26. #include <proto/intuition.h>
  27. #endif
  28. }
  29. #include <APlusPlus/intuition/GT_Gadgets/GT_Scroller.h>
  30.  
  31.  
  32. volatile static char rcs_id[] = "$Id: GT_Scroller.cxx,v 1.4 1994/05/08 13:32:59 Armin_Vogt Exp Armin_Vogt $";
  33.  
  34.  
  35. void GT_Scroller::callback(const IntuiMessageC *imsg)
  36.    /* Scroller gadgets may send GADGETUP,GADGETDOWN and MOUSEMOVE. For all of these messages
  37.       the Code field will contain the new Top value.
  38.    */
  39. {
  40.    // since GT_Gadget sets IDCMP to LISTVIEW_IDCMP per default,
  41.    // also INTUITICKS, which hold no information in the Code field,will arive here!
  42.    if (imsg->getClass()!=CLASS_INTUITICKS)
  43.    {
  44.       setAttrs( AttrList(GTSC_Top,(WORD)imsg->Code,TAG_END) );
  45.    }
  46. }
  47.