]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/motif/scrolbar.cpp
More Motif additions: mdi and sashtest samples now just about work!
[wxWidgets.git] / src / motif / scrolbar.cpp
... / ...
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: scrolbar.cpp
3// Purpose: wxScrollBar
4// Author: Julian Smart
5// Modified by:
6// Created: 17/09/98
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12#ifdef __GNUG__
13#pragma implementation "scrolbar.h"
14#endif
15
16#include "wx/scrolbar.h"
17
18#include <X11/IntrinsicP.h>
19#include <Xm/Xm.h>
20#include <Xm/RowColumn.h>
21#include <Xm/ScrollBar.h>
22
23#include <wx/motif/private.h>
24
25void wxScrollBarCallback(Widget widget, XtPointer clientData,
26 XmScaleCallbackStruct *cbs);
27
28#if !USE_SHARED_LIBRARY
29IMPLEMENT_DYNAMIC_CLASS(wxScrollBar, wxControl)
30#endif
31
32// Scrollbar
33bool wxScrollBar::Create(wxWindow *parent, wxWindowID id,
34 const wxPoint& pos,
35 const wxSize& size, long style,
36 const wxValidator& validator,
37 const wxString& name)
38{
39 if (!parent)
40 return FALSE;
41 parent->AddChild(this);
42 SetName(name);
43 SetValidator(validator);
44
45 m_windowStyle = style;
46
47 if ( id == -1 )
48 m_windowId = (int)NewControlId();
49 else
50 m_windowId = id;
51
52 int x = pos.x;
53 int y = pos.y;
54 int width = size.x;
55 int height = size.y;
56
57 if (width == -1)
58 {
59 if (style & wxHORIZONTAL)
60 width = 140;
61 else
62 width = 12;
63 }
64 if (height == -1)
65 {
66 if (style & wxVERTICAL)
67 height = 140;
68 else
69 height = 12;
70 }
71
72 Widget parentWidget = (Widget) parent->GetClientWidget();
73 int direction = (style & wxHORIZONTAL) ? XmHORIZONTAL: XmVERTICAL;
74
75 Widget scrollBarWidget = XtVaCreateManagedWidget("scrollBarWidget",
76 xmScrollBarWidgetClass, parentWidget,
77 XmNorientation, direction,
78 NULL);
79
80 m_mainWidget = (Widget) scrollBarWidget;
81
82 // This will duplicate other events
83 // XtAddCallback(scrollBarWidget, XmNvalueChangedCallback, (XtCallbackProc)wxScrollBarCallback, (XtPointer)this);
84 XtAddCallback(scrollBarWidget, XmNdragCallback, (XtCallbackProc)wxScrollBarCallback, (XtPointer)this);
85 XtAddCallback(scrollBarWidget, XmNdecrementCallback, (XtCallbackProc)wxScrollBarCallback, (XtPointer)this);
86 XtAddCallback(scrollBarWidget, XmNincrementCallback, (XtCallbackProc)wxScrollBarCallback, (XtPointer)this);
87 XtAddCallback(scrollBarWidget, XmNpageDecrementCallback, (XtCallbackProc)wxScrollBarCallback, (XtPointer)this);
88 XtAddCallback(scrollBarWidget, XmNpageIncrementCallback, (XtCallbackProc)wxScrollBarCallback, (XtPointer)this);
89 XtAddCallback(scrollBarWidget, XmNtoTopCallback, (XtCallbackProc)wxScrollBarCallback, (XtPointer)this);
90 XtAddCallback(scrollBarWidget, XmNtoBottomCallback, (XtCallbackProc)wxScrollBarCallback, (XtPointer)this);
91
92 SetCanAddEventHandler(TRUE);
93 AttachWidget (parent, m_mainWidget, (WXWidget) NULL, x, y, width, height);
94 ChangeColour(m_mainWidget);
95
96 return TRUE;
97}
98
99wxScrollBar::~wxScrollBar()
100{
101}
102
103void wxScrollBar::SetPosition(int pos)
104{
105 if (m_mainWidget)
106 {
107 XtVaSetValues ((Widget) m_mainWidget,
108 XmNvalue, pos,
109 NULL);
110 }
111}
112
113int wxScrollBar::GetPosition() const
114{
115 if (m_mainWidget)
116 {
117 int pos;
118 XtVaGetValues((Widget) m_mainWidget,
119 XmNvalue, &pos, NULL);
120 return pos;
121 }
122 else
123 return 0;
124}
125
126void wxScrollBar::SetScrollbar(int position, int thumbSize, int range, int pageSize,
127 bool refresh)
128{
129 m_viewSize = pageSize;
130 m_pageSize = thumbSize;
131 m_objectSize = range;
132
133 if (range == 0)
134 range = 1;
135 if (thumbSize == 0)
136 thumbSize = 1;
137
138 XtVaSetValues((Widget) m_mainWidget,
139 XmNvalue, position,
140 XmNminimum, 0,
141 XmNmaximum, range,
142 XmNsliderSize, thumbSize,
143 XmNpageIncrement, pageSize,
144 NULL);
145}
146
147void wxScrollBar::Command(wxCommandEvent& event)
148{
149 SetPosition(event.m_commandInt);
150 ProcessCommand(event);
151}
152
153void wxScrollBarCallback(Widget widget, XtPointer clientData,
154 XmScaleCallbackStruct *cbs)
155{
156 wxScrollBar *scrollBar = (wxScrollBar *)clientData;
157
158 wxEventType eventType = wxEVT_NULL;
159 switch (cbs->reason)
160 {
161 case XmCR_INCREMENT:
162 {
163 eventType = wxEVT_SCROLL_LINEDOWN;
164 break;
165 }
166 case XmCR_DECREMENT:
167 {
168 eventType = wxEVT_SCROLL_LINEUP;
169 break;
170 }
171 case XmCR_DRAG:
172 {
173 eventType = wxEVT_SCROLL_THUMBTRACK;
174 break;
175 }
176 case XmCR_VALUE_CHANGED:
177 {
178 // TODO: Should this be intercepted too, or will it cause
179 // duplicate events?
180 eventType = wxEVT_SCROLL_THUMBTRACK;
181 break;
182 }
183 case XmCR_PAGE_INCREMENT:
184 {
185 eventType = wxEVT_SCROLL_PAGEDOWN;
186 break;
187 }
188 case XmCR_PAGE_DECREMENT:
189 {
190 eventType = wxEVT_SCROLL_PAGEUP;
191 break;
192 }
193 case XmCR_TO_TOP:
194 {
195 eventType = wxEVT_SCROLL_TOP;
196 break;
197 }
198 case XmCR_TO_BOTTOM:
199 {
200 eventType = wxEVT_SCROLL_BOTTOM;
201 break;
202 }
203 default:
204 {
205 // Should never get here
206 wxFAIL_MSG("Unknown scroll event.");
207 break;
208 }
209 }
210
211 wxScrollEvent event(eventType, scrollBar->GetId());
212 event.SetEventObject(scrollBar);
213 event.SetPosition(cbs->value);
214 scrollBar->GetEventHandler()->ProcessEvent(event);
215/*
216 if (!scrollBar->inSetValue)
217 scrollBar->ProcessCommand(event);
218*/
219}
220