]> git.saurik.com Git - wxWidgets.git/blame - src/gtk/textctrl.cpp
added script for generating tags file for wxGTK
[wxWidgets.git] / src / gtk / textctrl.cpp
CommitLineData
c801d85f
KB
1/////////////////////////////////////////////////////////////////////////////
2// Name: textctrl.cpp
3// Purpose:
4// Author: Robert Roebling
f96aa4d9 5// Id: $Id$
a81258be 6// Copyright: (c) 1998 Robert Roebling, Vadim Zeitlin
13289f04 7// Licence: wxWindows licence
c801d85f
KB
8/////////////////////////////////////////////////////////////////////////////
9
14f355c2 10#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
c801d85f
KB
11#pragma implementation "textctrl.h"
12#endif
13
14f355c2
VS
14// For compilers that support precompilation, includes "wx.h".
15#include "wx/wxprec.h"
16
c801d85f
KB
17#include "wx/textctrl.h"
18#include "wx/utils.h"
ae0bdb01 19#include "wx/intl.h"
a1f79c1e 20#include "wx/log.h"
ae0bdb01 21#include "wx/settings.h"
fc71ef6e 22#include "wx/panel.h"
fab591c5 23#include "wx/strconv.h"
cc3da3f8 24#include "wx/fontutil.h" // for wxNativeFontInfo (GetNativeFontInfo())
c801d85f 25
a81258be
RR
26#include <sys/types.h>
27#include <sys/stat.h>
28#include <ctype.h>
817ec43a 29#include <math.h> // for fabs
a81258be 30
9e691f46
VZ
31#include "wx/gtk/private.h"
32#include <gdk/gdkkeysyms.h>
b292e2f5 33
acfd422a
RR
34//-----------------------------------------------------------------------------
35// idle system
36//-----------------------------------------------------------------------------
37
38extern void wxapp_install_idle_handler();
39extern bool g_isIdle;
40
b292e2f5
RR
41//-----------------------------------------------------------------------------
42// data
43//-----------------------------------------------------------------------------
44
65045edd
RR
45extern bool g_blockEventsOnDrag;
46extern wxCursor g_globalCursor;
d7fa7eaa 47extern wxWindowGTK *g_delayedFocus;
b292e2f5 48
eda40bfc
VZ
49// ----------------------------------------------------------------------------
50// helpers
51// ----------------------------------------------------------------------------
52
cc3da3f8
RR
53#ifdef __WXGTK20__
54static void wxGtkTextInsert(GtkWidget *text,
55 GtkTextBuffer *text_buffer,
56 const wxTextAttr& attr,
57 wxCharBuffer buffer)
58
59{
60 PangoFontDescription *font_description = attr.HasFont()
61 ? attr.GetFont().GetNativeFontInfo()->description
62 : NULL;
63
64 GdkColor *colFg = attr.HasTextColour() ? attr.GetTextColour().GetColor()
65 : NULL;
66
67 GdkColor *colBg = attr.HasBackgroundColour()
68 ? attr.GetBackgroundColour().GetColor()
69 : NULL;
70
cc3da3f8
RR
71 GtkTextTag *tag;
72 tag = gtk_text_buffer_create_tag( text_buffer, NULL, "font-desc", font_description,
73 "foreground-gdk", colFg,
74 "background-gdk", colBg, NULL );
a61bbf87
JS
75
76 GtkTextIter iter;
77 gtk_text_buffer_get_iter_at_mark( text_buffer, &iter,
78 gtk_text_buffer_get_insert (text_buffer) );
79
80 gtk_text_buffer_insert_with_tags( text_buffer, &iter, buffer, strlen(buffer), tag, NULL );
cc3da3f8
RR
81}
82#else
eda40bfc
VZ
83static void wxGtkTextInsert(GtkWidget *text,
84 const wxTextAttr& attr,
85 const char *txt,
86 size_t len)
87{
88 GdkFont *font = attr.HasFont() ? attr.GetFont().GetInternalFont()
89 : NULL;
90
91 GdkColor *colFg = attr.HasTextColour() ? attr.GetTextColour().GetColor()
92 : NULL;
93
94 GdkColor *colBg = attr.HasBackgroundColour()
95 ? attr.GetBackgroundColour().GetColor()
96 : NULL;
97
98 gtk_text_insert( GTK_TEXT(text), font, colFg, colBg, txt, len );
99}
a8bf1826 100#endif // GTK 1.x
eda40bfc 101
ce2f50e3
VZ
102// ----------------------------------------------------------------------------
103// "insert_text" for GtkEntry
104// ----------------------------------------------------------------------------
105
106static void
107gtk_insert_text_callback(GtkEditable *editable,
108 const gchar *new_text,
109 gint new_text_length,
110 gint *position,
111 wxTextCtrl *win)
112{
76fcf0f2
RR
113 if (g_isIdle)
114 wxapp_install_idle_handler();
115
ce2f50e3
VZ
116 // we should only be called if we have a max len limit at all
117 GtkEntry *entry = GTK_ENTRY (editable);
118
119 wxCHECK_RET( entry->text_max_length, _T("shouldn't be called") );
120
121 // check that we don't overflow the max length limit
122 //
123 // FIXME: this doesn't work when we paste a string which is going to be
124 // truncated
125 if ( entry->text_length == entry->text_max_length )
126 {
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");
129
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();
133
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 );
139 }
140}
141
c801d85f 142//-----------------------------------------------------------------------------
2f2aa628 143// "changed"
c801d85f
KB
144//-----------------------------------------------------------------------------
145
805dd538 146static void
ba3f6b44 147gtk_text_changed_callback( GtkWidget *widget, wxTextCtrl *win )
484e45bf 148{
ce2f50e3
VZ
149 if ( win->IgnoreTextUpdate() )
150 return;
151
a2053b27 152 if (!win->m_hasVMT) return;
805dd538 153
bb69661b 154 if (g_isIdle)
3c679789 155 wxapp_install_idle_handler();
a8bf1826 156
034be888 157 win->SetModified();
01041145 158 win->UpdateFontIfNeeded();
a8bf1826 159
f03fc89f 160 wxCommandEvent event( wxEVT_COMMAND_TEXT_UPDATED, win->GetId() );
2830bf19 161 event.SetEventObject( win );
ce2f50e3 162 event.SetString( win->GetValue() );
2830bf19 163 win->GetEventHandler()->ProcessEvent( event );
6de97a3b 164}
112892b9 165
2830bf19 166//-----------------------------------------------------------------------------
034be888 167// "changed" from vertical scrollbar
2830bf19
RR
168//-----------------------------------------------------------------------------
169
fab591c5 170#ifndef __WXGTK20__
805dd538 171static void
034be888 172gtk_scrollbar_changed_callback( GtkWidget *WXUNUSED(widget), wxTextCtrl *win )
2830bf19 173{
3c679789 174 if (!win->m_hasVMT) return;
bb69661b
VZ
175
176 if (g_isIdle)
3c679789 177 wxapp_install_idle_handler();
acfd422a 178
2830bf19
RR
179 win->CalculateScrollbar();
180}
fab591c5 181#endif
2830bf19 182
1c35b54e
VZ
183// ----------------------------------------------------------------------------
184// redraw callback for multiline text
185// ----------------------------------------------------------------------------
186
187#ifndef __WXGTK20__
188
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()
193
194extern bool wxIsInsideYield;
195
2e08b1a3
VZ
196extern "C" {
197 typedef void (*GtkDrawCallback)(GtkWidget *widget, GdkRectangle *rect);
198}
1c35b54e
VZ
199
200static GtkDrawCallback gs_gtk_text_draw = NULL;
201
202extern "C"
203void wxgtk_text_draw( GtkWidget *widget, GdkRectangle *rect)
204{
205 if ( !wxIsInsideYield )
206 {
207 wxCHECK_RET( gs_gtk_text_draw != wxgtk_text_draw,
208 _T("infinite recursion in wxgtk_text_draw aborted") );
209
210 gs_gtk_text_draw(widget, rect);
211 }
212}
213
214#endif // __WXGTK20__
215
2f2aa628
RR
216//-----------------------------------------------------------------------------
217// wxTextCtrl
218//-----------------------------------------------------------------------------
219
220IMPLEMENT_DYNAMIC_CLASS(wxTextCtrl,wxControl)
221
c801d85f 222BEGIN_EVENT_TABLE(wxTextCtrl, wxControl)
2830bf19 223 EVT_CHAR(wxTextCtrl::OnChar)
e702ff0f
JS
224
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)
230
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)
c801d85f
KB
236END_EVENT_TABLE()
237
01041145 238void wxTextCtrl::Init()
f5abe911 239{
ce2f50e3 240 m_ignoreNextUpdate =
f5abe911 241 m_modified = FALSE;
01041145 242 m_updateFont = FALSE;
3ca6a5f0
BP
243 m_text =
244 m_vScrollbar = (GtkWidget *)NULL;
f5abe911 245}
13289f04 246
13111b2a
VZ
247wxTextCtrl::wxTextCtrl( wxWindow *parent,
248 wxWindowID id,
249 const wxString &value,
250 const wxPoint &pos,
251 const wxSize &size,
252 long style,
253 const wxValidator& validator,
254 const wxString &name )
f5abe911 255{
01041145
VZ
256 Init();
257
f5abe911
RR
258 Create( parent, id, value, pos, size, style, validator, name );
259}
c801d85f 260
13111b2a
VZ
261bool wxTextCtrl::Create( wxWindow *parent,
262 wxWindowID id,
263 const wxString &value,
264 const wxPoint &pos,
265 const wxSize &size,
266 long style,
267 const wxValidator& validator,
268 const wxString &name )
c801d85f 269{
2830bf19 270 m_needParent = TRUE;
b292e2f5 271 m_acceptsFocus = TRUE;
484e45bf 272
4dcaf11a
RR
273 if (!PreCreation( parent, pos, size ) ||
274 !CreateBase( parent, id, pos, size, style, validator, name ))
275 {
223d09f6 276 wxFAIL_MSG( wxT("wxTextCtrl creation failed") );
13111b2a 277 return FALSE;
4dcaf11a 278 }
6de97a3b 279
805dd538 280
034be888 281 m_vScrollbarVisible = FALSE;
13289f04 282
2830bf19 283 bool multi_line = (style & wxTE_MULTILINE) != 0;
a8bf1826 284
fab591c5
RR
285#ifdef __WXGTK20__
286 GtkTextBuffer *buffer = NULL;
287#endif
288
ab46dc18 289 if (multi_line)
2830bf19 290 {
fab591c5
RR
291#ifdef __WXGTK20__
292 // Create view
293 m_text = gtk_text_view_new();
a8bf1826 294
fab591c5 295 buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
a8bf1826 296
fab591c5
RR
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 );
a8bf1826 301
fab591c5
RR
302 // Insert view into scrolled window
303 gtk_container_add( GTK_CONTAINER(m_widget), m_text );
a8bf1826 304
fab591c5
RR
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 );
308 else
309 gtk_text_view_set_wrap_mode( GTK_TEXT_VIEW( m_text ), GTK_WRAP_WORD );
805dd538 310
fab591c5
RR
311 if (!HasFlag(wxNO_BORDER))
312 gtk_scrolled_window_set_shadow_type( GTK_SCROLLED_WINDOW(m_widget), GTK_SHADOW_IN );
055e633d
RR
313
314 GTK_WIDGET_UNSET_FLAGS( m_widget, GTK_CAN_FOCUS );
fab591c5
RR
315#else
316 // create our control ...
2830bf19
RR
317 m_text = gtk_text_new( (GtkAdjustment *) NULL, (GtkAdjustment *) NULL );
318
fab591c5
RR
319 // ... and put into the upper left hand corner of the table
320 bool bHasHScrollbar = FALSE;
2830bf19 321 m_widget = gtk_table_new(bHasHScrollbar ? 2 : 1, 2, FALSE);
5664fc32 322 GTK_WIDGET_UNSET_FLAGS( m_widget, GTK_CAN_FOCUS );
2830bf19 323 gtk_table_attach( GTK_TABLE(m_widget), m_text, 0, 1, 0, 1,
41dee9d0 324 (GtkAttachOptions)(GTK_FILL | GTK_EXPAND | GTK_SHRINK),
f5368809
RR
325 (GtkAttachOptions)(GTK_FILL | GTK_EXPAND | GTK_SHRINK),
326 0, 0);
bb69661b 327
fab591c5 328 // always wrap words
5c387335 329 gtk_text_set_word_wrap( GTK_TEXT(m_text), TRUE );
bb69661b 330
fab591c5 331 // finally, put the vertical scrollbar in the upper right corner
ab46dc18
RR
332 m_vScrollbar = gtk_vscrollbar_new( GTK_TEXT(m_text)->vadj );
333 GTK_WIDGET_UNSET_FLAGS( m_vScrollbar, GTK_CAN_FOCUS );
ab46dc18
RR
334 gtk_table_attach(GTK_TABLE(m_widget), m_vScrollbar, 1, 2, 0, 1,
335 GTK_FILL,
336 (GtkAttachOptions)(GTK_EXPAND | GTK_FILL | GTK_SHRINK),
337 0, 0);
fab591c5 338#endif
2830bf19
RR
339 }
340 else
341 {
fab591c5 342 // a single-line text control: no need for scrollbars
2830bf19 343 m_widget =
1c35b54e 344 m_text = gtk_entry_new();
2830bf19 345 }
484e45bf 346
db434467 347 m_parent->DoAddChild( this );
eda40bfc 348
76fcf0f2 349 m_focusWidget = m_text;
db434467
RR
350
351 PostCreation();
e8e24dfa 352 InheritAttributes();
db434467
RR
353
354 wxSize size_best( DoGetBestSize() );
355 wxSize new_size( size );
0279e844 356 if (new_size.x == -1)
db434467 357 new_size.x = size_best.x;
0279e844 358 if (new_size.y == -1)
db434467 359 new_size.y = size_best.y;
0279e844
RR
360 if ((new_size.x != size.x) || (new_size.y != size.y))
361 SetSize( new_size.x, new_size.y );
484e45bf 362
2830bf19 363 if (multi_line)
2830bf19 364 gtk_widget_show(m_text);
13289f04 365
fab591c5 366#ifndef __WXGTK20__
ab46dc18
RR
367 if (multi_line)
368 {
369 gtk_signal_connect(GTK_OBJECT(GTK_TEXT(m_text)->vadj), "changed",
370 (GtkSignalFunc) gtk_scrollbar_changed_callback, (gpointer) this );
1c35b54e 371
1c35b54e
VZ
372 // only initialize gs_gtk_text_draw once, starting from the next the
373 // klass::draw will already be wxgtk_text_draw
374 if ( !gs_gtk_text_draw )
375 {
376 GtkDrawCallback&
377 draw = GTK_WIDGET_CLASS(GTK_OBJECT(m_text)->klass)->draw;
378
379 gs_gtk_text_draw = draw;
380
381 draw = wxgtk_text_draw;
382 }
ab46dc18 383 }
fab591c5 384#endif // GTK+ 1.x
3358d36e 385
291a8f20 386 if (!value.IsEmpty())
2830bf19 387 {
fab591c5
RR
388#ifdef __WXGTK20__
389 SetValue( value );
390#else
3358d36e 391
9e691f46 392#if !GTK_CHECK_VERSION(1, 2, 0)
3358d36e
VZ
393 // if we don't realize it, GTK 1.0.6 dies with a SIGSEGV in
394 // gtk_editable_insert_text()
395 gtk_widget_realize(m_text);
396#endif // GTK 1.0
397
fab591c5 398 gint tmp = 0;
05939a81 399#if wxUSE_UNICODE
3358d36e 400 wxWX2MBbuf val = value.mbc_str();
05939a81 401 gtk_editable_insert_text( GTK_EDITABLE(m_text), val, strlen(val), &tmp );
fab591c5 402#else
2830bf19 403 gtk_editable_insert_text( GTK_EDITABLE(m_text), value, value.Length(), &tmp );
fab591c5 404#endif
3358d36e 405
291a8f20
RR
406 if (multi_line)
407 {
fab591c5 408 // Bring editable's cursor uptodate. Bug in GTK.
9e691f46 409 SET_EDITABLE_POS(m_text, gtk_text_get_point( GTK_TEXT(m_text) ));
3358d36e 410 }
a8bf1826 411
fab591c5 412#endif
2830bf19 413 }
484e45bf 414
2830bf19
RR
415 if (style & wxTE_PASSWORD)
416 {
417 if (!multi_line)
418 gtk_entry_set_visibility( GTK_ENTRY(m_text), FALSE );
419 }
8bbe427f 420
2830bf19
RR
421 if (style & wxTE_READONLY)
422 {
423 if (!multi_line)
424 gtk_entry_set_editable( GTK_ENTRY(m_text), FALSE );
fab591c5
RR
425#ifdef __WXGTK20__
426 else
427 gtk_text_view_set_editable( GTK_TEXT_VIEW( m_text), FALSE);
428 }
429#else
2830bf19
RR
430 }
431 else
432 {
433 if (multi_line)
434 gtk_text_set_editable( GTK_TEXT(m_text), 1 );
435 }
fab591c5 436#endif
3358d36e 437
fab591c5
RR
438 // We want to be notified about text changes.
439#ifdef __WXGTK20__
440 if (multi_line)
441 {
442 g_signal_connect( G_OBJECT(buffer), "changed",
443 GTK_SIGNAL_FUNC(gtk_text_changed_callback), (gpointer)this);
444 }
445 else
446#endif
447 {
055e633d
RR
448 gtk_signal_connect( GTK_OBJECT(m_text), "changed",
449 GTK_SIGNAL_FUNC(gtk_text_changed_callback), (gpointer)this);
fab591c5 450 }
ce16e5d7 451
fab591c5
RR
452 // we don't set a valid background colour, because the window
453 // manager should use a default one
a88acabd 454 m_backgroundColour = wxColour();
17665a2b
VZ
455
456 wxColour colFg = parent->GetForegroundColour();
457 SetForegroundColour( colFg );
805dd538 458
65045edd 459 m_cursor = wxCursor( wxCURSOR_IBEAM );
13111b2a 460
6c5ac6e1 461 wxTextAttr attrDef( colFg, m_backgroundColour, parent->GetFont() );
17665a2b
VZ
462 SetDefaultStyle( attrDef );
463
2830bf19 464 Show( TRUE );
805dd538 465
2830bf19
RR
466 return TRUE;
467}
484e45bf 468
2830bf19
RR
469void wxTextCtrl::CalculateScrollbar()
470{
fab591c5 471#ifndef __WXGTK20__
2830bf19 472 if ((m_windowStyle & wxTE_MULTILINE) == 0) return;
f96aa4d9 473
2830bf19 474 GtkAdjustment *adj = GTK_TEXT(m_text)->vadj;
805dd538 475
2830bf19
RR
476 if (adj->upper - adj->page_size < 0.8)
477 {
478 if (m_vScrollbarVisible)
479 {
034be888 480 gtk_widget_hide( m_vScrollbar );
034be888 481 m_vScrollbarVisible = FALSE;
2830bf19
RR
482 }
483 }
484 else
485 {
486 if (!m_vScrollbarVisible)
487 {
034be888 488 gtk_widget_show( m_vScrollbar );
034be888 489 m_vScrollbarVisible = TRUE;
2830bf19
RR
490 }
491 }
fab591c5 492#endif
6de97a3b 493}
c801d85f 494
03f38c58 495wxString wxTextCtrl::GetValue() const
c801d85f 496{
223d09f6 497 wxCHECK_MSG( m_text != NULL, wxT(""), wxT("invalid text ctrl") );
8bbe427f 498
2830bf19
RR
499 wxString tmp;
500 if (m_windowStyle & wxTE_MULTILINE)
501 {
fab591c5
RR
502#ifdef __WXGTK20__
503 GtkTextBuffer *text_buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
a8bf1826 504
fab591c5
RR
505 GtkTextIter start;
506 gtk_text_buffer_get_start_iter( text_buffer, &start );
507 GtkTextIter end;
508 gtk_text_buffer_get_end_iter( text_buffer, &end );
509 gchar *text = gtk_text_buffer_get_text( text_buffer, &start, &end, TRUE );
5b87f8bf 510
fab591c5
RR
511#if wxUSE_UNICODE
512 wxWCharBuffer buffer( wxConvUTF8.cMB2WX( text ) );
513#else
514 wxCharBuffer buffer( wxConvLocal.cWC2WX( wxConvUTF8.cMB2WC( text ) ) );
515#endif
516 tmp = buffer;
a8bf1826 517
fab591c5
RR
518 g_free( text );
519#else
2830bf19
RR
520 gint len = gtk_text_get_length( GTK_TEXT(m_text) );
521 char *text = gtk_editable_get_chars( GTK_EDITABLE(m_text), 0, len );
fab591c5 522 tmp = text;
2830bf19 523 g_free( text );
fab591c5 524#endif
2830bf19
RR
525 }
526 else
527 {
fab591c5 528 tmp = wxGTK_CONV_BACK( gtk_entry_get_text( GTK_ENTRY(m_text) ) );
2830bf19 529 }
a8bf1826 530
2830bf19 531 return tmp;
6de97a3b 532}
c801d85f
KB
533
534void wxTextCtrl::SetValue( const wxString &value )
535{
223d09f6 536 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
8bbe427f 537
2830bf19
RR
538 if (m_windowStyle & wxTE_MULTILINE)
539 {
fab591c5
RR
540#ifdef __WXGTK20__
541
542#if wxUSE_UNICODE
543 wxCharBuffer buffer( wxConvUTF8.cWX2MB( value) );
544#else
545 wxCharBuffer buffer( wxConvUTF8.cWC2MB( wxConvLocal.cWX2WC( value ) ) );
a8bf1826 546#endif
fab591c5
RR
547 GtkTextBuffer *text_buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
548 gtk_text_buffer_set_text( text_buffer, buffer, strlen(buffer) );
a8bf1826 549
fab591c5 550#else
2830bf19
RR
551 gint len = gtk_text_get_length( GTK_TEXT(m_text) );
552 gtk_editable_delete_text( GTK_EDITABLE(m_text), 0, len );
553 len = 0;
01041145 554 gtk_editable_insert_text( GTK_EDITABLE(m_text), value.mbc_str(), value.Length(), &len );
05939a81 555#endif
2830bf19
RR
556 }
557 else
558 {
fab591c5 559 gtk_entry_set_text( GTK_ENTRY(m_text), wxGTK_CONV( value ) );
2830bf19 560 }
f6bcfd97
BP
561
562 // GRG, Jun/2000: Changed this after a lot of discussion in
563 // the lists. wxWindows 2.2 will have a set of flags to
564 // customize this behaviour.
565 SetInsertionPoint(0);
a8bf1826 566
f6bcfd97 567 m_modified = FALSE;
6de97a3b 568}
c801d85f
KB
569
570void wxTextCtrl::WriteText( const wxString &text )
571{
223d09f6 572 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
8bbe427f 573
17665a2b
VZ
574 if ( text.empty() )
575 return;
484e45bf 576
17665a2b 577 if ( m_windowStyle & wxTE_MULTILINE )
2830bf19 578 {
fab591c5
RR
579#ifdef __WXGTK20__
580
581#if wxUSE_UNICODE
582 wxCharBuffer buffer( wxConvUTF8.cWX2MB( text ) );
583#else
584 wxCharBuffer buffer( wxConvUTF8.cWC2MB( wxConvLocal.cWX2WC( text ) ) );
a8bf1826 585#endif
fab591c5 586 GtkTextBuffer *text_buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
5b87f8bf 587
e136b747 588 // TODO: Call whatever is needed to delete the selection.
cc3da3f8 589 wxGtkTextInsert( m_text, text_buffer, m_defaultStyle, buffer );
a8bf1826 590
71aba833
VZ
591 GtkAdjustment *adj = gtk_scrolled_window_get_vadjustment( GTK_SCROLLED_WINDOW(m_widget) );
592 // Scroll to cursor, but only if scrollbar thumb is at the very bottom
593 if ( adj->value == adj->upper - adj->page_size )
594 {
595 gtk_text_view_scroll_to_mark( GTK_TEXT_VIEW(m_text),
596 gtk_text_buffer_get_insert( text_buffer ), 0.0, FALSE, 0.0, 1.0 );
597 }
a8bf1826 598#else // GTK 1.x
ba3f6b44 599 // After cursor movements, gtk_text_get_point() is wrong by one.
9e691f46 600 gtk_text_set_point( GTK_TEXT(m_text), GET_EDITABLE_POS(m_text) );
eda40bfc 601
41b2e0e6
VZ
602 // always use m_defaultStyle, even if it is empty as otherwise
603 // resetting the style and appending some more text wouldn't work: if
604 // we don't specify the style explicitly, the old style would be used
2b5f62a0 605 gtk_editable_delete_selection( GTK_EDITABLE(m_text) );
fab591c5 606 wxGtkTextInsert(m_text, m_defaultStyle, text.c_str(), text.Len());
eda40bfc 607
07e9d4f0
VZ
608 // we called wxGtkTextInsert with correct font, no need to do anything
609 // in UpdateFontIfNeeded() any longer
610 if ( !text.empty() )
611 {
45df0809 612 m_updateFont = FALSE;
07e9d4f0
VZ
613 }
614
ba3f6b44 615 // Bring editable's cursor back uptodate.
9e691f46 616 SET_EDITABLE_POS(m_text, gtk_text_get_point( GTK_TEXT(m_text) ));
a8bf1826 617#endif // GTK 1.x/2.0
2830bf19 618 }
17665a2b 619 else // single line
2830bf19 620 {
2b5f62a0
VZ
621 // First remove the selection if there is one
622 gtk_editable_delete_selection( GTK_EDITABLE(m_text) );
623
ba3f6b44 624 // This moves the cursor pos to behind the inserted text.
9e691f46 625 gint len = GET_EDITABLE_POS(m_text);
a8bf1826 626
fab591c5
RR
627#ifdef __WXGTK20__
628
629#if wxUSE_UNICODE
630 wxCharBuffer buffer( wxConvUTF8.cWX2MB( text ) );
631#else
632 wxCharBuffer buffer( wxConvUTF8.cWC2MB( wxConvLocal.cWX2WC( text ) ) );
a8bf1826 633#endif
fab591c5 634 gtk_editable_insert_text( GTK_EDITABLE(m_text), buffer, strlen(buffer), &len );
a8bf1826 635
fab591c5
RR
636#else
637 gtk_editable_insert_text( GTK_EDITABLE(m_text), text.c_str(), text.Len(), &len );
638#endif
3358d36e 639
ba3f6b44 640 // Bring entry's cursor uptodate.
9e691f46 641 gtk_entry_set_position( GTK_ENTRY(m_text), len );
2830bf19 642 }
eda40bfc 643
ba3f6b44 644 m_modified = TRUE;
6de97a3b 645}
c801d85f 646
a6e21573
HH
647void wxTextCtrl::AppendText( const wxString &text )
648{
ba3f6b44
RR
649 SetInsertionPointEnd();
650 WriteText( text );
651}
2df7be7f 652
ba3f6b44
RR
653wxString wxTextCtrl::GetLineText( long lineNo ) const
654{
a6e21573
HH
655 if (m_windowStyle & wxTE_MULTILINE)
656 {
fab591c5 657#ifndef __WXGTK20__
ba3f6b44
RR
658 gint len = gtk_text_get_length( GTK_TEXT(m_text) );
659 char *text = gtk_editable_get_chars( GTK_EDITABLE(m_text), 0, len );
bb69661b 660
ba3f6b44
RR
661 if (text)
662 {
663 wxString buf(wxT(""));
664 long i;
665 int currentLine = 0;
666 for (i = 0; currentLine != lineNo && text[i]; i++ )
667 if (text[i] == '\n')
668 currentLine++;
669 // Now get the text
670 int j;
671 for (j = 0; text[i] && text[i] != '\n'; i++, j++ )
672 buf += text[i];
17665a2b 673
ba3f6b44
RR
674 g_free( text );
675 return buf;
bb69661b 676 }
ba3f6b44 677 else
bb69661b 678 {
ba3f6b44 679 return wxEmptyString;
bb69661b 680 }
905f2110
JS
681#else
682 GtkTextBuffer *text_buffer;
683 text_buffer = gtk_text_view_get_buffer(GTK_TEXT_VIEW(m_text));
684 GtkTextIter line;
685 gtk_text_buffer_get_iter_at_line(text_buffer,&line,lineNo);
686 GtkTextIter end;
687 gtk_text_buffer_get_end_iter(text_buffer,&end );
688 gchar *text = gtk_text_buffer_get_text(text_buffer,&line,&end,TRUE);
58192970 689 wxString result(wxGTK_CONV_BACK(text));
905f2110
JS
690 g_free(text);
691 return result.BeforeFirst(wxT('\n'));
692#endif
a6e21573 693 }
ba3f6b44 694 else
a81258be 695 {
ba3f6b44
RR
696 if (lineNo == 0) return GetValue();
697 return wxEmptyString;
a81258be 698 }
6de97a3b 699}
c801d85f 700
a81258be
RR
701void wxTextCtrl::OnDropFiles( wxDropFilesEvent &WXUNUSED(event) )
702{
ac0d36b5
HH
703 /* If you implement this, don't forget to update the documentation!
704 * (file docs/latex/wx/text.tex) */
223d09f6 705 wxFAIL_MSG( wxT("wxTextCtrl::OnDropFiles not implemented") );
a81258be 706}
112892b9 707
0efe5ba7 708bool wxTextCtrl::PositionToXY(long pos, long *x, long *y ) const
c801d85f 709{
96385642 710 if ( m_windowStyle & wxTE_MULTILINE )
805dd538 711 {
96385642
VZ
712 wxString text = GetValue();
713
6085b116 714 // cast to prevent warning. But pos really should've been unsigned.
2829d9e3 715 if( (unsigned long)pos > text.Len() )
96385642
VZ
716 return FALSE;
717
ac0d36b5
HH
718 *x=0; // First Col
719 *y=0; // First Line
2829d9e3 720
05939a81
OK
721 const wxChar* stop = text.c_str() + pos;
722 for ( const wxChar *p = text.c_str(); p < stop; p++ )
96385642 723 {
223d09f6 724 if (*p == wxT('\n'))
96385642
VZ
725 {
726 (*y)++;
ac0d36b5 727 *x=0;
96385642
VZ
728 }
729 else
730 (*x)++;
731 }
805dd538 732 }
96385642
VZ
733 else // single line control
734 {
2829d9e3 735 if ( pos <= GTK_ENTRY(m_text)->text_length )
96385642 736 {
ac0d36b5 737 *y = 0;
96385642
VZ
738 *x = pos;
739 }
740 else
741 {
742 // index out of bounds
743 return FALSE;
744 }
8bbe427f 745 }
96385642
VZ
746
747 return TRUE;
6de97a3b 748}
c801d85f 749
e3ca08dd 750long wxTextCtrl::XYToPosition(long x, long y ) const
c801d85f 751{
2830bf19 752 if (!(m_windowStyle & wxTE_MULTILINE)) return 0;
805dd538 753
2830bf19 754 long pos=0;
ac0d36b5 755 for( int i=0; i<y; i++ ) pos += GetLineLength(i) + 1; // one for '\n'
8bbe427f 756
3358d36e 757 pos += x;
2830bf19 758 return pos;
6de97a3b 759}
c801d85f 760
a81258be 761int wxTextCtrl::GetLineLength(long lineNo) const
c801d85f 762{
a81258be
RR
763 wxString str = GetLineText (lineNo);
764 return (int) str.Length();
6de97a3b 765}
c801d85f 766
a81258be 767int wxTextCtrl::GetNumberOfLines() const
c801d85f 768{
2830bf19 769 if (m_windowStyle & wxTE_MULTILINE)
a81258be 770 {
fab591c5
RR
771#ifdef __WXGTK20__
772 GtkTextBuffer *buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
a8bf1826 773
fab591c5
RR
774 return gtk_text_buffer_get_line_count( buffer );
775#else
2830bf19
RR
776 gint len = gtk_text_get_length( GTK_TEXT(m_text) );
777 char *text = gtk_editable_get_chars( GTK_EDITABLE(m_text), 0, len );
778
779 if (text)
780 {
781 int currentLine = 0;
782 for (int i = 0; i < len; i++ )
96385642 783 {
2830bf19 784 if (text[i] == '\n')
96385642
VZ
785 currentLine++;
786 }
2830bf19 787 g_free( text );
2829d9e3
VZ
788
789 // currentLine is 0 based, add 1 to get number of lines
790 return currentLine + 1;
2830bf19
RR
791 }
792 else
96385642 793 {
2830bf19 794 return 0;
96385642 795 }
fab591c5 796#endif
a81258be
RR
797 }
798 else
2830bf19 799 {
96385642 800 return 1;
2830bf19 801 }
6de97a3b 802}
c801d85f 803
debe6624 804void wxTextCtrl::SetInsertionPoint( long pos )
c801d85f 805{
223d09f6 806 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
3358d36e
VZ
807
808 if (m_windowStyle & wxTE_MULTILINE)
291a8f20 809 {
fab591c5
RR
810#ifdef __WXGTK20__
811 GtkTextBuffer *text_buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
812 GtkTextIter iter;
813 gtk_text_buffer_get_iter_at_offset( text_buffer, &iter, pos );
814 gtk_text_buffer_place_cursor( text_buffer, &iter );
815#else
291a8f20
RR
816 gtk_signal_disconnect_by_func( GTK_OBJECT(m_text),
817 GTK_SIGNAL_FUNC(gtk_text_changed_callback), (gpointer)this);
3358d36e 818
291a8f20 819 /* we fake a set_point by inserting and deleting. as the user
fab591c5 820 isn't supposed to get to know about this non-sense, we
3358d36e
VZ
821 disconnect so that no events are sent to the user program. */
822
291a8f20
RR
823 gint tmp = (gint)pos;
824 gtk_editable_insert_text( GTK_EDITABLE(m_text), " ", 1, &tmp );
3358d36e
VZ
825 gtk_editable_delete_text( GTK_EDITABLE(m_text), tmp-1, tmp );
826
291a8f20
RR
827 gtk_signal_connect( GTK_OBJECT(m_text), "changed",
828 GTK_SIGNAL_FUNC(gtk_text_changed_callback), (gpointer)this);
3358d36e 829
fab591c5 830 // bring editable's cursor uptodate. Bug in GTK.
9e691f46 831 SET_EDITABLE_POS(m_text, gtk_text_get_point( GTK_TEXT(m_text) ));
fab591c5 832#endif
ac0d36b5 833 }
2830bf19 834 else
291a8f20 835 {
d59051dd 836 gtk_entry_set_position( GTK_ENTRY(m_text), (int)pos );
3358d36e 837
fab591c5 838 // Bring editable's cursor uptodate. Bug in GTK.
9e691f46 839 SET_EDITABLE_POS(m_text, (guint32)pos);
291a8f20 840 }
6de97a3b 841}
c801d85f 842
03f38c58 843void wxTextCtrl::SetInsertionPointEnd()
c801d85f 844{
223d09f6 845 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
8bbe427f 846
d59051dd 847 if (m_windowStyle & wxTE_MULTILINE)
fab591c5
RR
848 {
849#ifdef __WXGTK20__
850 GtkTextBuffer *text_buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
851 GtkTextIter end;
852 gtk_text_buffer_get_end_iter( text_buffer, &end );
853 gtk_text_buffer_place_cursor( text_buffer, &end );
854#else
d59051dd 855 SetInsertionPoint(gtk_text_get_length(GTK_TEXT(m_text)));
fab591c5
RR
856#endif
857 }
d59051dd 858 else
fab591c5 859 {
d59051dd 860 gtk_entry_set_position( GTK_ENTRY(m_text), -1 );
fab591c5 861 }
6de97a3b 862}
c801d85f 863
debe6624 864void wxTextCtrl::SetEditable( bool editable )
c801d85f 865{
223d09f6 866 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
8bbe427f 867
2830bf19 868 if (m_windowStyle & wxTE_MULTILINE)
fab591c5
RR
869 {
870#ifdef __WXGTK20__
871 gtk_text_view_set_editable( GTK_TEXT_VIEW(m_text), editable );
872#else
2830bf19 873 gtk_text_set_editable( GTK_TEXT(m_text), editable );
fab591c5
RR
874#endif
875 }
2830bf19 876 else
fab591c5 877 {
2830bf19 878 gtk_entry_set_editable( GTK_ENTRY(m_text), editable );
fab591c5 879 }
6de97a3b 880}
c801d85f 881
68df5777
RR
882bool wxTextCtrl::Enable( bool enable )
883{
884 if (!wxWindowBase::Enable(enable))
885 {
886 // nothing to do
887 return FALSE;
888 }
f6bcfd97 889
68df5777
RR
890 if (m_windowStyle & wxTE_MULTILINE)
891 {
fab591c5
RR
892#ifdef __WXGTK20__
893 SetEditable( enable );
894#else
68df5777 895 gtk_text_set_editable( GTK_TEXT(m_text), enable );
5abf8c9d 896 OnParentEnable(enable);
fab591c5 897#endif
68df5777
RR
898 }
899 else
900 {
901 gtk_widget_set_sensitive( m_text, enable );
902 }
903
904 return TRUE;
905}
906
fdca68a6
JS
907// wxGTK-specific: called recursively by Enable,
908// to give widgets an oppprtunity to correct their colours after they
909// have been changed by Enable
910void wxTextCtrl::OnParentEnable( bool enable )
911{
912 // If we have a custom background colour, we use this colour in both
913 // disabled and enabled mode, or we end up with a different colour under the
914 // text.
915 wxColour oldColour = GetBackgroundColour();
916 if (oldColour.Ok())
917 {
918 // Need to set twice or it'll optimize the useful stuff out
919 if (oldColour == * wxWHITE)
920 SetBackgroundColour(*wxBLACK);
921 else
922 SetBackgroundColour(*wxWHITE);
923 SetBackgroundColour(oldColour);
924 }
925}
926
3a9fa0d6
VZ
927void wxTextCtrl::MarkDirty()
928{
929 m_modified = TRUE;
930}
931
0efe5ba7
VZ
932void wxTextCtrl::DiscardEdits()
933{
934 m_modified = FALSE;
935}
936
ce2f50e3
VZ
937// ----------------------------------------------------------------------------
938// max text length support
939// ----------------------------------------------------------------------------
940
941void wxTextCtrl::IgnoreNextTextUpdate()
942{
943 m_ignoreNextUpdate = TRUE;
944}
945
946bool wxTextCtrl::IgnoreTextUpdate()
947{
948 if ( m_ignoreNextUpdate )
949 {
950 m_ignoreNextUpdate = FALSE;
951
952 return TRUE;
953 }
954
955 return FALSE;
956}
957
d7eee191
VZ
958void wxTextCtrl::SetMaxLength(unsigned long len)
959{
960 if ( !HasFlag(wxTE_MULTILINE) )
961 {
962 gtk_entry_set_max_length(GTK_ENTRY(m_text), len);
ce2f50e3
VZ
963
964 // there is a bug in GTK+ 1.2.x: "changed" signal is emitted even if
965 // we had tried to enter more text than allowed by max text length and
966 // the text wasn't really changed
967 //
968 // to detect this and generate TEXT_MAXLEN event instead of
969 // TEXT_CHANGED one in this case we also catch "insert_text" signal
970 //
971 // when max len is set to 0 we disconnect our handler as it means that
972 // we shouldn't check anything any more
973 if ( len )
974 {
975 gtk_signal_connect( GTK_OBJECT(m_text),
976 "insert_text",
977 GTK_SIGNAL_FUNC(gtk_insert_text_callback),
978 (gpointer)this);
979 }
980 else // no checking
981 {
982 gtk_signal_disconnect_by_func
983 (
984 GTK_OBJECT(m_text),
985 GTK_SIGNAL_FUNC(gtk_insert_text_callback),
986 (gpointer)this
987 );
988 }
d7eee191
VZ
989 }
990}
991
debe6624 992void wxTextCtrl::SetSelection( long from, long to )
c801d85f 993{
223d09f6 994 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
8bbe427f 995
2b5f62a0
VZ
996 if (from == -1 && to == -1)
997 {
998 from = 0;
999 to = GetValue().Length();
1000 }
1001
fab591c5 1002#ifndef __WXGTK20__
a1f79c1e
VZ
1003 if ( (m_windowStyle & wxTE_MULTILINE) &&
1004 !GTK_TEXT(m_text)->line_start_cache )
1005 {
1006 // tell the programmer that it didn't work
1007 wxLogDebug(_T("Can't call SetSelection() before realizing the control"));
1008 return;
1009 }
fab591c5 1010#endif
a1f79c1e 1011
fab591c5
RR
1012 if (m_windowStyle & wxTE_MULTILINE)
1013 {
1014#ifdef __WXGTK20__
739e366a
JS
1015 GtkTextBuffer *buf = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
1016
1017 GtkTextIter fromi, toi;
1018 gtk_text_buffer_get_iter_at_offset( buf, &fromi, from );
1019 gtk_text_buffer_get_iter_at_offset( buf, &toi, to );
1020
1021 gtk_text_buffer_place_cursor( buf, &toi );
1022 gtk_text_buffer_move_mark_by_name( buf, "selection_bound", &fromi );
fab591c5
RR
1023#else
1024 gtk_editable_select_region( GTK_EDITABLE(m_text), (gint)from, (gint)to );
1025#endif
1026 }
1027 else
1028 {
1029 gtk_editable_select_region( GTK_EDITABLE(m_text), (gint)from, (gint)to );
1030 }
6de97a3b 1031}
c801d85f 1032
afbe906a 1033void wxTextCtrl::ShowPosition( long pos )
c801d85f 1034{
afbe906a
RR
1035 if (m_windowStyle & wxTE_MULTILINE)
1036 {
71aba833
VZ
1037#ifdef __WXGTK20__
1038 GtkTextBuffer *buf = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
1039 GtkTextIter iter;
1040 gtk_text_buffer_get_start_iter( buf, &iter );
1041 gtk_text_iter_set_offset( &iter, pos );
1042 GtkTextMark *mark = gtk_text_buffer_create_mark( buf, NULL, &iter, TRUE );
1043 gtk_text_view_scroll_to_mark( GTK_TEXT_VIEW(m_text), mark, 0.0, FALSE, 0.0, 0.0 );
1044#else // GTK 1.x
afbe906a
RR
1045 GtkAdjustment *vp = GTK_TEXT(m_text)->vadj;
1046 float totalLines = (float) GetNumberOfLines();
1047 long posX;
1048 long posY;
1049 PositionToXY(pos, &posX, &posY);
1050 float posLine = (float) posY;
1051 float p = (posLine/totalLines)*(vp->upper - vp->lower) + vp->lower;
1052 gtk_adjustment_set_value(GTK_TEXT(m_text)->vadj, p);
71aba833 1053#endif // GTK 1.x/2.x
afbe906a 1054 }
6de97a3b 1055}
c801d85f 1056
03f38c58 1057long wxTextCtrl::GetInsertionPoint() const
c801d85f 1058{
223d09f6 1059 wxCHECK_MSG( m_text != NULL, 0, wxT("invalid text ctrl") );
8bbe427f 1060
fab591c5
RR
1061#ifdef __WXGTK20__
1062 if (m_windowStyle & wxTE_MULTILINE)
1063 {
1064 GtkTextBuffer *text_buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
a8bf1826 1065
fab591c5
RR
1066 // There is no direct accessor for the cursor, but
1067 // internally, the cursor is the "mark" called
1068 // "insert" in the text view's btree structure.
a8bf1826 1069
fab591c5
RR
1070 GtkTextMark *mark = gtk_text_buffer_get_insert( text_buffer );
1071 GtkTextIter cursor;
1072 gtk_text_buffer_get_iter_at_mark( text_buffer, &cursor, mark );
a8bf1826 1073
fab591c5
RR
1074 return gtk_text_iter_get_offset( &cursor );
1075 }
1076 else
1077#endif
1078 {
9e691f46 1079 return (long) GET_EDITABLE_POS(m_text);
fab591c5 1080 }
6de97a3b 1081}
c801d85f 1082
03f38c58 1083long wxTextCtrl::GetLastPosition() const
c801d85f 1084{
223d09f6 1085 wxCHECK_MSG( m_text != NULL, 0, wxT("invalid text ctrl") );
8bbe427f 1086
2830bf19 1087 int pos = 0;
a8bf1826 1088
2830bf19 1089 if (m_windowStyle & wxTE_MULTILINE)
fab591c5
RR
1090 {
1091#ifdef __WXGTK20__
1092 GtkTextBuffer *text_buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
1093 GtkTextIter end;
1094 gtk_text_buffer_get_end_iter( text_buffer, &end );
a8bf1826 1095
fab591c5
RR
1096 pos = gtk_text_iter_get_offset( &end );
1097#else
2830bf19 1098 pos = gtk_text_get_length( GTK_TEXT(m_text) );
fab591c5
RR
1099#endif
1100 }
2830bf19 1101 else
fab591c5 1102 {
2830bf19 1103 pos = GTK_ENTRY(m_text)->text_length;
fab591c5 1104 }
805dd538 1105
ac0d36b5 1106 return (long)pos;
6de97a3b 1107}
c801d85f 1108
debe6624 1109void wxTextCtrl::Remove( long from, long to )
c801d85f 1110{
223d09f6 1111 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
8bbe427f 1112
581ee8a9 1113#ifdef __WXGTK20__
fdd55287 1114 if (m_windowStyle & wxTE_MULTILINE)
581ee8a9
VZ
1115 {
1116 GtkTextBuffer *
1117 text_buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
1118
1119 GtkTextIter fromi, toi;
1120 gtk_text_buffer_get_iter_at_offset( text_buffer, &fromi, from );
1121 gtk_text_buffer_get_iter_at_offset( text_buffer, &toi, to );
1122
1123 gtk_text_buffer_delete( text_buffer, &fromi, &toi );
1124 }
1125 else // single line
fab591c5 1126#endif
581ee8a9 1127 gtk_editable_delete_text( GTK_EDITABLE(m_text), (gint)from, (gint)to );
6de97a3b 1128}
c801d85f 1129
debe6624 1130void wxTextCtrl::Replace( long from, long to, const wxString &value )
c801d85f 1131{
223d09f6 1132 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
8bbe427f 1133
581ee8a9 1134 Remove( from, to );
bb69661b 1135
2df7be7f
RR
1136 if (!value.IsEmpty())
1137 {
581ee8a9
VZ
1138#ifdef __WXGTK20__
1139 SetInsertionPoint( from );
1140 WriteText( value );
1141#else // GTK 1.x
2df7be7f 1142 gint pos = (gint)from;
05939a81 1143#if wxUSE_UNICODE
2df7be7f
RR
1144 wxWX2MBbuf buf = value.mbc_str();
1145 gtk_editable_insert_text( GTK_EDITABLE(m_text), buf, strlen(buf), &pos );
05939a81 1146#else
2df7be7f 1147 gtk_editable_insert_text( GTK_EDITABLE(m_text), value, value.Length(), &pos );
581ee8a9
VZ
1148#endif // wxUSE_UNICODE
1149#endif // GTK 1.x/2.x
2df7be7f 1150 }
6de97a3b 1151}
c801d85f 1152
03f38c58 1153void wxTextCtrl::Cut()
c801d85f 1154{
223d09f6 1155 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
8bbe427f 1156
fab591c5 1157#ifndef __WXGTK20__
9e691f46 1158 gtk_editable_cut_clipboard( GTK_EDITABLE(m_text) DUMMY_CLIPBOARD_ARG );
fab591c5 1159#endif
6de97a3b 1160}
c801d85f 1161
03f38c58 1162void wxTextCtrl::Copy()
c801d85f 1163{
223d09f6 1164 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
8bbe427f 1165
fab591c5 1166#ifndef __WXGTK20__
9e691f46 1167 gtk_editable_copy_clipboard( GTK_EDITABLE(m_text) DUMMY_CLIPBOARD_ARG );
fab591c5 1168#endif
6de97a3b 1169}
c801d85f 1170
03f38c58 1171void wxTextCtrl::Paste()
c801d85f 1172{
223d09f6 1173 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
8bbe427f 1174
fab591c5 1175#ifndef __WXGTK20__
9e691f46 1176 gtk_editable_paste_clipboard( GTK_EDITABLE(m_text) DUMMY_CLIPBOARD_ARG );
fab591c5 1177#endif
6de97a3b 1178}
c801d85f 1179
ca8b28f2
JS
1180// Undo/redo
1181void wxTextCtrl::Undo()
1182{
1183 // TODO
223d09f6 1184 wxFAIL_MSG( wxT("wxTextCtrl::Undo not implemented") );
ca8b28f2
JS
1185}
1186
1187void wxTextCtrl::Redo()
1188{
1189 // TODO
223d09f6 1190 wxFAIL_MSG( wxT("wxTextCtrl::Redo not implemented") );
ca8b28f2
JS
1191}
1192
1193bool wxTextCtrl::CanUndo() const
1194{
1195 // TODO
4855a477 1196 //wxFAIL_MSG( wxT("wxTextCtrl::CanUndo not implemented") );
ca8b28f2
JS
1197 return FALSE;
1198}
1199
1200bool wxTextCtrl::CanRedo() const
1201{
1202 // TODO
4855a477 1203 //wxFAIL_MSG( wxT("wxTextCtrl::CanRedo not implemented") );
ca8b28f2
JS
1204 return FALSE;
1205}
1206
1207// If the return values from and to are the same, there is no
1208// selection.
2d4cc5b6 1209void wxTextCtrl::GetSelection(long* fromOut, long* toOut) const
ca8b28f2 1210{
223d09f6 1211 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
bb69661b 1212
5b87f8bf
RD
1213 gint from = -1;
1214 gint to = -1;
1215 bool haveSelection = FALSE;
1216
fb47b99f 1217#ifdef __WXGTK20__
5b87f8bf
RD
1218 if (m_windowStyle & wxTE_MULTILINE)
1219 {
1220 GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (m_text));
1221 GtkTextIter ifrom, ito;
1222 if ( gtk_text_buffer_get_selection_bounds(buffer, &ifrom, &ito) )
1223 {
1224 haveSelection = TRUE;
1225 from = gtk_text_iter_get_offset(&ifrom);
1226 to = gtk_text_iter_get_offset(&ito);
1227 }
1228 }
1229 else // not multi-line
1230 {
1231 if ( gtk_editable_get_selection_bounds( GTK_EDITABLE(m_text),
1232 &from, &to) )
1233 {
1234 haveSelection = TRUE;
1235 }
1236 }
1237#else // not GTK2
1238 if ( (GTK_EDITABLE(m_text)->has_selection) )
1239 {
1240 haveSelection = TRUE;
1241 from = (long) GTK_EDITABLE(m_text)->selection_start_pos;
1242 to = (long) GTK_EDITABLE(m_text)->selection_end_pos;
1243 }
9e691f46 1244#endif
2d4cc5b6 1245
5b87f8bf
RD
1246 if (! haveSelection )
1247 from = to = GetInsertionPoint();
1248
1249 if ( from > to )
1250 {
1251 // exchange them to be compatible with wxMSW
1252 gint tmp = from;
1253 from = to;
1254 to = tmp;
1255 }
bb69661b 1256
2d4cc5b6
VZ
1257 if ( fromOut )
1258 *fromOut = from;
1259 if ( toOut )
1260 *toOut = to;
ca8b28f2
JS
1261}
1262
5b87f8bf 1263
ca8b28f2
JS
1264bool wxTextCtrl::IsEditable() const
1265{
223d09f6 1266 wxCHECK_MSG( m_text != NULL, FALSE, wxT("invalid text ctrl") );
05060eeb 1267
9e691f46 1268#ifdef __WXGTK20__
fdd55287
VZ
1269 if (m_windowStyle & wxTE_MULTILINE)
1270 {
1271 return gtk_text_view_get_editable(GTK_TEXT_VIEW(m_text));
1272 }
1273 else
1274 {
1275 return gtk_editable_get_editable(GTK_EDITABLE(m_text));
1276 }
9e691f46 1277#else
05060eeb 1278 return GTK_EDITABLE(m_text)->editable;
9e691f46 1279#endif
ca8b28f2
JS
1280}
1281
0efe5ba7
VZ
1282bool wxTextCtrl::IsModified() const
1283{
1284 return m_modified;
1285}
1286
03f38c58 1287void wxTextCtrl::Clear()
c801d85f 1288{
223d09f6 1289 SetValue( wxT("") );
6de97a3b 1290}
c801d85f 1291
903f689b 1292void wxTextCtrl::OnChar( wxKeyEvent &key_event )
c801d85f 1293{
223d09f6 1294 wxCHECK_RET( m_text != NULL, wxT("invalid text ctrl") );
805dd538 1295
12a3f227 1296 if ((key_event.GetKeyCode() == WXK_RETURN) && (m_windowStyle & wxPROCESS_ENTER))
2830bf19
RR
1297 {
1298 wxCommandEvent event(wxEVT_COMMAND_TEXT_ENTER, m_windowId);
1299 event.SetEventObject(this);
f6bcfd97 1300 event.SetString(GetValue());
2830bf19
RR
1301 if (GetEventHandler()->ProcessEvent(event)) return;
1302 }
903f689b 1303
12a3f227 1304 if ((key_event.GetKeyCode() == WXK_RETURN) && !(m_windowStyle & wxTE_MULTILINE))
da048e3d 1305 {
2b328fc9
RR
1306 // This will invoke the dialog default action, such
1307 // as the clicking the default button.
a8bf1826 1308
da048e3d 1309 wxWindow *top_frame = m_parent;
8487f887 1310 while (top_frame->GetParent() && !(top_frame->IsTopLevel()))
da048e3d 1311 top_frame = top_frame->GetParent();
a8bf1826 1312
2b328fc9 1313 if (top_frame && GTK_IS_WINDOW(top_frame->m_widget))
da048e3d 1314 {
2b328fc9
RR
1315 GtkWindow *window = GTK_WINDOW(top_frame->m_widget);
1316
1317 if (window->default_widget)
1318 {
1319 gtk_widget_activate (window->default_widget);
1320 return;
1321 }
13111b2a 1322 }
da048e3d
RR
1323 }
1324
2830bf19 1325 key_event.Skip();
6de97a3b 1326}
c801d85f 1327
03f38c58 1328GtkWidget* wxTextCtrl::GetConnectWidget()
e3e65dac 1329{
ae0bdb01 1330 return GTK_WIDGET(m_text);
6de97a3b 1331}
e3e65dac 1332
903f689b
RR
1333bool wxTextCtrl::IsOwnGtkWindow( GdkWindow *window )
1334{
ae0bdb01 1335 if (m_windowStyle & wxTE_MULTILINE)
fab591c5
RR
1336 {
1337#ifdef __WXGTK20__
1338 return window == gtk_text_view_get_window( GTK_TEXT_VIEW( m_text ), GTK_TEXT_WINDOW_TEXT ); // pure guesswork
1339#else
ae0bdb01 1340 return (window == GTK_TEXT(m_text)->text_area);
fab591c5
RR
1341#endif
1342 }
ae0bdb01 1343 else
fab591c5 1344 {
ae0bdb01 1345 return (window == GTK_ENTRY(m_text)->text_area);
fab591c5 1346 }
903f689b 1347}
e3e65dac 1348
bb69661b
VZ
1349// the font will change for subsequent text insertiongs
1350bool wxTextCtrl::SetFont( const wxFont &font )
868a2826 1351{
223d09f6 1352 wxCHECK_MSG( m_text != NULL, FALSE, wxT("invalid text ctrl") );
8bbe427f 1353
a66954a6 1354 if ( !wxTextCtrlBase::SetFont(font) )
bb69661b
VZ
1355 {
1356 // font didn't change, nothing to do
1357 return FALSE;
1358 }
1359
1360 if ( m_windowStyle & wxTE_MULTILINE )
1361 {
01041145 1362 m_updateFont = TRUE;
bb69661b 1363
1ff4714d
VZ
1364 m_defaultStyle.SetFont(font);
1365
01041145 1366 ChangeFontGlobally();
bb69661b
VZ
1367 }
1368
1369 return TRUE;
58614078
RR
1370}
1371
01041145
VZ
1372void wxTextCtrl::ChangeFontGlobally()
1373{
1374 // this method is very inefficient and hence should be called as rarely as
1375 // possible!
1376 wxASSERT_MSG( (m_windowStyle & wxTE_MULTILINE) && m_updateFont,
1377 _T("shouldn't be called for single line controls") );
1378
1379 wxString value = GetValue();
1380 if ( !value.IsEmpty() )
1381 {
572aeb77
VZ
1382 m_updateFont = FALSE;
1383
01041145
VZ
1384 Clear();
1385 AppendText(value);
01041145
VZ
1386 }
1387}
1388
1389void wxTextCtrl::UpdateFontIfNeeded()
1390{
1391 if ( m_updateFont )
1392 ChangeFontGlobally();
1393}
1394
17665a2b
VZ
1395bool wxTextCtrl::SetForegroundColour(const wxColour& colour)
1396{
1397 if ( !wxControl::SetForegroundColour(colour) )
1398 return FALSE;
1399
1400 // update default fg colour too
1401 m_defaultStyle.SetTextColour(colour);
1402
1403 return TRUE;
1404}
1405
f03fc89f 1406bool wxTextCtrl::SetBackgroundColour( const wxColour &colour )
68dda785 1407{
223d09f6 1408 wxCHECK_MSG( m_text != NULL, FALSE, wxT("invalid text ctrl") );
a81258be 1409
1f477433
VZ
1410 if ( !wxControl::SetBackgroundColour( colour ) )
1411 return FALSE;
3358d36e 1412
f03fc89f
VZ
1413 if (!m_widget->window)
1414 return FALSE;
8bbe427f 1415
a756f210 1416 wxColour sysbg = wxSystemSettings::GetColour( wxSYS_COLOUR_BTNFACE );
805dd538
VZ
1417 if (sysbg.Red() == colour.Red() &&
1418 sysbg.Green() == colour.Green() &&
ae0bdb01
RR
1419 sysbg.Blue() == colour.Blue())
1420 {
f03fc89f 1421 return FALSE; // FIXME or TRUE?
805dd538
VZ
1422 }
1423
f03fc89f
VZ
1424 if (!m_backgroundColour.Ok())
1425 return FALSE;
8bbe427f 1426
ae0bdb01
RR
1427 if (m_windowStyle & wxTE_MULTILINE)
1428 {
1fc32b12 1429#ifndef __WXGTK20__
ae0bdb01 1430 GdkWindow *window = GTK_TEXT(m_text)->text_area;
f03fc89f
VZ
1431 if (!window)
1432 return FALSE;
ae0bdb01
RR
1433 m_backgroundColour.CalcPixel( gdk_window_get_colormap( window ) );
1434 gdk_window_set_background( window, m_backgroundColour.GetColor() );
1435 gdk_window_clear( window );
fab591c5 1436#endif
ae0bdb01 1437 }
f03fc89f 1438
17665a2b
VZ
1439 // change active background color too
1440 m_defaultStyle.SetBackgroundColour( colour );
1441
f03fc89f 1442 return TRUE;
58614078
RR
1443}
1444
eda40bfc 1445bool wxTextCtrl::SetStyle( long start, long end, const wxTextAttr& style )
17665a2b 1446{
17665a2b
VZ
1447 if ( m_windowStyle & wxTE_MULTILINE )
1448 {
1449 if ( style.IsDefault() )
1450 {
1451 // nothing to do
1452 return TRUE;
1453 }
cc3da3f8
RR
1454#ifdef __WXGTK20__
1455 GtkTextBuffer *text_buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(m_text) );
1456 gint l = gtk_text_buffer_get_char_count( text_buffer );
17665a2b 1457
cc3da3f8
RR
1458 wxCHECK_MSG( start >= 0 && end <= l, FALSE,
1459 _T("invalid range in wxTextCtrl::SetStyle") );
1460
1461 GtkTextIter starti, endi;
1462 gtk_text_buffer_get_iter_at_offset( text_buffer, &starti, start );
1463 gtk_text_buffer_get_iter_at_offset( text_buffer, &endi, end );
1464
1465 // use the attributes from style which are set in it and fall back
1466 // first to the default style and then to the text control default
1467 // colours for the others
1468 wxTextAttr attr = wxTextAttr::Combine(style, m_defaultStyle, this);
1469
1470 PangoFontDescription *font_description = attr.HasFont()
1471 ? attr.GetFont().GetNativeFontInfo()->description
1472 : NULL;
1473
1474 GdkColor *colFg = attr.HasTextColour() ? attr.GetTextColour().GetColor()
1475 : NULL;
1476
1477 GdkColor *colBg = attr.HasBackgroundColour()
1478 ? attr.GetBackgroundColour().GetColor()
1479 : NULL;
1480
1481 GtkTextTag *tag;
1482 tag = gtk_text_buffer_create_tag( text_buffer, NULL, "font-desc", font_description,
1483 "foreground-gdk", colFg,
1484 "background-gdk", colBg, NULL );
1485 gtk_text_buffer_apply_tag( text_buffer, tag, &starti, &endi );
1486
1487 return TRUE;
1488#else
1489 // VERY dirty way to do that - removes the required text and re-adds it
1490 // with styling (FIXME)
5b87f8bf 1491
17665a2b
VZ
1492 gint l = gtk_text_get_length( GTK_TEXT(m_text) );
1493
1494 wxCHECK_MSG( start >= 0 && end <= l, FALSE,
1495 _T("invalid range in wxTextCtrl::SetStyle") );
1496
1497 gint old_pos = gtk_editable_get_position( GTK_EDITABLE(m_text) );
1498 char *text = gtk_editable_get_chars( GTK_EDITABLE(m_text), start, end );
1499 wxString tmp(text,*wxConvCurrent);
1500 g_free( text );
1501
1502 gtk_editable_delete_text( GTK_EDITABLE(m_text), start, end );
1503 gtk_editable_set_position( GTK_EDITABLE(m_text), start );
1504
1505#if wxUSE_UNICODE
1506 wxWX2MBbuf buf = tmp.mbc_str();
1507 const char *txt = buf;
1508 size_t txtlen = strlen(buf);
1509#else
1510 const char *txt = tmp;
1511 size_t txtlen = tmp.length();
1512#endif
1513
eda40bfc
VZ
1514 // use the attributes from style which are set in it and fall back
1515 // first to the default style and then to the text control default
1516 // colours for the others
1517 wxGtkTextInsert(m_text,
1518 wxTextAttr::Combine(style, m_defaultStyle, this),
1519 txt,
1520 txtlen);
17665a2b
VZ
1521
1522 /* does not seem to help under GTK+ 1.2 !!!
1523 gtk_editable_set_position( GTK_EDITABLE(m_text), old_pos ); */
1524 SetInsertionPoint( old_pos );
fab591c5 1525#endif
17665a2b
VZ
1526 return TRUE;
1527 }
1528 else // singe line
1529 {
1530 // cannot do this for GTK+'s Entry widget
1531 return FALSE;
1532 }
1533}
1534
58614078
RR
1535void wxTextCtrl::ApplyWidgetStyle()
1536{
ae0bdb01
RR
1537 if (m_windowStyle & wxTE_MULTILINE)
1538 {
2830bf19 1539 // how ?
805dd538 1540 }
ae0bdb01
RR
1541 else
1542 {
1543 SetWidgetStyle();
1544 gtk_widget_set_style( m_text, m_widgetStyle );
1545 }
68dda785 1546}
f96aa4d9 1547
e702ff0f
JS
1548void wxTextCtrl::OnCut(wxCommandEvent& WXUNUSED(event))
1549{
1550 Cut();
1551}
1552
1553void wxTextCtrl::OnCopy(wxCommandEvent& WXUNUSED(event))
1554{
1555 Copy();
1556}
1557
1558void wxTextCtrl::OnPaste(wxCommandEvent& WXUNUSED(event))
1559{
1560 Paste();
1561}
1562
1563void wxTextCtrl::OnUndo(wxCommandEvent& WXUNUSED(event))
1564{
1565 Undo();
1566}
1567
1568void wxTextCtrl::OnRedo(wxCommandEvent& WXUNUSED(event))
1569{
1570 Redo();
1571}
1572
1573void wxTextCtrl::OnUpdateCut(wxUpdateUIEvent& event)
1574{
1575 event.Enable( CanCut() );
1576}
1577
1578void wxTextCtrl::OnUpdateCopy(wxUpdateUIEvent& event)
1579{
1580 event.Enable( CanCopy() );
1581}
1582
1583void wxTextCtrl::OnUpdatePaste(wxUpdateUIEvent& event)
1584{
1585 event.Enable( CanPaste() );
1586}
1587
1588void wxTextCtrl::OnUpdateUndo(wxUpdateUIEvent& event)
1589{
1590 event.Enable( CanUndo() );
1591}
1592
1593void wxTextCtrl::OnUpdateRedo(wxUpdateUIEvent& event)
1594{
1595 event.Enable( CanRedo() );
1596}
65045edd
RR
1597
1598void wxTextCtrl::OnInternalIdle()
1599{
1600 wxCursor cursor = m_cursor;
1601 if (g_globalCursor.Ok()) cursor = g_globalCursor;
1602
307f16e8 1603 if (cursor.Ok())
65045edd 1604 {
fab591c5 1605#ifndef __WXGTK20__
65045edd 1606 GdkWindow *window = (GdkWindow*) NULL;
13111b2a 1607 if (HasFlag(wxTE_MULTILINE))
65045edd
RR
1608 window = GTK_TEXT(m_text)->text_area;
1609 else
1610 window = GTK_ENTRY(m_text)->text_area;
13111b2a 1611
65045edd
RR
1612 if (window)
1613 gdk_window_set_cursor( window, cursor.GetCursor() );
1614
1615 if (!g_globalCursor.Ok())
1616 cursor = *wxSTANDARD_CURSOR;
1617
1618 window = m_widget->window;
247e5b16 1619 if ((window) && !(GTK_WIDGET_NO_WINDOW(m_widget)))
65045edd 1620 gdk_window_set_cursor( window, cursor.GetCursor() );
fab591c5 1621#endif
65045edd 1622 }
26bf1ce0 1623
d7fa7eaa
RR
1624 if (g_delayedFocus == this)
1625 {
1626 if (GTK_WIDGET_REALIZED(m_widget))
1627 {
1628 gtk_widget_grab_focus( m_widget );
1629 g_delayedFocus = NULL;
1630 }
1631 }
1632
e39af974
JS
1633 if (wxUpdateUIEvent::CanUpdate(this))
1634 UpdateWindowUI(wxUPDATE_UI_FROMIDLE);
65045edd 1635}
f68586e5
VZ
1636
1637wxSize wxTextCtrl::DoGetBestSize() const
1638{
1639 // FIXME should be different for multi-line controls...
0279e844
RR
1640 wxSize ret( wxControl::DoGetBestSize() );
1641 return wxSize(80, ret.y);
f68586e5 1642}
0cc7251e 1643
9cd6d737
VZ
1644// ----------------------------------------------------------------------------
1645// freeze/thaw
1646// ----------------------------------------------------------------------------
1647
0cc7251e
VZ
1648void wxTextCtrl::Freeze()
1649{
fab591c5 1650#ifndef __WXGTK20__
0cc7251e
VZ
1651 if ( HasFlag(wxTE_MULTILINE) )
1652 {
1653 gtk_text_freeze(GTK_TEXT(m_text));
1654 }
fab591c5 1655#endif
0cc7251e
VZ
1656}
1657
1658void wxTextCtrl::Thaw()
1659{
fab591c5 1660#ifndef __WXGTK20__
0cc7251e
VZ
1661 if ( HasFlag(wxTE_MULTILINE) )
1662 {
817ec43a
VZ
1663 GTK_TEXT(m_text)->vadj->value = 0.0;
1664
0cc7251e
VZ
1665 gtk_text_thaw(GTK_TEXT(m_text));
1666 }
fab591c5 1667#endif
0cc7251e 1668}
9cd6d737
VZ
1669
1670// ----------------------------------------------------------------------------
1671// scrolling
1672// ----------------------------------------------------------------------------
1673
1674GtkAdjustment *wxTextCtrl::GetVAdj() const
1675{
fab591c5
RR
1676#ifdef __WXGTK20__
1677 return NULL;
1678#else
9cd6d737 1679 return HasFlag(wxTE_MULTILINE) ? GTK_TEXT(m_text)->vadj : NULL;
fab591c5 1680#endif
9cd6d737
VZ
1681}
1682
1683bool wxTextCtrl::DoScroll(GtkAdjustment *adj, int diff)
1684{
fab591c5 1685#ifndef __WXGTK20__
9cd6d737
VZ
1686 float value = adj->value + diff;
1687
1688 if ( value < 0 )
1689 value = 0;
1690
1691 float upper = adj->upper - adj->page_size;
1692 if ( value > upper )
1693 value = upper;
1694
1695 // did we noticeably change the scroll position?
1696 if ( fabs(adj->value - value) < 0.2 )
1697 {
1698 // well, this is what Robert does in wxScrollBar, so it must be good...
1699 return FALSE;
1700 }
1701
1702 adj->value = value;
1703
1704 gtk_signal_emit_by_name(GTK_OBJECT(adj), "value_changed");
1705
fab591c5 1706#endif
9cd6d737
VZ
1707 return TRUE;
1708}
1709
1710bool wxTextCtrl::ScrollLines(int lines)
1711{
fab591c5
RR
1712#ifdef __WXGTK20__
1713 return FALSE;
1714#else
9cd6d737
VZ
1715 GtkAdjustment *adj = GetVAdj();
1716 if ( !adj )
1717 return FALSE;
1718
1719 // this is hardcoded to 10 in GTK+ 1.2 (great idea)
1720 static const int KEY_SCROLL_PIXELS = 10;
1721
1722 return DoScroll(adj, lines*KEY_SCROLL_PIXELS);
fab591c5 1723#endif
9cd6d737
VZ
1724}
1725
1726bool wxTextCtrl::ScrollPages(int pages)
1727{
fab591c5
RR
1728#ifdef __WXGTK20__
1729 return FALSE;
1730#else
9cd6d737
VZ
1731 GtkAdjustment *adj = GetVAdj();
1732 if ( !adj )
1733 return FALSE;
1734
817ec43a 1735 return DoScroll(adj, (int)ceil(pages*adj->page_increment));
fab591c5 1736#endif
9cd6d737
VZ
1737}
1738