home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / yacl-012.zip / ui / scrolbar.cxx < prev    next >
C/C++ Source or Header  |  1995-04-04  |  10KB  |  357 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6. /*
  7.  *
  8.  *          Copyright (C) 1994, M. A. Sridhar
  9.  *  
  10.  *
  11.  *     This software is Copyright M. A. Sridhar, 1994. You are free
  12.  *     to copy, modify or distribute this software  as you see fit,
  13.  *     and to use  it  for  any  purpose, provided   this copyright
  14.  *     notice and the following   disclaimer are included  with all
  15.  *     copies.
  16.  *
  17.  *                        DISCLAIMER
  18.  *
  19.  *     The author makes no warranties, either expressed or implied,
  20.  *     with respect  to  this  software, its  quality, performance,
  21.  *     merchantability, or fitness for any particular purpose. This
  22.  *     software is distributed  AS IS.  The  user of this  software
  23.  *     assumes all risks  as to its quality  and performance. In no
  24.  *     event shall the author be liable for any direct, indirect or
  25.  *     consequential damages, even if the  author has been  advised
  26.  *     as to the possibility of such damages.
  27.  *
  28.  */
  29.  
  30.  
  31.  
  32. #if defined(__GNUC__)
  33. #pragma implementation
  34. #endif
  35.  
  36.  
  37. #include "ui/scrolbar.h"
  38. #include "ui/cntroler.h"
  39. #include "ui/interval.h"
  40.  
  41. #if defined(__MS_WINDOWS__)
  42. #include <windows.h>
  43.  
  44. #elif defined(__X_MOTIF__)
  45. #include <Xm/ScrollBar.h> 
  46.  
  47. #endif
  48.  
  49. #if defined(__GNUC__) && __GNUC_MINOR__ >= 6
  50. template class CL_Binding<UI_ScrollBar>;
  51. #endif
  52.  
  53.  
  54. /*------------------ ScrollBar Object ---------------------------*/
  55.  
  56. typedef CL_Binding<UI_ScrollBar> Bind;
  57.  
  58. UI_ScrollBar::UI_ScrollBar (UI_VObjCollection* p,
  59.                             const UI_Rectangle& shape,
  60.                             UI_ViewID id, long bstyle)
  61. :  UI_SimpleVObject (p, shape, id, bstyle), _range (0, 100)
  62. { 
  63.     _model = new CL_Interval (0,0);
  64.     _ownModel = TRUE;
  65.     Bind bind (this, &UI_ScrollBar::_RangeChanged);
  66.     _range.AddDependent (bind, 1); // Second parameter unused
  67.     _lineAmount = 1;
  68.     _pageAmount = 10;
  69.     _smoothScroll = TRUE;
  70.     _vertical = TRUE;
  71. }
  72.  
  73.  
  74. UI_ScrollBar::~UI_ScrollBar()
  75. {
  76. }
  77.  
  78.  
  79.  
  80. UI_WindowClass UI_ScrollBar::WindowClass () const
  81. {
  82. #if defined(__MS_WINDOWS__)
  83.     return "scrollbar";
  84. #elif defined(__OS2__)
  85.     return WC_SCROLLBAR;
  86. #elif defined(__X_MOTIF__)
  87.     return xmScrollBarWidgetClass;
  88. #endif
  89. }
  90.  
  91.  
  92. bool UI_ScrollBar::MakeVisualElement ()
  93. {
  94.     bool b = UI_SimpleVObject::MakeVisualElement ();
  95. #if defined(__X_MOTIF__)
  96.     Arg args[1];
  97.     XtSetArg    (args[0], XmNorientation,
  98.                  _vertical ? XmVERTICAL : XmHORIZONTAL);
  99.     XtSetValues (_xwidget, args, 1);
  100. #endif
  101.     return b;
  102. }
  103.  
  104.  
  105. void UI_ScrollBar::_PrivateInitialize()
  106. {
  107.     UI_SimpleVObject::_PrivateInitialize();
  108.  
  109. #if defined(__MS_WINDOWS__)
  110.     SetScrollRange ((HWND) _handle, SB_CTL, _range.Low(), _range.High(),
  111.                     TRUE);
  112.     CL_Interval& interval = *(CL_Interval*) _model;
  113.     SetScrollPos (_handle, SB_CTL, interval.Low(), TRUE);
  114. #elif defined(__OS2__)
  115.     _RangeChanged (*this, 0); // Force an initialization of range
  116.     _ModelChanged (*this, 0); // Force initialization of model
  117. #elif defined(__X_MOTIF__)
  118.  
  119.     _RangeChanged (*this, 0); // Force an initialization of range
  120.     _ModelChanged (*this, 0); // Force initialization of model
  121.     XtAddCallback (_xwidget, XmNdragCallback, 
  122.                    &UI_ScrollBar::ScrollBarCallback, (XtPointer) this);
  123.     XtAddCallback (_xwidget, XmNincrementCallback, 
  124.                    &UI_ScrollBar::ScrollBarCallback, (XtPointer) this);
  125.     XtAddCallback (_xwidget, XmNpageIncrementCallback, 
  126.                    &UI_ScrollBar::ScrollBarCallback, (XtPointer) this);
  127.     XtAddCallback (_xwidget, XmNdecrementCallback, 
  128.                    &UI_ScrollBar::ScrollBarCallback, (XtPointer) this);
  129.     XtAddCallback (_xwidget, XmNpageDecrementCallback, 
  130.                    &UI_ScrollBar::ScrollBarCallback, (XtPointer) this);
  131.     XtAddCallback (_xwidget, XmNtoBottomCallback, 
  132.                    &UI_ScrollBar::ScrollBarCallback, (XtPointer) this);
  133.     XtAddCallback (_xwidget, XmNtoTopCallback, 
  134.                    &UI_ScrollBar::ScrollBarCallback, (XtPointer) this);
  135.     XtAddCallback (_xwidget, XmNvalueChangedCallback, 
  136.                    &UI_ScrollBar::ScrollBarCallback, (XtPointer) this);
  137. #endif
  138. }
  139.  
  140.  
  141. #if defined(__X_MOTIF__)
  142. void UI_ScrollBar::ScrollBarCallback (Widget w, void* client, void* call)
  143. {
  144.     UI_ScrollBar* bar = (UI_ScrollBar *) client;
  145.     UI_EventType type;
  146.     XmScrollBarCallbackStruct* cb = (XmScrollBarCallbackStruct*) call;
  147.     switch (cb->reason) {
  148.     case XmCR_DRAG:
  149.         type = Event_Scroll;
  150.         break;
  151.         
  152.     case XmCR_DECREMENT:
  153.         type = Event_ScrollBackwardLine;
  154.         break;
  155.         
  156.     case XmCR_INCREMENT:
  157.         type = Event_ScrollForwardLine;
  158.         break;
  159.         
  160.     case XmCR_PAGE_DECREMENT:
  161.         type = Event_ScrollBackwardPage;
  162.         break;
  163.         
  164.     case XmCR_PAGE_INCREMENT:
  165.         type = Event_ScrollForwardPage;
  166.         break;
  167.  
  168.     case XmCR_TO_TOP:
  169.         type = Event_ScrollToBegin;
  170.         break;
  171.  
  172.     case XmCR_TO_BOTTOM:
  173.         type = Event_ScrollToEnd;
  174.         break;
  175.  
  176.     case XmCR_VALUE_CHANGED:
  177.         type = Event_FinishScroll;
  178.         break;
  179.  
  180.     default:
  181.         CL_Error::Warning ("UI_ScrollBar callback: unknown reason");
  182.         break;
  183.     };
  184.     int val, slsize, inc, page_inc;
  185.     XmScrollBarGetValues (bar->_xwidget, &val, &slsize, &inc, &page_inc);
  186.     bar->_SetModelValue (CL_Interval (val, val+slsize-1));
  187.     UI_Event* evt = new UI_Event (type, bar, bar);
  188.     evt->param = val;
  189.     _Controller->AddEvent (evt);
  190. }
  191.  
  192. #endif // __X_MOTIF__
  193.  
  194.  
  195. bool UI_ScrollBar::HandleEvent (UI_Event* e)
  196. {
  197.     UI_EventType type = e->Type();
  198.     if (type < Event_Scroll || type > Event_ScrollToPosition) {
  199.         return ProcessEvent (e);
  200.     }
  201.  
  202.     long pos = ((CL_Interval*) _model)->Low();
  203.     switch (type) {
  204.     case Event_ScrollToBegin:
  205.         pos = _range.Low();
  206.         break;
  207.         
  208.     case Event_ScrollToEnd:
  209.         pos = _range.High();
  210.         break;
  211.         
  212.     case Event_ScrollForwardLine:
  213.         pos = minl (_range.High(), pos + _lineAmount);
  214.         break;
  215.         
  216.     case Event_ScrollBackwardLine:
  217.         pos = maxl (_range.Low(), pos - _lineAmount);
  218.         break;
  219.  
  220.     case Event_ScrollForwardPage:
  221.         pos = minl (_range.High(), pos + _pageAmount);
  222.         break;
  223.         
  224.     case Event_ScrollBackwardPage:
  225.         pos = maxl (_range.Low (), pos - _pageAmount);
  226.         break;
  227.  
  228.     case Event_ScrollToPosition:
  229.     case Event_Scroll:
  230.         pos = e->param;
  231.         break;
  232.  
  233.     default:
  234.         break;
  235.     }        
  236. #if defined(__MS_WINDOWS__)
  237.     _SetModelValue (CL_Interval (pos, pos));
  238.     SetScrollPos (_handle, SB_CTL, pos, TRUE);
  239. #elif defined(__OS2__)
  240.     WinSendMsg (_handle, SBM_SETPOS, (MPARAM) pos, 0);
  241.     long len = ((CL_Interval*) _model)->Length();
  242.     _SetModelValue (CL_Interval (pos, pos + len-1));
  243. #endif
  244.     if (_clientSet.Size () == 0)
  245.         return FALSE;
  246.     if (type != Event_Scroll || _smoothScroll)
  247.         _clientSet.NotifyAll (*this);
  248.     return TRUE;
  249. }
  250.  
  251.  
  252. CL_Interval& UI_ScrollBar::Range ()
  253. {
  254.     return _range;
  255. }
  256.  
  257.  
  258.  
  259. #if defined(__X_MOTIF__)
  260. static void _SetResources (Widget scroll, const CL_Interval& model,
  261.                            const CL_Interval& range, short line, short page)
  262. {
  263.     XmScrollBarSetValues (scroll, model.Low(), model.Length(),  line, page,
  264.                           FALSE);
  265.     Arg args[2];
  266.     XtSetArg    (args[0] , XmNminimum, range.Low  ());
  267.     XtSetArg    (args[1] , XmNmaximum, range.High () + model.Length());
  268.     XtSetValues (scroll, args, 2);
  269.     XmUpdateDisplay (scroll);
  270. }
  271.  
  272. #endif
  273.  
  274. bool UI_ScrollBar::_ModelChanged (CL_Object&, long)
  275. {
  276. #if defined(__MS_WINDOWS__)
  277.     if (_handle)
  278.         SetScrollPos   (_handle, SB_CTL, ((CL_Interval*) _model)->Low(),
  279.                         TRUE);
  280. #elif defined(__OS2__)
  281.     if (_handle) {
  282.         CL_Interval& value = *(CL_Interval*) _model;
  283.         WinSendMsg (_handle, SBM_SETSCROLLBAR,
  284.                     MPFROM2SHORT (value.Low(), value.High()),
  285.                     MPFROM2SHORT (_range.Low(), _range.High()));
  286.     }
  287. #elif defined(__X_MOTIF__)
  288.     if (_xwidget) {
  289.         CL_Interval& value = *(CL_Interval*) _model;
  290.         _SetResources (_xwidget, value, _range, _lineAmount, _pageAmount);
  291.     }
  292. #endif
  293.     return TRUE;
  294. }
  295.  
  296. bool UI_ScrollBar::_RangeChanged (CL_Object&, long)
  297. {
  298. #if defined(__MS_WINDOWS__)
  299.     if (_handle > 0)
  300.         SetScrollRange (_handle, SB_CTL, _range.Low(), _range.High(),
  301.                         TRUE);
  302. #elif defined(__OS2__)
  303.     if (_handle) {
  304.         CL_Interval& value = *(CL_Interval*) _model;
  305.         WinSendMsg (_handle, SBM_SETSCROLLBAR,
  306.                     MPFROM2SHORT (value.Low(), value.High()),
  307.                     MPFROM2SHORT (_range.Low(), _range.High()));
  308.     }
  309.                     
  310. #elif defined(__X_MOTIF__)
  311.     if (_xwidget) {
  312.         CL_Interval& value = *(CL_Interval*) _model;
  313.         _SetResources (_xwidget, value, _range, _lineAmount, _pageAmount);
  314.     }
  315. #endif
  316.     return TRUE;
  317. }
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324. /*---------------------VScrollBar------------------------------------*/
  325.  
  326. UI_VScrollBar::UI_VScrollBar
  327.     (UI_VObjCollection* p, const UI_Rectangle& shape,
  328.      UI_ViewID id, long bstyle)
  329. : UI_ScrollBar (p, shape, id, bstyle)
  330. {
  331. #if defined (__MS_WINDOWS__)
  332.     if (_style == -1)
  333.         _style = WS_VISIBLE | SBS_VERT | WS_CHILD;
  334. #elif defined (__OS2__)
  335.     _style = SBS_VERT | WS_VISIBLE;
  336. #endif
  337. }
  338.  
  339.  
  340.  
  341.  
  342. /*-------------------------HScrollBar----------------------------*/
  343.  
  344. UI_HScrollBar::UI_HScrollBar
  345.     (UI_VObjCollection* p, const UI_Rectangle& shape,
  346.      UI_ViewID id, long bstyle)
  347. : UI_ScrollBar (p, shape, id, bstyle)
  348. {
  349. #if defined(__MS_WINDOWS__)
  350.     if (_style == -1)
  351.         _style = WS_VISIBLE | SBS_HORZ | WS_CHILD;
  352. #elif defined (__OS2__)
  353.     _style = SBS_HORZ | WS_VISIBLE;
  354. #endif
  355. }
  356.  
  357.