1 /////////////////////////////////////////////////////////////////////////////
4 // Author: Robert Roebling
6 // Copyright: (c) 1998 Robert Roebling, Vadim Zeitlin
7 // Licence: wxWindows licence
8 /////////////////////////////////////////////////////////////////////////////
10 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
11 #pragma implementation "textctrl.h"
14 // For compilers that support precompilation, includes "wx.h".
15 #include "wx/wxprec.h"
17 #include "wx/textctrl.h"
21 #include "wx/settings.h"
23 #include "wx/strconv.h"
24 #include "wx/fontutil.h" // for wxNativeFontInfo (GetNativeFontInfo())
26 #include <sys/types.h>
29 #include <math.h> // for fabs
31 #include "wx/gtk/private.h"
32 #include <gdk/gdkkeysyms.h>
34 //-----------------------------------------------------------------------------
36 //-----------------------------------------------------------------------------
38 extern void wxapp_install_idle_handler();
41 //-----------------------------------------------------------------------------
43 //-----------------------------------------------------------------------------
45 extern bool g_blockEventsOnDrag
;
46 extern wxCursor g_globalCursor
;
47 extern wxWindowGTK
*g_delayedFocus
;
49 // ----------------------------------------------------------------------------
51 // ----------------------------------------------------------------------------
54 static void wxGtkTextInsert(GtkWidget
*text
,
55 GtkTextBuffer
*text_buffer
,
56 const wxTextAttr
& attr
,
60 PangoFontDescription
*font_description
= attr
.HasFont()
61 ? attr
.GetFont().GetNativeFontInfo()->description
64 GdkColor
*colFg
= attr
.HasTextColour() ? attr
.GetTextColour().GetColor()
67 GdkColor
*colBg
= attr
.HasBackgroundColour()
68 ? attr
.GetBackgroundColour().GetColor()
72 tag
= gtk_text_buffer_create_tag( text_buffer
, NULL
, "font-desc", font_description
,
73 "foreground-gdk", colFg
,
74 "background-gdk", colBg
, NULL
);
77 gtk_text_buffer_get_iter_at_mark( text_buffer
, &iter
,
78 gtk_text_buffer_get_insert (text_buffer
) );
80 gtk_text_buffer_insert_with_tags( text_buffer
, &iter
, buffer
, strlen(buffer
), tag
, NULL
);
83 static void wxGtkTextInsert(GtkWidget
*text
,
84 const wxTextAttr
& attr
,
88 GdkFont
*font
= attr
.HasFont() ? attr
.GetFont().GetInternalFont()
91 GdkColor
*colFg
= attr
.HasTextColour() ? attr
.GetTextColour().GetColor()
94 GdkColor
*colBg
= attr
.HasBackgroundColour()
95 ? attr
.GetBackgroundColour().GetColor()
98 gtk_text_insert( GTK_TEXT(text
), font
, colFg
, colBg
, txt
, len
);
102 // ----------------------------------------------------------------------------
103 // "insert_text" for GtkEntry
104 // ----------------------------------------------------------------------------
107 gtk_insert_text_callback(GtkEditable
*editable
,
108 const gchar
*new_text
,
109 gint new_text_length
,
114 wxapp_install_idle_handler();
116 // we should only be called if we have a max len limit at all
117 GtkEntry
*entry
= GTK_ENTRY (editable
);
119 wxCHECK_RET( entry
->text_max_length
, _T("shouldn't be called") );
121 // check that we don't overflow the max length limit
123 // FIXME: this doesn't work when we paste a string which is going to be
125 if ( entry
->text_length
== entry
->text_max_length
)
127 // we don't need to run the base class version at all
128 gtk_signal_emit_stop_by_name(GTK_OBJECT(editable
), "insert_text");
130 // remember that the next changed signal is to be ignored to avoid
131 // generating a dummy wxEVT_COMMAND_TEXT_UPDATED event
132 win
->IgnoreNextTextUpdate();
134 // and generate the correct one ourselves
135 wxCommandEvent
event(wxEVT_COMMAND_TEXT_MAXLEN
, win
->GetId());
136 event
.SetEventObject(win
);
137 event
.SetString(win
->GetValue());
138 win
->GetEventHandler()->ProcessEvent( event
);
142 //-----------------------------------------------------------------------------
144 //-----------------------------------------------------------------------------
147 gtk_text_changed_callback( GtkWidget
*widget
, wxTextCtrl
*win
)
149 if ( win
->IgnoreTextUpdate() )
152 if (!win
->m_hasVMT
) return;
155 wxapp_install_idle_handler();
158 win
->UpdateFontIfNeeded();
160 wxCommandEvent
event( wxEVT_COMMAND_TEXT_UPDATED
, win
->GetId() );
161 event
.SetEventObject( win
);
162 event
.SetString( win
->GetValue() );
163 win
->GetEventHandler()->ProcessEvent( event
);
166 //-----------------------------------------------------------------------------
167 // "changed" from vertical scrollbar
168 //-----------------------------------------------------------------------------
172 gtk_scrollbar_changed_callback( GtkWidget
*WXUNUSED(widget
), wxTextCtrl
*win
)
174 if (!win
->m_hasVMT
) return;
177 wxapp_install_idle_handler();
179 win
->CalculateScrollbar();
183 // ----------------------------------------------------------------------------
184 // redraw callback for multiline text
185 // ----------------------------------------------------------------------------
189 // redrawing a GtkText from inside a wxYield() call results in crashes (the
190 // text sample shows it in its "Add lines" command which shows wxProgressDialog
191 // which implicitly calls wxYield()) so we override GtkText::draw() and simply
192 // don't do anything if we're inside wxYield()
194 extern bool wxIsInsideYield
;
197 typedef void (*GtkDrawCallback
)(GtkWidget
*widget
, GdkRectangle
*rect
);
200 static GtkDrawCallback gs_gtk_text_draw
= NULL
;
203 void wxgtk_text_draw( GtkWidget
*widget
, GdkRectangle
*rect
)
205 if ( !wxIsInsideYield
)
207 wxCHECK_RET( gs_gtk_text_draw
!= wxgtk_text_draw
,
208 _T("infinite recursion in wxgtk_text_draw aborted") );
210 gs_gtk_text_draw(widget
, rect
);
214 #endif // __WXGTK20__
216 //-----------------------------------------------------------------------------
218 //-----------------------------------------------------------------------------
220 IMPLEMENT_DYNAMIC_CLASS(wxTextCtrl
,wxControl
)
222 BEGIN_EVENT_TABLE(wxTextCtrl
, wxControl
)
223 EVT_CHAR(wxTextCtrl::OnChar
)
225 EVT_MENU(wxID_CUT
, wxTextCtrl::OnCut
)
226 EVT_MENU(wxID_COPY
, wxTextCtrl::OnCopy
)
227 EVT_MENU(wxID_PASTE
, wxTextCtrl::OnPaste
)
228 EVT_MENU(wxID_UNDO
, wxTextCtrl::OnUndo
)
229 EVT_MENU(wxID_REDO
, wxTextCtrl::OnRedo
)
231 EVT_UPDATE_UI(wxID_CUT
, wxTextCtrl::OnUpdateCut
)
232 EVT_UPDATE_UI(wxID_COPY
, wxTextCtrl::OnUpdateCopy
)
233 EVT_UPDATE_UI(wxID_PASTE
, wxTextCtrl::OnUpdatePaste
)
234 EVT_UPDATE_UI(wxID_UNDO
, wxTextCtrl::OnUpdateUndo
)
235 EVT_UPDATE_UI(wxID_REDO
, wxTextCtrl::OnUpdateRedo
)
238 void wxTextCtrl::Init()
242 m_updateFont
= FALSE
;
244 m_vScrollbar
= (GtkWidget
*)NULL
;
247 wxTextCtrl::wxTextCtrl( wxWindow
*parent
,
249 const wxString
&value
,
253 const wxValidator
& validator
,
254 const wxString
&name
)
258 Create( parent
, id
, value
, pos
, size
, style
, validator
, name
);
261 bool wxTextCtrl::Create( wxWindow
*parent
,
263 const wxString
&value
,
267 const wxValidator
& validator
,
268 const wxString
&name
)
271 m_acceptsFocus
= TRUE
;
273 if (!PreCreation( parent
, pos
, size
) ||
274 !CreateBase( parent
, id
, pos
, size
, style
, validator
, name
))
276 wxFAIL_MSG( wxT("wxTextCtrl creation failed") );
281 m_vScrollbarVisible
= FALSE
;
283 bool multi_line
= (style
& wxTE_MULTILINE
) != 0;
286 GtkTextBuffer
*buffer
= NULL
;
293 m_text
= gtk_text_view_new();
295 buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
297 // create scrolled window
298 m_widget
= gtk_scrolled_window_new( NULL
, NULL
);
299 gtk_scrolled_window_set_policy( GTK_SCROLLED_WINDOW( m_widget
),
300 GTK_POLICY_AUTOMATIC
, GTK_POLICY_AUTOMATIC
);
302 // Insert view into scrolled window
303 gtk_container_add( GTK_CONTAINER(m_widget
), m_text
);
305 // Global settings which can be overridden by tags, I guess.
306 if (HasFlag( wxHSCROLL
))
307 gtk_text_view_set_wrap_mode( GTK_TEXT_VIEW( m_text
), GTK_WRAP_NONE
);
309 gtk_text_view_set_wrap_mode( GTK_TEXT_VIEW( m_text
), GTK_WRAP_WORD
);
311 if (!HasFlag(wxNO_BORDER
))
312 gtk_scrolled_window_set_shadow_type( GTK_SCROLLED_WINDOW(m_widget
), GTK_SHADOW_IN
);
314 // create our control ...
315 m_text
= gtk_text_new( (GtkAdjustment
*) NULL
, (GtkAdjustment
*) NULL
);
317 // ... and put into the upper left hand corner of the table
318 bool bHasHScrollbar
= FALSE
;
319 m_widget
= gtk_table_new(bHasHScrollbar
? 2 : 1, 2, FALSE
);
320 GTK_WIDGET_UNSET_FLAGS( m_widget
, GTK_CAN_FOCUS
);
321 gtk_table_attach( GTK_TABLE(m_widget
), m_text
, 0, 1, 0, 1,
322 (GtkAttachOptions
)(GTK_FILL
| GTK_EXPAND
| GTK_SHRINK
),
323 (GtkAttachOptions
)(GTK_FILL
| GTK_EXPAND
| GTK_SHRINK
),
327 gtk_text_set_word_wrap( GTK_TEXT(m_text
), TRUE
);
329 // finally, put the vertical scrollbar in the upper right corner
330 m_vScrollbar
= gtk_vscrollbar_new( GTK_TEXT(m_text
)->vadj
);
331 GTK_WIDGET_UNSET_FLAGS( m_vScrollbar
, GTK_CAN_FOCUS
);
332 gtk_table_attach(GTK_TABLE(m_widget
), m_vScrollbar
, 1, 2, 0, 1,
334 (GtkAttachOptions
)(GTK_EXPAND
| GTK_FILL
| GTK_SHRINK
),
340 // a single-line text control: no need for scrollbars
342 m_text
= gtk_entry_new();
345 m_parent
->DoAddChild( this );
347 m_focusWidget
= m_text
;
352 wxSize
size_best( DoGetBestSize() );
353 wxSize
new_size( size
);
354 if (new_size
.x
== -1)
355 new_size
.x
= size_best
.x
;
356 if (new_size
.y
== -1)
357 new_size
.y
= size_best
.y
;
358 if ((new_size
.x
!= size
.x
) || (new_size
.y
!= size
.y
))
359 SetSize( new_size
.x
, new_size
.y
);
362 gtk_widget_show(m_text
);
367 gtk_signal_connect(GTK_OBJECT(GTK_TEXT(m_text
)->vadj
), "changed",
368 (GtkSignalFunc
) gtk_scrollbar_changed_callback
, (gpointer
) this );
370 // only initialize gs_gtk_text_draw once, starting from the next the
371 // klass::draw will already be wxgtk_text_draw
372 if ( !gs_gtk_text_draw
)
375 draw
= GTK_WIDGET_CLASS(GTK_OBJECT(m_text
)->klass
)->draw
;
377 gs_gtk_text_draw
= draw
;
379 draw
= wxgtk_text_draw
;
384 if (!value
.IsEmpty())
390 #if !GTK_CHECK_VERSION(1, 2, 0)
391 // if we don't realize it, GTK 1.0.6 dies with a SIGSEGV in
392 // gtk_editable_insert_text()
393 gtk_widget_realize(m_text
);
398 wxWX2MBbuf val
= value
.mbc_str();
399 gtk_editable_insert_text( GTK_EDITABLE(m_text
), val
, strlen(val
), &tmp
);
401 gtk_editable_insert_text( GTK_EDITABLE(m_text
), value
, value
.Length(), &tmp
);
406 // Bring editable's cursor uptodate. Bug in GTK.
407 SET_EDITABLE_POS(m_text
, gtk_text_get_point( GTK_TEXT(m_text
) ));
413 if (style
& wxTE_PASSWORD
)
416 gtk_entry_set_visibility( GTK_ENTRY(m_text
), FALSE
);
419 if (style
& wxTE_READONLY
)
422 gtk_entry_set_editable( GTK_ENTRY(m_text
), FALSE
);
425 gtk_text_view_set_editable( GTK_TEXT_VIEW( m_text
), FALSE
);
432 gtk_text_set_editable( GTK_TEXT(m_text
), 1 );
436 // We want to be notified about text changes.
440 g_signal_connect( G_OBJECT(buffer
), "changed",
441 GTK_SIGNAL_FUNC(gtk_text_changed_callback
), (gpointer
)this);
446 gtk_signal_connect( GTK_OBJECT(m_text
), "changed",
447 GTK_SIGNAL_FUNC(gtk_text_changed_callback
), (gpointer
)this);
450 // we don't set a valid background colour, because the window
451 // manager should use a default one
452 m_backgroundColour
= wxColour();
454 wxColour colFg
= parent
->GetForegroundColour();
455 SetForegroundColour( colFg
);
457 m_cursor
= wxCursor( wxCURSOR_IBEAM
);
459 wxTextAttr
attrDef( colFg
, m_backgroundColour
, parent
->GetFont() );
460 SetDefaultStyle( attrDef
);
467 void wxTextCtrl::CalculateScrollbar()
470 if ((m_windowStyle
& wxTE_MULTILINE
) == 0) return;
472 GtkAdjustment
*adj
= GTK_TEXT(m_text
)->vadj
;
474 if (adj
->upper
- adj
->page_size
< 0.8)
476 if (m_vScrollbarVisible
)
478 gtk_widget_hide( m_vScrollbar
);
479 m_vScrollbarVisible
= FALSE
;
484 if (!m_vScrollbarVisible
)
486 gtk_widget_show( m_vScrollbar
);
487 m_vScrollbarVisible
= TRUE
;
493 wxString
wxTextCtrl::GetValue() const
495 wxCHECK_MSG( m_text
!= NULL
, wxT(""), wxT("invalid text ctrl") );
498 if (m_windowStyle
& wxTE_MULTILINE
)
501 GtkTextBuffer
*text_buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
504 gtk_text_buffer_get_start_iter( text_buffer
, &start
);
506 gtk_text_buffer_get_end_iter( text_buffer
, &end
);
507 gchar
*text
= gtk_text_buffer_get_text( text_buffer
, &start
, &end
, TRUE
);
510 wxWCharBuffer
buffer( wxConvUTF8
.cMB2WX( text
) );
512 wxCharBuffer
buffer( wxConvLocal
.cWC2WX( wxConvUTF8
.cMB2WC( text
) ) );
518 gint len
= gtk_text_get_length( GTK_TEXT(m_text
) );
519 char *text
= gtk_editable_get_chars( GTK_EDITABLE(m_text
), 0, len
);
526 tmp
= wxGTK_CONV_BACK( gtk_entry_get_text( GTK_ENTRY(m_text
) ) );
532 void wxTextCtrl::SetValue( const wxString
&value
)
534 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
536 if (m_windowStyle
& wxTE_MULTILINE
)
541 wxCharBuffer
buffer( wxConvUTF8
.cWX2MB( value
) );
543 wxCharBuffer
buffer( wxConvUTF8
.cWC2MB( wxConvLocal
.cWX2WC( value
) ) );
545 GtkTextBuffer
*text_buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
546 gtk_text_buffer_set_text( text_buffer
, buffer
, strlen(buffer
) );
549 gint len
= gtk_text_get_length( GTK_TEXT(m_text
) );
550 gtk_editable_delete_text( GTK_EDITABLE(m_text
), 0, len
);
552 gtk_editable_insert_text( GTK_EDITABLE(m_text
), value
.mbc_str(), value
.Length(), &len
);
557 gtk_entry_set_text( GTK_ENTRY(m_text
), wxGTK_CONV( value
) );
560 // GRG, Jun/2000: Changed this after a lot of discussion in
561 // the lists. wxWindows 2.2 will have a set of flags to
562 // customize this behaviour.
563 SetInsertionPoint(0);
568 void wxTextCtrl::WriteText( const wxString
&text
)
570 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
575 if ( m_windowStyle
& wxTE_MULTILINE
)
580 wxCharBuffer
buffer( wxConvUTF8
.cWX2MB( text
) );
582 wxCharBuffer
buffer( wxConvUTF8
.cWC2MB( wxConvLocal
.cWX2WC( text
) ) );
584 GtkTextBuffer
*text_buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
586 // TODO: Call whatever is needed to delete the selection.
587 wxGtkTextInsert( m_text
, text_buffer
, m_defaultStyle
, buffer
);
589 GtkAdjustment
*adj
= gtk_scrolled_window_get_vadjustment( GTK_SCROLLED_WINDOW(m_widget
) );
590 // Scroll to cursor, but only if scrollbar thumb is at the very bottom
591 if ( adj
->value
== adj
->upper
- adj
->page_size
)
593 gtk_text_view_scroll_to_mark( GTK_TEXT_VIEW(m_text
),
594 gtk_text_buffer_get_insert( text_buffer
), 0.0, FALSE
, 0.0, 1.0 );
597 // After cursor movements, gtk_text_get_point() is wrong by one.
598 gtk_text_set_point( GTK_TEXT(m_text
), GET_EDITABLE_POS(m_text
) );
600 // always use m_defaultStyle, even if it is empty as otherwise
601 // resetting the style and appending some more text wouldn't work: if
602 // we don't specify the style explicitly, the old style would be used
603 gtk_editable_delete_selection( GTK_EDITABLE(m_text
) );
604 wxGtkTextInsert(m_text
, m_defaultStyle
, text
.c_str(), text
.Len());
606 // we called wxGtkTextInsert with correct font, no need to do anything
607 // in UpdateFontIfNeeded() any longer
610 m_updateFont
= FALSE
;
613 // Bring editable's cursor back uptodate.
614 SET_EDITABLE_POS(m_text
, gtk_text_get_point( GTK_TEXT(m_text
) ));
615 #endif // GTK 1.x/2.0
619 // First remove the selection if there is one
620 gtk_editable_delete_selection( GTK_EDITABLE(m_text
) );
622 // This moves the cursor pos to behind the inserted text.
623 gint len
= GET_EDITABLE_POS(m_text
);
628 wxCharBuffer
buffer( wxConvUTF8
.cWX2MB( text
) );
630 wxCharBuffer
buffer( wxConvUTF8
.cWC2MB( wxConvLocal
.cWX2WC( text
) ) );
632 gtk_editable_insert_text( GTK_EDITABLE(m_text
), buffer
, strlen(buffer
), &len
);
635 gtk_editable_insert_text( GTK_EDITABLE(m_text
), text
.c_str(), text
.Len(), &len
);
638 // Bring entry's cursor uptodate.
639 gtk_entry_set_position( GTK_ENTRY(m_text
), len
);
645 void wxTextCtrl::AppendText( const wxString
&text
)
647 SetInsertionPointEnd();
651 wxString
wxTextCtrl::GetLineText( long lineNo
) const
653 if (m_windowStyle
& wxTE_MULTILINE
)
656 gint len
= gtk_text_get_length( GTK_TEXT(m_text
) );
657 char *text
= gtk_editable_get_chars( GTK_EDITABLE(m_text
), 0, len
);
661 wxString
buf(wxT(""));
664 for (i
= 0; currentLine
!= lineNo
&& text
[i
]; i
++ )
669 for (j
= 0; text
[i
] && text
[i
] != '\n'; i
++, j
++ )
677 return wxEmptyString
;
680 GtkTextBuffer
*text_buffer
;
681 text_buffer
= gtk_text_view_get_buffer(GTK_TEXT_VIEW(m_text
));
683 gtk_text_buffer_get_iter_at_line(text_buffer
,&line
,lineNo
);
685 gtk_text_buffer_get_end_iter(text_buffer
,&end
);
686 gchar
*text
= gtk_text_buffer_get_text(text_buffer
,&line
,&end
,TRUE
);
687 wxString
result(wxGTK_CONV_BACK(text
));
689 return result
.BeforeFirst(wxT('\n'));
694 if (lineNo
== 0) return GetValue();
695 return wxEmptyString
;
699 void wxTextCtrl::OnDropFiles( wxDropFilesEvent
&WXUNUSED(event
) )
701 /* If you implement this, don't forget to update the documentation!
702 * (file docs/latex/wx/text.tex) */
703 wxFAIL_MSG( wxT("wxTextCtrl::OnDropFiles not implemented") );
706 bool wxTextCtrl::PositionToXY(long pos
, long *x
, long *y
) const
708 if ( m_windowStyle
& wxTE_MULTILINE
)
710 wxString text
= GetValue();
712 // cast to prevent warning. But pos really should've been unsigned.
713 if( (unsigned long)pos
> text
.Len() )
719 const wxChar
* stop
= text
.c_str() + pos
;
720 for ( const wxChar
*p
= text
.c_str(); p
< stop
; p
++ )
731 else // single line control
733 if ( pos
<= GTK_ENTRY(m_text
)->text_length
)
740 // index out of bounds
748 long wxTextCtrl::XYToPosition(long x
, long y
) const
750 if (!(m_windowStyle
& wxTE_MULTILINE
)) return 0;
753 for( int i
=0; i
<y
; i
++ ) pos
+= GetLineLength(i
) + 1; // one for '\n'
759 int wxTextCtrl::GetLineLength(long lineNo
) const
761 wxString str
= GetLineText (lineNo
);
762 return (int) str
.Length();
765 int wxTextCtrl::GetNumberOfLines() const
767 if (m_windowStyle
& wxTE_MULTILINE
)
770 GtkTextBuffer
*buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
772 return gtk_text_buffer_get_line_count( buffer
);
774 gint len
= gtk_text_get_length( GTK_TEXT(m_text
) );
775 char *text
= gtk_editable_get_chars( GTK_EDITABLE(m_text
), 0, len
);
780 for (int i
= 0; i
< len
; i
++ )
787 // currentLine is 0 based, add 1 to get number of lines
788 return currentLine
+ 1;
802 void wxTextCtrl::SetInsertionPoint( long pos
)
804 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
806 if (m_windowStyle
& wxTE_MULTILINE
)
809 GtkTextBuffer
*text_buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
811 gtk_text_buffer_get_iter_at_offset( text_buffer
, &iter
, pos
);
812 gtk_text_buffer_place_cursor( text_buffer
, &iter
);
814 gtk_signal_disconnect_by_func( GTK_OBJECT(m_text
),
815 GTK_SIGNAL_FUNC(gtk_text_changed_callback
), (gpointer
)this);
817 /* we fake a set_point by inserting and deleting. as the user
818 isn't supposed to get to know about this non-sense, we
819 disconnect so that no events are sent to the user program. */
821 gint tmp
= (gint
)pos
;
822 gtk_editable_insert_text( GTK_EDITABLE(m_text
), " ", 1, &tmp
);
823 gtk_editable_delete_text( GTK_EDITABLE(m_text
), tmp
-1, tmp
);
825 gtk_signal_connect( GTK_OBJECT(m_text
), "changed",
826 GTK_SIGNAL_FUNC(gtk_text_changed_callback
), (gpointer
)this);
828 // bring editable's cursor uptodate. Bug in GTK.
829 SET_EDITABLE_POS(m_text
, gtk_text_get_point( GTK_TEXT(m_text
) ));
834 gtk_entry_set_position( GTK_ENTRY(m_text
), (int)pos
);
836 // Bring editable's cursor uptodate. Bug in GTK.
837 SET_EDITABLE_POS(m_text
, (guint32
)pos
);
841 void wxTextCtrl::SetInsertionPointEnd()
843 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
845 if (m_windowStyle
& wxTE_MULTILINE
)
848 GtkTextBuffer
*text_buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
850 gtk_text_buffer_get_end_iter( text_buffer
, &end
);
851 gtk_text_buffer_place_cursor( text_buffer
, &end
);
853 SetInsertionPoint(gtk_text_get_length(GTK_TEXT(m_text
)));
858 gtk_entry_set_position( GTK_ENTRY(m_text
), -1 );
862 void wxTextCtrl::SetEditable( bool editable
)
864 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
866 if (m_windowStyle
& wxTE_MULTILINE
)
869 gtk_text_view_set_editable( GTK_TEXT_VIEW(m_text
), editable
);
871 gtk_text_set_editable( GTK_TEXT(m_text
), editable
);
876 gtk_entry_set_editable( GTK_ENTRY(m_text
), editable
);
880 bool wxTextCtrl::Enable( bool enable
)
882 if (!wxWindowBase::Enable(enable
))
888 if (m_windowStyle
& wxTE_MULTILINE
)
891 SetEditable( enable
);
893 gtk_text_set_editable( GTK_TEXT(m_text
), enable
);
894 OnParentEnable(enable
);
899 gtk_widget_set_sensitive( m_text
, enable
);
905 // wxGTK-specific: called recursively by Enable,
906 // to give widgets an oppprtunity to correct their colours after they
907 // have been changed by Enable
908 void wxTextCtrl::OnParentEnable( bool enable
)
910 // If we have a custom background colour, we use this colour in both
911 // disabled and enabled mode, or we end up with a different colour under the
913 wxColour oldColour
= GetBackgroundColour();
916 // Need to set twice or it'll optimize the useful stuff out
917 if (oldColour
== * wxWHITE
)
918 SetBackgroundColour(*wxBLACK
);
920 SetBackgroundColour(*wxWHITE
);
921 SetBackgroundColour(oldColour
);
925 void wxTextCtrl::MarkDirty()
930 void wxTextCtrl::DiscardEdits()
935 // ----------------------------------------------------------------------------
936 // max text length support
937 // ----------------------------------------------------------------------------
939 void wxTextCtrl::IgnoreNextTextUpdate()
941 m_ignoreNextUpdate
= TRUE
;
944 bool wxTextCtrl::IgnoreTextUpdate()
946 if ( m_ignoreNextUpdate
)
948 m_ignoreNextUpdate
= FALSE
;
956 void wxTextCtrl::SetMaxLength(unsigned long len
)
958 if ( !HasFlag(wxTE_MULTILINE
) )
960 gtk_entry_set_max_length(GTK_ENTRY(m_text
), len
);
962 // there is a bug in GTK+ 1.2.x: "changed" signal is emitted even if
963 // we had tried to enter more text than allowed by max text length and
964 // the text wasn't really changed
966 // to detect this and generate TEXT_MAXLEN event instead of
967 // TEXT_CHANGED one in this case we also catch "insert_text" signal
969 // when max len is set to 0 we disconnect our handler as it means that
970 // we shouldn't check anything any more
973 gtk_signal_connect( GTK_OBJECT(m_text
),
975 GTK_SIGNAL_FUNC(gtk_insert_text_callback
),
980 gtk_signal_disconnect_by_func
983 GTK_SIGNAL_FUNC(gtk_insert_text_callback
),
990 void wxTextCtrl::SetSelection( long from
, long to
)
992 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
994 if (from
== -1 && to
== -1)
997 to
= GetValue().Length();
1001 if ( (m_windowStyle
& wxTE_MULTILINE
) &&
1002 !GTK_TEXT(m_text
)->line_start_cache
)
1004 // tell the programmer that it didn't work
1005 wxLogDebug(_T("Can't call SetSelection() before realizing the control"));
1010 if (m_windowStyle
& wxTE_MULTILINE
)
1013 GtkTextBuffer
*buf
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
1015 GtkTextIter fromi
, toi
;
1016 gtk_text_buffer_get_iter_at_offset( buf
, &fromi
, from
);
1017 gtk_text_buffer_get_iter_at_offset( buf
, &toi
, to
);
1019 gtk_text_buffer_place_cursor( buf
, &toi
);
1020 gtk_text_buffer_move_mark_by_name( buf
, "selection_bound", &fromi
);
1022 gtk_editable_select_region( GTK_EDITABLE(m_text
), (gint
)from
, (gint
)to
);
1027 gtk_editable_select_region( GTK_EDITABLE(m_text
), (gint
)from
, (gint
)to
);
1031 void wxTextCtrl::ShowPosition( long pos
)
1033 if (m_windowStyle
& wxTE_MULTILINE
)
1036 GtkTextBuffer
*buf
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
1038 gtk_text_buffer_get_start_iter( buf
, &iter
);
1039 gtk_text_iter_set_offset( &iter
, pos
);
1040 GtkTextMark
*mark
= gtk_text_buffer_create_mark( buf
, NULL
, &iter
, TRUE
);
1041 gtk_text_view_scroll_to_mark( GTK_TEXT_VIEW(m_text
), mark
, 0.0, FALSE
, 0.0, 0.0 );
1043 GtkAdjustment
*vp
= GTK_TEXT(m_text
)->vadj
;
1044 float totalLines
= (float) GetNumberOfLines();
1047 PositionToXY(pos
, &posX
, &posY
);
1048 float posLine
= (float) posY
;
1049 float p
= (posLine
/totalLines
)*(vp
->upper
- vp
->lower
) + vp
->lower
;
1050 gtk_adjustment_set_value(GTK_TEXT(m_text
)->vadj
, p
);
1051 #endif // GTK 1.x/2.x
1055 long wxTextCtrl::GetInsertionPoint() const
1057 wxCHECK_MSG( m_text
!= NULL
, 0, wxT("invalid text ctrl") );
1060 if (m_windowStyle
& wxTE_MULTILINE
)
1062 GtkTextBuffer
*text_buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
1064 // There is no direct accessor for the cursor, but
1065 // internally, the cursor is the "mark" called
1066 // "insert" in the text view's btree structure.
1068 GtkTextMark
*mark
= gtk_text_buffer_get_insert( text_buffer
);
1070 gtk_text_buffer_get_iter_at_mark( text_buffer
, &cursor
, mark
);
1072 return gtk_text_iter_get_offset( &cursor
);
1077 return (long) GET_EDITABLE_POS(m_text
);
1081 long wxTextCtrl::GetLastPosition() const
1083 wxCHECK_MSG( m_text
!= NULL
, 0, wxT("invalid text ctrl") );
1087 if (m_windowStyle
& wxTE_MULTILINE
)
1090 GtkTextBuffer
*text_buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
1092 gtk_text_buffer_get_end_iter( text_buffer
, &end
);
1094 pos
= gtk_text_iter_get_offset( &end
);
1096 pos
= gtk_text_get_length( GTK_TEXT(m_text
) );
1101 pos
= GTK_ENTRY(m_text
)->text_length
;
1107 void wxTextCtrl::Remove( long from
, long to
)
1109 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
1112 if (m_windowStyle
& wxTE_MULTILINE
)
1115 text_buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
1117 GtkTextIter fromi
, toi
;
1118 gtk_text_buffer_get_iter_at_offset( text_buffer
, &fromi
, from
);
1119 gtk_text_buffer_get_iter_at_offset( text_buffer
, &toi
, to
);
1121 gtk_text_buffer_delete( text_buffer
, &fromi
, &toi
);
1125 gtk_editable_delete_text( GTK_EDITABLE(m_text
), (gint
)from
, (gint
)to
);
1128 void wxTextCtrl::Replace( long from
, long to
, const wxString
&value
)
1130 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
1134 if (!value
.IsEmpty())
1137 SetInsertionPoint( from
);
1140 gint pos
= (gint
)from
;
1142 wxWX2MBbuf buf
= value
.mbc_str();
1143 gtk_editable_insert_text( GTK_EDITABLE(m_text
), buf
, strlen(buf
), &pos
);
1145 gtk_editable_insert_text( GTK_EDITABLE(m_text
), value
, value
.Length(), &pos
);
1146 #endif // wxUSE_UNICODE
1147 #endif // GTK 1.x/2.x
1151 void wxTextCtrl::Cut()
1153 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
1156 gtk_editable_cut_clipboard( GTK_EDITABLE(m_text
) DUMMY_CLIPBOARD_ARG
);
1160 void wxTextCtrl::Copy()
1162 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
1165 gtk_editable_copy_clipboard( GTK_EDITABLE(m_text
) DUMMY_CLIPBOARD_ARG
);
1169 void wxTextCtrl::Paste()
1171 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
1174 gtk_editable_paste_clipboard( GTK_EDITABLE(m_text
) DUMMY_CLIPBOARD_ARG
);
1179 void wxTextCtrl::Undo()
1182 wxFAIL_MSG( wxT("wxTextCtrl::Undo not implemented") );
1185 void wxTextCtrl::Redo()
1188 wxFAIL_MSG( wxT("wxTextCtrl::Redo not implemented") );
1191 bool wxTextCtrl::CanUndo() const
1194 //wxFAIL_MSG( wxT("wxTextCtrl::CanUndo not implemented") );
1198 bool wxTextCtrl::CanRedo() const
1201 //wxFAIL_MSG( wxT("wxTextCtrl::CanRedo not implemented") );
1205 // If the return values from and to are the same, there is no
1207 void wxTextCtrl::GetSelection(long* fromOut
, long* toOut
) const
1209 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
1213 bool haveSelection
= FALSE
;
1216 if (m_windowStyle
& wxTE_MULTILINE
)
1218 GtkTextBuffer
*buffer
= gtk_text_view_get_buffer (GTK_TEXT_VIEW (m_text
));
1219 GtkTextIter ifrom
, ito
;
1220 if ( gtk_text_buffer_get_selection_bounds(buffer
, &ifrom
, &ito
) )
1222 haveSelection
= TRUE
;
1223 from
= gtk_text_iter_get_offset(&ifrom
);
1224 to
= gtk_text_iter_get_offset(&ito
);
1227 else // not multi-line
1229 if ( gtk_editable_get_selection_bounds( GTK_EDITABLE(m_text
),
1232 haveSelection
= TRUE
;
1236 if ( (GTK_EDITABLE(m_text
)->has_selection
) )
1238 haveSelection
= TRUE
;
1239 from
= (long) GTK_EDITABLE(m_text
)->selection_start_pos
;
1240 to
= (long) GTK_EDITABLE(m_text
)->selection_end_pos
;
1244 if (! haveSelection
)
1245 from
= to
= GetInsertionPoint();
1249 // exchange them to be compatible with wxMSW
1262 bool wxTextCtrl::IsEditable() const
1264 wxCHECK_MSG( m_text
!= NULL
, FALSE
, wxT("invalid text ctrl") );
1267 if (m_windowStyle
& wxTE_MULTILINE
)
1269 return gtk_text_view_get_editable(GTK_TEXT_VIEW(m_text
));
1273 return gtk_editable_get_editable(GTK_EDITABLE(m_text
));
1276 return GTK_EDITABLE(m_text
)->editable
;
1280 bool wxTextCtrl::IsModified() const
1285 void wxTextCtrl::Clear()
1287 SetValue( wxT("") );
1290 void wxTextCtrl::OnChar( wxKeyEvent
&key_event
)
1292 wxCHECK_RET( m_text
!= NULL
, wxT("invalid text ctrl") );
1294 if ((key_event
.GetKeyCode() == WXK_RETURN
) && (m_windowStyle
& wxPROCESS_ENTER
))
1296 wxCommandEvent
event(wxEVT_COMMAND_TEXT_ENTER
, m_windowId
);
1297 event
.SetEventObject(this);
1298 event
.SetString(GetValue());
1299 if (GetEventHandler()->ProcessEvent(event
)) return;
1302 if ((key_event
.GetKeyCode() == WXK_RETURN
) && !(m_windowStyle
& wxTE_MULTILINE
))
1304 // This will invoke the dialog default action, such
1305 // as the clicking the default button.
1307 wxWindow
*top_frame
= m_parent
;
1308 while (top_frame
->GetParent() && !(top_frame
->IsTopLevel()))
1309 top_frame
= top_frame
->GetParent();
1311 if (top_frame
&& GTK_IS_WINDOW(top_frame
->m_widget
))
1313 GtkWindow
*window
= GTK_WINDOW(top_frame
->m_widget
);
1315 if (window
->default_widget
)
1317 gtk_widget_activate (window
->default_widget
);
1326 GtkWidget
* wxTextCtrl::GetConnectWidget()
1328 return GTK_WIDGET(m_text
);
1331 bool wxTextCtrl::IsOwnGtkWindow( GdkWindow
*window
)
1333 if (m_windowStyle
& wxTE_MULTILINE
)
1336 return window
== gtk_text_view_get_window( GTK_TEXT_VIEW( m_text
), GTK_TEXT_WINDOW_TEXT
); // pure guesswork
1338 return (window
== GTK_TEXT(m_text
)->text_area
);
1343 return (window
== GTK_ENTRY(m_text
)->text_area
);
1347 // the font will change for subsequent text insertiongs
1348 bool wxTextCtrl::SetFont( const wxFont
&font
)
1350 wxCHECK_MSG( m_text
!= NULL
, FALSE
, wxT("invalid text ctrl") );
1352 if ( !wxTextCtrlBase::SetFont(font
) )
1354 // font didn't change, nothing to do
1358 if ( m_windowStyle
& wxTE_MULTILINE
)
1360 m_updateFont
= TRUE
;
1362 m_defaultStyle
.SetFont(font
);
1364 ChangeFontGlobally();
1370 void wxTextCtrl::ChangeFontGlobally()
1372 // this method is very inefficient and hence should be called as rarely as
1374 wxASSERT_MSG( (m_windowStyle
& wxTE_MULTILINE
) && m_updateFont
,
1375 _T("shouldn't be called for single line controls") );
1377 wxString value
= GetValue();
1378 if ( !value
.IsEmpty() )
1380 m_updateFont
= FALSE
;
1387 void wxTextCtrl::UpdateFontIfNeeded()
1390 ChangeFontGlobally();
1393 bool wxTextCtrl::SetForegroundColour(const wxColour
& colour
)
1395 if ( !wxControl::SetForegroundColour(colour
) )
1398 // update default fg colour too
1399 m_defaultStyle
.SetTextColour(colour
);
1404 bool wxTextCtrl::SetBackgroundColour( const wxColour
&colour
)
1406 wxCHECK_MSG( m_text
!= NULL
, FALSE
, wxT("invalid text ctrl") );
1408 if ( !wxControl::SetBackgroundColour( colour
) )
1411 if (!m_widget
->window
)
1414 wxColour sysbg
= wxSystemSettings::GetColour( wxSYS_COLOUR_BTNFACE
);
1415 if (sysbg
.Red() == colour
.Red() &&
1416 sysbg
.Green() == colour
.Green() &&
1417 sysbg
.Blue() == colour
.Blue())
1419 return FALSE
; // FIXME or TRUE?
1422 if (!m_backgroundColour
.Ok())
1425 if (m_windowStyle
& wxTE_MULTILINE
)
1428 GdkWindow
*window
= GTK_TEXT(m_text
)->text_area
;
1431 m_backgroundColour
.CalcPixel( gdk_window_get_colormap( window
) );
1432 gdk_window_set_background( window
, m_backgroundColour
.GetColor() );
1433 gdk_window_clear( window
);
1437 // change active background color too
1438 m_defaultStyle
.SetBackgroundColour( colour
);
1443 bool wxTextCtrl::SetStyle( long start
, long end
, const wxTextAttr
& style
)
1445 if ( m_windowStyle
& wxTE_MULTILINE
)
1447 if ( style
.IsDefault() )
1453 GtkTextBuffer
*text_buffer
= gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text
) );
1454 gint l
= gtk_text_buffer_get_char_count( text_buffer
);
1456 wxCHECK_MSG( start
>= 0 && end
<= l
, FALSE
,
1457 _T("invalid range in wxTextCtrl::SetStyle") );
1459 GtkTextIter starti
, endi
;
1460 gtk_text_buffer_get_iter_at_offset( text_buffer
, &starti
, start
);
1461 gtk_text_buffer_get_iter_at_offset( text_buffer
, &endi
, end
);
1463 // use the attributes from style which are set in it and fall back
1464 // first to the default style and then to the text control default
1465 // colours for the others
1466 wxTextAttr attr
= wxTextAttr::Combine(style
, m_defaultStyle
, this);
1468 PangoFontDescription
*font_description
= attr
.HasFont()
1469 ? attr
.GetFont().GetNativeFontInfo()->description
1472 GdkColor
*colFg
= attr
.HasTextColour() ? attr
.GetTextColour().GetColor()
1475 GdkColor
*colBg
= attr
.HasBackgroundColour()
1476 ? attr
.GetBackgroundColour().GetColor()
1480 tag
= gtk_text_buffer_create_tag( text_buffer
, NULL
, "font-desc", font_description
,
1481 "foreground-gdk", colFg
,
1482 "background-gdk", colBg
, NULL
);
1483 gtk_text_buffer_apply_tag( text_buffer
, tag
, &starti
, &endi
);
1487 // VERY dirty way to do that - removes the required text and re-adds it
1488 // with styling (FIXME)
1490 gint l
= gtk_text_get_length( GTK_TEXT(m_text
) );
1492 wxCHECK_MSG( start
>= 0 && end
<= l
, FALSE
,
1493 _T("invalid range in wxTextCtrl::SetStyle") );
1495 gint old_pos
= gtk_editable_get_position( GTK_EDITABLE(m_text
) );
1496 char *text
= gtk_editable_get_chars( GTK_EDITABLE(m_text
), start
, end
);
1497 wxString
tmp(text
,*wxConvCurrent
);
1500 gtk_editable_delete_text( GTK_EDITABLE(m_text
), start
, end
);
1501 gtk_editable_set_position( GTK_EDITABLE(m_text
), start
);
1504 wxWX2MBbuf buf
= tmp
.mbc_str();
1505 const char *txt
= buf
;
1506 size_t txtlen
= strlen(buf
);
1508 const char *txt
= tmp
;
1509 size_t txtlen
= tmp
.length();
1512 // use the attributes from style which are set in it and fall back
1513 // first to the default style and then to the text control default
1514 // colours for the others
1515 wxGtkTextInsert(m_text
,
1516 wxTextAttr::Combine(style
, m_defaultStyle
, this),
1520 /* does not seem to help under GTK+ 1.2 !!!
1521 gtk_editable_set_position( GTK_EDITABLE(m_text), old_pos ); */
1522 SetInsertionPoint( old_pos
);
1528 // cannot do this for GTK+'s Entry widget
1533 void wxTextCtrl::ApplyWidgetStyle()
1535 if (m_windowStyle
& wxTE_MULTILINE
)
1542 gtk_widget_set_style( m_text
, m_widgetStyle
);
1546 void wxTextCtrl::OnCut(wxCommandEvent
& WXUNUSED(event
))
1551 void wxTextCtrl::OnCopy(wxCommandEvent
& WXUNUSED(event
))
1556 void wxTextCtrl::OnPaste(wxCommandEvent
& WXUNUSED(event
))
1561 void wxTextCtrl::OnUndo(wxCommandEvent
& WXUNUSED(event
))
1566 void wxTextCtrl::OnRedo(wxCommandEvent
& WXUNUSED(event
))
1571 void wxTextCtrl::OnUpdateCut(wxUpdateUIEvent
& event
)
1573 event
.Enable( CanCut() );
1576 void wxTextCtrl::OnUpdateCopy(wxUpdateUIEvent
& event
)
1578 event
.Enable( CanCopy() );
1581 void wxTextCtrl::OnUpdatePaste(wxUpdateUIEvent
& event
)
1583 event
.Enable( CanPaste() );
1586 void wxTextCtrl::OnUpdateUndo(wxUpdateUIEvent
& event
)
1588 event
.Enable( CanUndo() );
1591 void wxTextCtrl::OnUpdateRedo(wxUpdateUIEvent
& event
)
1593 event
.Enable( CanRedo() );
1596 void wxTextCtrl::OnInternalIdle()
1598 wxCursor cursor
= m_cursor
;
1599 if (g_globalCursor
.Ok()) cursor
= g_globalCursor
;
1604 GdkWindow
*window
= (GdkWindow
*) NULL
;
1605 if (HasFlag(wxTE_MULTILINE
))
1606 window
= GTK_TEXT(m_text
)->text_area
;
1608 window
= GTK_ENTRY(m_text
)->text_area
;
1611 gdk_window_set_cursor( window
, cursor
.GetCursor() );
1613 if (!g_globalCursor
.Ok())
1614 cursor
= *wxSTANDARD_CURSOR
;
1616 window
= m_widget
->window
;
1617 if ((window
) && !(GTK_WIDGET_NO_WINDOW(m_widget
)))
1618 gdk_window_set_cursor( window
, cursor
.GetCursor() );
1622 if (g_delayedFocus
== this)
1624 if (GTK_WIDGET_REALIZED(m_widget
))
1626 gtk_widget_grab_focus( m_widget
);
1627 g_delayedFocus
= NULL
;
1631 if (wxUpdateUIEvent::CanUpdate(this))
1632 UpdateWindowUI(wxUPDATE_UI_FROMIDLE
);
1635 wxSize
wxTextCtrl::DoGetBestSize() const
1637 // FIXME should be different for multi-line controls...
1638 wxSize
ret( wxControl::DoGetBestSize() );
1639 return wxSize(80, ret
.y
);
1642 // ----------------------------------------------------------------------------
1644 // ----------------------------------------------------------------------------
1646 void wxTextCtrl::Freeze()
1649 if ( HasFlag(wxTE_MULTILINE
) )
1651 gtk_text_freeze(GTK_TEXT(m_text
));
1656 void wxTextCtrl::Thaw()
1659 if ( HasFlag(wxTE_MULTILINE
) )
1661 GTK_TEXT(m_text
)->vadj
->value
= 0.0;
1663 gtk_text_thaw(GTK_TEXT(m_text
));
1668 // ----------------------------------------------------------------------------
1670 // ----------------------------------------------------------------------------
1672 GtkAdjustment
*wxTextCtrl::GetVAdj() const
1677 return HasFlag(wxTE_MULTILINE
) ? GTK_TEXT(m_text
)->vadj
: NULL
;
1681 bool wxTextCtrl::DoScroll(GtkAdjustment
*adj
, int diff
)
1684 float value
= adj
->value
+ diff
;
1689 float upper
= adj
->upper
- adj
->page_size
;
1690 if ( value
> upper
)
1693 // did we noticeably change the scroll position?
1694 if ( fabs(adj
->value
- value
) < 0.2 )
1696 // well, this is what Robert does in wxScrollBar, so it must be good...
1702 gtk_signal_emit_by_name(GTK_OBJECT(adj
), "value_changed");
1708 bool wxTextCtrl::ScrollLines(int lines
)
1713 GtkAdjustment
*adj
= GetVAdj();
1717 // this is hardcoded to 10 in GTK+ 1.2 (great idea)
1718 static const int KEY_SCROLL_PIXELS
= 10;
1720 return DoScroll(adj
, lines
*KEY_SCROLL_PIXELS
);
1724 bool wxTextCtrl::ScrollPages(int pages
)
1729 GtkAdjustment
*adj
= GetVAdj();
1733 return DoScroll(adj
, (int)ceil(pages
*adj
->page_increment
));