src/mac/carbon/textctrl.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        textctrl.cpp
   3 // Purpose:     wxTextCtrl
   4 // Author:      AUTHOR
   5 // Modified by:
   6 // Created:     ??/??/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) AUTHOR
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "textctrl.h"
  14 #endif
  15
  16 #ifndef __WXMAC__
  17 #include <sys/types.h>
  18 #include <sys/stat.h>
  19 #else
  20 #include <stat.h>
  21 #endif
  22 #include <fstream.h>
  23
  24 #include "wx/textctrl.h"
  25 #include "wx/settings.h"
  26 #include "wx/filefn.h"
  27 #include "wx/utils.h"
  28
  29 #if defined(__BORLANDC__) && !defined(__WIN32__)
  30 #include <alloc.h>
  31 #else
  32 #ifndef __MWERKS__
  33 #ifndef __GNUWIN32__
  34 #include <malloc.h>
  35 #endif
  36 #endif
  37 #endif
  38
  39 #include "wx/mac/uma.h"
  40
  41 IMPLEMENT_DYNAMIC_CLASS(wxTextCtrl, wxControl)
  42
  43 BEGIN_EVENT_TABLE(wxTextCtrl, wxControl)
  44         EVT_DROP_FILES(wxTextCtrl::OnDropFiles)
  45         EVT_CHAR(wxTextCtrl::OnChar)
  46 END_EVENT_TABLE()
  47
  48 // Text item
  49 wxTextCtrl::wxTextCtrl()
  50 #ifndef NO_TEXT_WINDOW_STREAM
  51  :streambuf()
  52 #endif
  53 {
  54     m_fileName = "";
  55 }
  56
  57 bool wxTextCtrl::Create(wxWindow *parent, wxWindowID id,
  58                    const wxString& st,
  59            const wxPoint& pos,
  60            const wxSize& size, long style,
  61            const wxValidator& validator,
  62            const wxString& name)
  63 {
  64         m_macHorizontalBorder = 2 ; // additional pixels around the real control
  65         m_macVerticalBorder = 2 ;
  66
  67         wxSize mySize = size ;
  68
  69         Rect bounds ;
  70         Str255 title ;
  71
  72         if ( mySize.y == -1 )
  73         {
  74                 if ( UMAHasAppearance() )
  75                         mySize.y = 16 ;
  76                 else
  77                         mySize.y = 24 ;
  78         }
  79         MacPreControlCreate( parent , id ,  "" , pos , mySize ,style, validator , name , &bounds , title ) ;
  80
  81         m_macControl = UMANewControl( parent->GetMacRootWindow() , &bounds , "\p" , true , 0 , 0 , 1,
  82                 kControlEditTextProc , (long) this ) ;
  83         MacPostControlCreate() ;
  84
  85         wxString value ;
  86
  87         if( wxApp::s_macDefaultEncodingIsPC )
  88                 value = wxMacMakeMacStringFromPC( st ) ;
  89         else
  90                 value = st ;
  91         UMASetControlData( m_macControl, 0, kControlEditTextTextTag , value.Length() , (char*) ((const char*)value) ) ;
  92
  93   return TRUE;
  94 }
  95
  96 wxString wxTextCtrl::GetValue() const
  97 {
  98         Size actualsize;
  99         UMAGetControlData( m_macControl, 0, kControlEditTextTextTag , 32767 , wxBuffer , &actualsize) ;
 100         wxBuffer[actualsize] = 0 ;
 101         if( wxApp::s_macDefaultEncodingIsPC )
 102                 return wxMacMakePCStringFromMac( wxBuffer ) ;
 103         else
 104         return wxString(wxBuffer);
 105 }
 106
 107 void wxTextCtrl::SetValue(const wxString& st)
 108 {
 109         wxString value ;
 110
 111         if( wxApp::s_macDefaultEncodingIsPC )
 112                 value = wxMacMakeMacStringFromPC( st ) ;
 113         else
 114                 value = st ;
 115         UMASetControlData( m_macControl, 0, kControlEditTextTextTag , value.Length() , (char*) ((const char*)value) ) ;
 116         Refresh() ;
 117 //      MacInvalidateControl() ;
 118 }
 119
 120 void wxTextCtrl::SetSize(int x, int y, int width, int height, int sizeFlags)
 121 {
 122     wxControl::SetSize( x , y , width , height , sizeFlags ) ;
 123 }
 124
 125 // Clipboard operations
 126 void wxTextCtrl::Copy()
 127 {
 128    TEHandle teH ;
 129    long size ;
 130
 131    UMAGetControlData( m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*) &teH , &size ) ;
 132         TECopy( teH ) ;
 133 }
 134
 135 void wxTextCtrl::Cut()
 136 {
 137    TEHandle teH ;
 138    long size ;
 139
 140    UMAGetControlData( m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*) &teH , &size ) ;
 141         TECut( teH ) ;
 142 //      MacInvalidateControl() ;
 143 }
 144
 145 void wxTextCtrl::Paste()
 146 {
 147    TEHandle teH ;
 148    long size ;
 149
 150    UMAGetControlData( m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*) &teH , &size ) ;
 151         TEPaste( teH ) ;
 152 //      MacInvalidateControl() ;
 153 }
 154
 155 void wxTextCtrl::SetEditable(bool editable)
 156 {
 157     if ( editable )
 158         UMAActivateControl( m_macControl ) ;
 159     else
 160         UMADeactivateControl( m_macControl ) ;
 161 }
 162
 163 void wxTextCtrl::SetInsertionPoint(long pos)
 164 {
 165         SetSelection( pos , pos ) ;
 166 }
 167
 168 void wxTextCtrl::SetInsertionPointEnd()
 169 {
 170     long pos = GetLastPosition();
 171     SetInsertionPoint(pos);
 172 }
 173
 174 long wxTextCtrl::GetInsertionPoint() const
 175 {
 176    ControlEditTextSelectionRec selection ;
 177    TEHandle teH ;
 178    long size ;
 179
 180    UMAGetControlData( m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*) &teH , &size ) ;
 181 //   UMAGetControlData( m_macControl , 0, kControlEditTextSelectionTag , sizeof( selection ) , (char*) &selection , &size ) ;
 182     return (**teH).selStart ;
 183 }
 184
 185 long wxTextCtrl::GetLastPosition() const
 186 {
 187    ControlEditTextSelectionRec selection ;
 188    TEHandle teH ;
 189    long size ;
 190
 191    UMAGetControlData( m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*) &teH , &size ) ;
 192
 193 //   UMAGetControlData( m_macControl , 0, kControlEditTextSelectionTag , sizeof( selection ) , (char*) &selection , &size ) ;
 194     return (**teH).teLength ;
 195 }
 196
 197 void wxTextCtrl::Replace(long from, long to, const wxString& value)
 198 {
 199         TEHandle teH ;
 200         long size ;
 201
 202         ControlEditTextSelectionRec selection ;
 203
 204         selection.selStart = from ;
 205         selection.selEnd = to ;
 206         UMASetControlData( m_macControl , 0, kControlEditTextSelectionTag , sizeof( selection ) , (char*) &selection ) ;
 207                 UMAGetControlData( m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*) &teH , &size ) ;
 208         TESetSelect( from , to  , teH ) ;
 209         TEDelete( teH ) ;
 210                 TEInsert( value , value.Length() , teH ) ;
 211 //      MacInvalidateControl() ;
 212 }
 213
 214 void wxTextCtrl::Remove(long from, long to)
 215 {
 216         TEHandle teH ;
 217         long size ;
 218
 219         ControlEditTextSelectionRec selection ;
 220
 221         selection.selStart = from ;
 222         selection.selEnd = to ;
 223         UMASetControlData( m_macControl , 0, kControlEditTextSelectionTag , sizeof( selection ) , (char*) &selection ) ;
 224         UMAGetControlData( m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*) &teH , &size ) ;
 225         TEDelete( teH ) ;
 226 //      MacInvalidateControl() ;
 227 }
 228
 229 void wxTextCtrl::SetSelection(long from, long to)
 230 {
 231    ControlEditTextSelectionRec selection ;
 232    TEHandle teH ;
 233    long size ;
 234
 235    UMAGetControlData( m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*) &teH , &size ) ;
 236
 237    selection.selStart = from ;
 238    selection.selEnd = to ;
 239
 240    UMASetControlData( m_macControl , 0, kControlEditTextSelectionTag , sizeof( selection ) , (char*) &selection ) ;
 241    TESetSelect( selection.selStart , selection.selEnd , teH ) ;
 242 }
 243
 244 bool wxTextCtrl::LoadFile(const wxString& file)
 245 {
 246     if (!wxFileExists(file))
 247         return FALSE;
 248
 249     m_fileName = file;
 250
 251     Clear();
 252
 253 #ifndef __WXMAC__
 254     ifstream input((char*) (const char*) file, ios::nocreate | ios::in);
 255 #else
 256     ifstream input((char*) (const char*) file, ios::in);
 257 #endif
 258     if (!input.bad())
 259     {
 260         struct stat stat_buf;
 261         if (stat(file, &stat_buf) < 0)
 262             return FALSE;
 263         // This may need to be a bigger buffer than the file size suggests,
 264         // if it's a UNIX file. Give it an extra 1000 just in case.
 265         char *tmp_buffer = (char*)malloc((size_t)(stat_buf.st_size+1+1000));
 266         long no_lines = 0;
 267         long pos = 0;
 268         while (!input.eof() && input.peek() != EOF)
 269         {
 270             input.getline(wxBuffer, 500);
 271                 int len = strlen(wxBuffer);
 272                 wxBuffer[len] = 13;
 273                 wxBuffer[len+1] = 10;
 274                 wxBuffer[len+2] = 0;
 275                 strcpy(tmp_buffer+pos, wxBuffer);
 276                 pos += strlen(wxBuffer);
 277                 no_lines++;
 278          }
 279
 280          // TODO add line
 281
 282          free(tmp_buffer);
 283
 284          return TRUE;
 285     }
 286     return FALSE;
 287 }
 288
 289 // If file is null, try saved file name first
 290 // Returns TRUE if succeeds.
 291 bool wxTextCtrl::SaveFile(const wxString& file)
 292 {
 293     wxString theFile(file);
 294     if (theFile == "")
 295         theFile = m_fileName;
 296     if (theFile == "")
 297         return FALSE;
 298     m_fileName = theFile;
 299
 300     ofstream output((char*) (const char*) theFile);
 301     if (output.bad())
 302             return FALSE;
 303
 304     // TODO get and save text
 305
 306     return FALSE;
 307 }
 308
 309 void wxTextCtrl::WriteText(const wxString& text)
 310 {
 311     TEHandle teH ;
 312     long size ;
 313
 314         memcpy( wxBuffer, text , text.Length() ) ;
 315         wxBuffer[text.Length() ] = 0 ;
 316 //    wxMacConvertNewlines( wxBuffer , wxBuffer ) ;
 317
 318     UMAGetControlData( m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*) &teH , &size ) ;
 319
 320                 TEInsert( wxBuffer , strlen( wxBuffer) , teH ) ;
 321                 Refresh() ;
 322 }
 323
 324 void wxTextCtrl::AppendText(const wxString& text)
 325 {
 326     SetInsertionPointEnd();
 327     WriteText(text);
 328 }
 329
 330 void wxTextCtrl::Clear()
 331 {
 332     TEHandle teH ;
 333     long size ;
 334         ControlEditTextSelectionRec selection ;
 335
 336         selection.selStart = 0 ;
 337         selection.selEnd = 32767 ;
 338
 339     UMASetControlData( m_macControl , 0, kControlEditTextSelectionTag , sizeof( selection ) , (char*) &selection ) ;
 340
 341     UMAGetControlData( m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*) &teH , &size ) ;
 342                 TECut( teH ) ;
 343 //      MacInvalidateControl() ;
 344 }
 345
 346 bool wxTextCtrl::IsModified() const
 347 {
 348     return TRUE;
 349 }
 350
 351 // Makes 'unmodified'
 352 void wxTextCtrl::DiscardEdits()
 353 {
 354     // TODO
 355 }
 356
 357 int wxTextCtrl::GetNumberOfLines() const
 358 {
 359     // TODO
 360     return 0;
 361 }
 362
 363 long wxTextCtrl::XYToPosition(long x, long y) const
 364 {
 365     // TODO
 366     return 0;
 367 }
 368
 369 void wxTextCtrl::PositionToXY(long pos, long *x, long *y) const
 370 {
 371     // TODO
 372 }
 373
 374 void wxTextCtrl::ShowPosition(long pos)
 375 {
 376     // TODO
 377 }
 378
 379 int wxTextCtrl::GetLineLength(long lineNo) const
 380 {
 381     return GetValue().Length();
 382 }
 383
 384 wxString wxTextCtrl::GetLineText(long lineNo) const
 385 {
 386     return GetValue();
 387 }
 388
 389 /*
 390  * Text item
 391  */
 392
 393 void wxTextCtrl::Command(wxCommandEvent & event)
 394 {
 395     SetValue (event.GetString());
 396     ProcessCommand (event);
 397 }
 398
 399 void wxTextCtrl::OnDropFiles(wxDropFilesEvent& event)
 400 {
 401     // By default, load the first file into the text window.
 402     if (event.GetNumberOfFiles() > 0)
 403     {
 404         LoadFile(event.GetFiles()[0]);
 405     }
 406 }
 407
 408 void wxTextCtrl::OnChar(wxKeyEvent& event)
 409 {
 410     switch( event.KeyCode() )
 411     {
 412         case WXK_RETURN:
 413         {
 414             if ( !(m_windowStyle & wxTE_MULTILINE) )
 415             {
 416                 wxCommandEvent event(wxEVT_COMMAND_TEXT_ENTER, m_windowId);
 417                 event.SetEventObject( this );
 418                 if ( GetEventHandler()->ProcessEvent(event) )
 419                     return;
 420             }
 421             //else: multiline controls need Enter for themselves
 422
 423             break;
 424         }
 425         case WXK_TAB:
 426             // always produce navigation event - even if we process TAB
 427             // ourselves the fact that we got here means that the user code
 428             // decided to skip processing of this TAB - probably to let it
 429             // do its default job.
 430             //
 431             // NB: Notice that Ctrl-Tab is handled elsewhere and Alt-Tab is
 432             //     handled by Windows
 433             {
 434                 wxNavigationKeyEvent eventNav;
 435                 eventNav.SetDirection(!event.ShiftDown());
 436                 eventNav.SetWindowChange(FALSE);
 437                 eventNav.SetEventObject(this);
 438
 439                 if ( GetEventHandler()->ProcessEvent(eventNav) )
 440                     return;
 441             }
 442             break;
 443
 444         default:
 445             event.Skip();
 446             return;
 447     }
 448
 449     // don't just call event.Skip() because this will cause TABs and ENTERs
 450     // be passed upwards and we don't always want this - instead process it
 451     // right here
 452
 453     // FIXME
 454     event.Skip();
 455 }
 456 // The streambuf code was partly taken from chapter 3 by Jerry Schwarz of
 457 // AT&T's "C++ Lanuage System Release 3.0 Library Manual" - Stein Somers
 458
 459 //=========================================================================
 460 // Called then the buffer is full (gcc 2.6.3)
 461 // or when "endl" is output (Borland 4.5)
 462 //=========================================================================
 463 // Class declaration using multiple inheritance doesn't work properly for
 464 // Borland. See note in wb_text.h.
 465 #ifndef NO_TEXT_WINDOW_STREAM
 466 int wxTextCtrl::overflow(int c)
 467 {
 468   // Make sure there is a holding area
 469   if ( allocate()==EOF )
 470   {
 471     wxError("Streambuf allocation failed","Internal error");
 472     return EOF;
 473   }
 474
 475   // Verify that there are no characters in get area
 476   if ( gptr() && gptr() < egptr() )
 477   {
 478      wxError("Who's trespassing my get area?","Internal error");
 479      return EOF;
 480   }
 481
 482   // Reset get area
 483   setg(0,0,0);
 484
 485   // Make sure there is a put area
 486   if ( ! pptr() )
 487   {
 488 /* This doesn't seem to be fatal so comment out error message */
 489 //    wxError("Put area not opened","Internal error");
 490     setp( base(), base() );
 491   }
 492
 493   // Determine how many characters have been inserted but no consumed
 494   int plen = pptr() - pbase();
 495
 496   // Now Jerry relies on the fact that the buffer is at least 2 chars
 497   // long, but the holding area "may be as small as 1" ???
 498   // And we need an additional \0, so let's keep this inefficient but
 499   // safe copy.
 500
 501   // If c!=EOF, it is a character that must also be comsumed
 502   int xtra = c==EOF? 0 : 1;
 503
 504   // Write temporary C-string to wxTextWindow
 505   {
 506   char *txt = new char[plen+xtra+1];
 507   memcpy(txt, pbase(), plen);
 508   txt[plen] = (char)c;     // append c
 509   txt[plen+xtra] = '\0';   // append '\0' or overwrite c
 510     // If the put area already contained \0, output will be truncated there
 511   AppendText(txt);
 512     delete[] txt;
 513   }
 514
 515   // Reset put area
 516   setp(pbase(), epptr());
 517
 518 #if defined(__WATCOMC__)
 519   return __NOT_EOF;
 520 #elif defined(zapeof)     // HP-UX (all cfront based?)
 521   return zapeof(c);
 522 #else
 523   return c!=EOF ? c : 0;  // this should make everybody happy
 524 #endif
 525 }
 526
 527 //=========================================================================
 528 // called then "endl" is output (gcc) or then explicit sync is done (Borland)
 529 //=========================================================================
 530 int wxTextCtrl::sync()
 531 {
 532   // Verify that there are no characters in get area
 533   if ( gptr() && gptr() < egptr() )
 534   {
 535      wxError("Who's trespassing my get area?","Internal error");
 536      return EOF;
 537   }
 538
 539   if ( pptr() && pptr() > pbase() ) return overflow(EOF);
 540
 541   return 0;
 542 /* OLD CODE
 543   int len = pptr() - pbase();
 544   char *txt = new char[len+1];
 545   strncpy(txt, pbase(), len);
 546   txt[len] = '\0';
 547   (*this) << txt;
 548   setp(pbase(), epptr());
 549   delete[] txt;
 550   return 0;
 551 */
 552 }
 553
 554 //=========================================================================
 555 // Should not be called by a "ostream". Used by a "istream"
 556 //=========================================================================
 557 int wxTextCtrl::underflow()
 558 {
 559   return EOF;
 560 }
 561 #endif
 562
 563 wxTextCtrl& wxTextCtrl::operator<<(const wxString& s)
 564 {
 565     AppendText(s);
 566     return *this;
 567 }
 568
 569 wxTextCtrl& wxTextCtrl::operator<<(float f)
 570 {
 571     wxString str;
 572     str.Printf("%.2f", f);
 573     AppendText(str);
 574     return *this;
 575 }
 576
 577 wxTextCtrl& wxTextCtrl::operator<<(double d)
 578 {
 579     wxString str;
 580     str.Printf("%.2f", d);
 581     AppendText(str);
 582     return *this;
 583 }
 584
 585 wxTextCtrl& wxTextCtrl::operator<<(int i)
 586 {
 587     wxString str;
 588     str.Printf("%d", i);
 589     AppendText(str);
 590     return *this;
 591 }
 592
 593 wxTextCtrl& wxTextCtrl::operator<<(long i)
 594 {
 595     wxString str;
 596     str.Printf("%ld", i);
 597     AppendText(str);
 598     return *this;
 599 }
 600
 601 wxTextCtrl& wxTextCtrl::operator<<(const char c)
 602 {
 603     char buf[2];
 604
 605     buf[0] = c;
 606     buf[1] = 0;
 607     AppendText(buf);
 608     return *this;
 609 }
 610