+
+// ----------------------------------------------------------------------------
+// MLTE control implementation (common part)
+// ----------------------------------------------------------------------------
+
+// if MTLE is read only, no changes at all are allowed, not even from
+// procedural API, in order to allow changes via API all the same we must undo
+// the readonly status while we are executing, this class helps to do so
+
+class wxMacEditHelper
+{
+public :
+ wxMacEditHelper( TXNObject txn )
+ {
+ TXNControlTag tag[] = { kTXNIOPrivilegesTag } ;
+ m_txn = txn ;
+ TXNGetTXNObjectControls( m_txn , 1 , tag , m_data ) ;
+ if ( m_data[0].uValue == kTXNReadOnly )
+ {
+ TXNControlData data[] = { { kTXNReadWrite } } ;
+ TXNSetTXNObjectControls( m_txn , false , 1 , tag , data ) ;
+ }
+ }
+
+ ~wxMacEditHelper()
+ {
+ TXNControlTag tag[] = { kTXNIOPrivilegesTag } ;
+ if ( m_data[0].uValue == kTXNReadOnly )
+ TXNSetTXNObjectControls( m_txn , false , 1 , tag , m_data ) ;
+ }
+
+protected :
+ TXNObject m_txn ;
+ TXNControlData m_data[1] ;
+} ;
+
+wxMacMLTEControl::wxMacMLTEControl( wxTextCtrl *peer ) : wxMacTextControl( peer )
+{
+ SetNeedsFocusRect( true ) ;
+}
+
+wxString wxMacMLTEControl::GetStringValue() const
+{
+ wxString result ;
+ OSStatus err ;
+ Size actualSize = 0;
+
+ {
+#if wxUSE_UNICODE
+ Handle theText ;
+ err = TXNGetDataEncoded( m_txn, kTXNStartOffset, kTXNEndOffset, &theText, kTXNUnicodeTextData );
+
+ // all done
+ if ( err != noErr )
+ {
+ actualSize = 0 ;
+ }
+ else
+ {
+ actualSize = GetHandleSize( theText ) / sizeof(UniChar) ;
+ if ( actualSize > 0 )
+ {
+ wxChar *ptr = NULL ;
+
+#if SIZEOF_WCHAR_T == 2
+ ptr = new wxChar[actualSize + 1] ;
+ wxStrncpy( ptr , (wxChar*)(*theText) , actualSize ) ;
+#else
+ SetHandleSize( theText, (actualSize + 1) * sizeof(UniChar) ) ;
+ HLock( theText ) ;
+ (((UniChar*)*theText)[actualSize]) = 0 ;
+ wxMBConvUTF16 converter ;
+ size_t noChars = converter.MB2WC( NULL , (const char*)*theText , 0 ) ;
+ ptr = new wxChar[noChars + 1] ;
+
+ noChars = converter.MB2WC( ptr , (const char*)*theText , noChars ) ;
+ ptr[noChars] = 0 ;
+ HUnlock( theText ) ;
+#endif
+
+ ptr[actualSize] = 0 ;
+ result = wxString( ptr ) ;
+ delete [] ptr ;
+ }
+
+ DisposeHandle( theText ) ;
+ }
+#else
+ Handle theText ;
+ err = TXNGetDataEncoded( m_txn , kTXNStartOffset, kTXNEndOffset, &theText, kTXNTextData );
+
+ // all done
+ if ( err != noErr )
+ {
+ actualSize = 0 ;
+ }
+ else
+ {
+ actualSize = GetHandleSize( theText ) ;
+ if ( actualSize > 0 )
+ {
+ HLock( theText ) ;
+ result = wxString( *theText , wxConvLocal , actualSize ) ;
+ HUnlock( theText ) ;
+ }
+
+ DisposeHandle( theText ) ;
+ }
+#endif
+ }
+
+#if '\n' == 10
+ wxMacConvertNewlines13To10( &result ) ;
+#else
+ wxMacConvertNewlines10To13( &result ) ;
+#endif
+
+ return result ;
+}
+
+void wxMacMLTEControl::SetStringValue( const wxString &str )
+{
+ wxString st = str;
+ wxMacConvertNewlines10To13( &st );
+
+ {
+ wxMacWindowClipper c( m_peer );
+
+ {
+ wxMacEditHelper help( m_txn );
+ SetTXNData( st, kTXNStartOffset, kTXNEndOffset );
+ }
+
+ TXNSetSelection( m_txn, 0, 0 );
+ TXNShowSelection( m_txn, kTXNShowStart );
+ }
+}
+
+TXNFrameOptions wxMacMLTEControl::FrameOptionsFromWXStyle( long wxStyle )
+{
+ TXNFrameOptions frameOptions = kTXNDontDrawCaretWhenInactiveMask;
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
+ frameOptions |= kTXNDoFontSubstitutionMask;
+#endif
+
+ if ( ! (wxStyle & wxTE_NOHIDESEL) )
+ frameOptions |= kTXNDontDrawSelectionWhenInactiveMask ;
+
+ if ( wxStyle & (wxHSCROLL | wxTE_DONTWRAP) )
+ frameOptions |= kTXNWantHScrollBarMask ;
+
+ if ( wxStyle & wxTE_MULTILINE )
+ {
+ frameOptions |= kTXNAlwaysWrapAtViewEdgeMask ;
+
+ if ( !(wxStyle & wxTE_NO_VSCROLL) )
+ {
+ frameOptions |= kTXNWantVScrollBarMask ;
+
+ // The following code causes drawing problems on 10.4. Perhaps it can be restored for
+ // older versions of the OS, but I'm not sure it's appropriate to put a grow icon here
+ // anyways, as AFAIK users can't actually use it to resize the text ctrl.
+// if ( frameOptions & kTXNWantHScrollBarMask )
+// frameOptions |= kTXNDrawGrowIconMask ;
+ }
+ }
+ else
+ {
+ frameOptions |= kTXNSingleLineOnlyMask ;
+ }
+
+ return frameOptions ;
+}
+
+void wxMacMLTEControl::AdjustCreationAttributes( const wxColour &background, bool visible )
+{
+ TXNControlTag iControlTags[] =
+ {
+ kTXNDoFontSubstitution,
+ kTXNWordWrapStateTag ,
+ };
+ TXNControlData iControlData[] =
+ {
+ { true },
+ { kTXNNoAutoWrap },
+ };
+
+ int toptag = WXSIZEOF( iControlTags ) ;
+
+ if ( m_windowStyle & wxTE_MULTILINE )
+ {
+ iControlData[1].uValue =
+ (m_windowStyle & wxTE_DONTWRAP)
+ ? kTXNNoAutoWrap
+ : kTXNAutoWrap;
+ }
+
+ verify_noerr( TXNSetTXNObjectControls( m_txn, false, toptag, iControlTags, iControlData ) ) ;
+
+ // setting the default font:
+ // under 10.2 this causes a visible caret, therefore we avoid it
+
+ if ( UMAGetSystemVersion() >= 0x1030 )
+ {
+ Str255 fontName ;
+ SInt16 fontSize ;
+ Style fontStyle ;
+
+ GetThemeFont(kThemeSystemFont , GetApplicationScript() , fontName , &fontSize , &fontStyle ) ;
+
+ TXNTypeAttributes typeAttr[] =
+ {
+ { kTXNQDFontNameAttribute , kTXNQDFontNameAttributeSize , { (void*) fontName } } ,
+ { kTXNQDFontSizeAttribute , kTXNFontSizeAttributeSize , { (void*) (fontSize << 16) } } ,
+ { kTXNQDFontStyleAttribute , kTXNQDFontStyleAttributeSize , { (void*) normal } } ,
+ } ;
+
+ verify_noerr(
+ TXNSetTypeAttributes(
+ m_txn, sizeof(typeAttr) / sizeof(TXNTypeAttributes),
+ typeAttr, kTXNStartOffset, kTXNEndOffset ) );
+ }
+
+ if ( m_windowStyle & wxTE_PASSWORD )
+ {
+ UniChar c = 0xA5 ;
+ verify_noerr (TXNEchoMode( m_txn , c , 0 , true ) );
+ }
+
+ TXNBackground tback;
+ tback.bgType = kTXNBackgroundTypeRGB;
+ tback.bg.color = MAC_WXCOLORREF( background.GetPixel() );
+ TXNSetBackground( m_txn , &tback );
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
+ if ( UMAGetSystemVersion() >= 0x1040 )
+ {
+ TXNCommandEventSupportOptions options ;
+ if ( TXNGetCommandEventSupport( m_txn, &options ) == noErr )
+ {
+ options |=
+ kTXNSupportEditCommandProcessing
+ | kTXNSupportEditCommandUpdating
+ | kTXNSupportSpellCheckCommandProcessing
+ | kTXNSupportSpellCheckCommandUpdating
+ | kTXNSupportFontCommandProcessing
+ | kTXNSupportFontCommandUpdating;
+
+ TXNSetCommandEventSupport( m_txn , options ) ;
+ }
+ }
+#endif
+}
+
+void wxMacMLTEControl::SetBackground( const wxBrush &brush )
+{
+ // currently only solid background are supported
+ TXNBackground tback;
+
+ tback.bgType = kTXNBackgroundTypeRGB;
+ tback.bg.color = MAC_WXCOLORREF( brush.GetColour().GetPixel() );
+ TXNSetBackground( m_txn , &tback );
+}
+
+void wxMacMLTEControl::TXNSetAttribute( const wxTextAttr& style , long from , long to )
+{
+ TXNTypeAttributes typeAttr[4] ;
+ Str255 fontName = "\pMonaco" ;
+ SInt16 fontSize = 12 ;
+ Style fontStyle = normal ;
+ RGBColor color ;
+ int attrCount = 0 ;
+
+ if ( style.HasFont() )
+ {
+ const wxFont &font = style.GetFont() ;
+ wxMacStringToPascal( font.GetFaceName() , fontName ) ;
+ fontSize = font.GetPointSize() ;
+ if ( font.GetUnderlined() )
+ fontStyle |= underline ;
+ if ( font.GetWeight() == wxBOLD )
+ fontStyle |= bold ;
+ if ( font.GetStyle() == wxITALIC )
+ fontStyle |= italic ;
+
+ typeAttr[attrCount].tag = kTXNQDFontNameAttribute ;
+ typeAttr[attrCount].size = kTXNQDFontNameAttributeSize ;
+ typeAttr[attrCount].data.dataPtr = (void*)fontName ;
+ attrCount++ ;
+
+ typeAttr[attrCount].tag = kTXNQDFontSizeAttribute ;
+ typeAttr[attrCount].size = kTXNFontSizeAttributeSize ;
+ typeAttr[attrCount].data.dataValue = (fontSize << 16) ;
+ attrCount++ ;
+
+ typeAttr[attrCount].tag = kTXNQDFontStyleAttribute ;
+ typeAttr[attrCount].size = kTXNQDFontStyleAttributeSize ;
+ typeAttr[attrCount].data.dataValue = fontStyle ;
+ attrCount++ ;
+ }
+
+ if ( style.HasTextColour() )
+ {
+ color = MAC_WXCOLORREF(style.GetTextColour().GetPixel()) ;
+
+ typeAttr[attrCount].tag = kTXNQDFontColorAttribute ;
+ typeAttr[attrCount].size = kTXNQDFontColorAttributeSize ;
+ typeAttr[attrCount].data.dataPtr = (void*) &color ;
+ attrCount++ ;
+ }
+
+ if ( attrCount > 0 )
+ {
+ verify_noerr( TXNSetTypeAttributes( m_txn , attrCount , typeAttr, from , to ) );
+ }
+}
+
+void wxMacMLTEControl::SetFont( const wxFont & font , const wxColour& foreground , long windowStyle )
+{
+ wxMacEditHelper help( m_txn ) ;
+ TXNSetAttribute( wxTextAttr( foreground, wxNullColour, font ), kTXNStartOffset, kTXNEndOffset ) ;
+}
+
+void wxMacMLTEControl::SetStyle( long start, long end, const wxTextAttr& style )
+{
+ wxMacEditHelper help( m_txn ) ;
+ TXNSetAttribute( style, start, end ) ;
+}
+
+void wxMacMLTEControl::Copy()
+{
+ ClearCurrentScrap();
+ TXNCopy( m_txn );
+ TXNConvertToPublicScrap();
+}
+
+void wxMacMLTEControl::Cut()
+{
+ ClearCurrentScrap();
+ TXNCut( m_txn );
+ TXNConvertToPublicScrap();
+}
+
+void wxMacMLTEControl::Paste()
+{
+ TXNConvertFromPublicScrap();
+ TXNPaste( m_txn );
+}
+
+bool wxMacMLTEControl::CanPaste() const
+{
+ return TXNIsScrapPastable() ;
+}
+
+void wxMacMLTEControl::SetEditable(bool editable)
+{
+ TXNControlTag tag[] = { kTXNIOPrivilegesTag } ;
+ TXNControlData data[] = { { editable ? kTXNReadWrite : kTXNReadOnly } } ;
+ TXNSetTXNObjectControls( m_txn, false, WXSIZEOF(tag), tag, data ) ;
+}
+
+wxTextPos wxMacMLTEControl::GetLastPosition() const
+{
+ wxTextPos actualsize = 0 ;
+
+ Handle theText ;
+ OSErr err = TXNGetDataEncoded( m_txn, kTXNStartOffset, kTXNEndOffset, &theText, kTXNTextData );
+
+ // all done
+ if ( err == noErr )
+ {
+ actualsize = GetHandleSize( theText ) ;
+ DisposeHandle( theText ) ;
+ }
+ else
+ {
+ actualsize = 0 ;
+ }
+
+ return actualsize ;
+}
+
+void wxMacMLTEControl::Replace( long from , long to , const wxString &str )
+{
+ wxString value = str ;
+ wxMacConvertNewlines10To13( &value ) ;
+
+ wxMacEditHelper help( m_txn ) ;
+ wxMacWindowClipper c( m_peer ) ;
+
+ TXNSetSelection( m_txn, from, to ) ;
+ TXNClear( m_txn ) ;
+ SetTXNData( value, kTXNUseCurrentSelection, kTXNUseCurrentSelection ) ;
+}
+
+void wxMacMLTEControl::Remove( long from , long to )
+{
+ wxMacWindowClipper c( m_peer ) ;
+ wxMacEditHelper help( m_txn ) ;
+ TXNSetSelection( m_txn , from , to ) ;
+ TXNClear( m_txn ) ;
+}
+
+void wxMacMLTEControl::GetSelection( long* from, long* to) const
+{
+ TXNGetSelection( m_txn , (TXNOffset*) from , (TXNOffset*) to ) ;
+}
+
+void wxMacMLTEControl::SetSelection( long from , long to )
+{
+ wxMacWindowClipper c( m_peer ) ;
+
+ // change the selection
+ if ((from == -1) && (to == -1))
+ TXNSelectAll( m_txn );
+ else
+ TXNSetSelection( m_txn, from, to );
+
+ TXNShowSelection( m_txn, kTXNShowStart );
+}
+
+void wxMacMLTEControl::WriteText( const wxString& str )
+{
+ wxString st = str ;
+ wxMacConvertNewlines10To13( &st ) ;
+
+ long start , end , dummy ;
+
+ GetSelection( &start , &dummy ) ;
+ wxMacWindowClipper c( m_peer ) ;
+
+ {
+ wxMacEditHelper helper( m_txn ) ;
+ SetTXNData( st, kTXNUseCurrentSelection, kTXNUseCurrentSelection ) ;
+ }
+
+ GetSelection( &dummy, &end ) ;
+
+ // TODO: SetStyle( start , end , GetDefaultStyle() ) ;
+}
+
+void wxMacMLTEControl::Clear()
+{
+ wxMacWindowClipper c( m_peer ) ;
+ wxMacEditHelper st( m_txn ) ;
+ TXNSetSelection( m_txn , kTXNStartOffset , kTXNEndOffset ) ;
+ TXNClear( m_txn ) ;
+}
+
+bool wxMacMLTEControl::CanUndo() const
+{
+ return TXNCanUndo( m_txn , NULL ) ;
+}
+
+void wxMacMLTEControl::Undo()
+{
+ TXNUndo( m_txn ) ;
+}
+
+bool wxMacMLTEControl::CanRedo() const
+{
+ return TXNCanRedo( m_txn , NULL ) ;
+}
+
+void wxMacMLTEControl::Redo()
+{
+ TXNRedo( m_txn ) ;
+}
+
+int wxMacMLTEControl::GetNumberOfLines() const
+{
+ ItemCount lines = 0 ;
+ TXNGetLineCount( m_txn, &lines ) ;
+
+ return lines ;
+}
+
+long wxMacMLTEControl::XYToPosition(long x, long y) const
+{
+ Point curpt ;
+ wxTextPos lastpos ;
+
+ // TODO: find a better implementation : while we can get the
+ // line metrics of a certain line, we don't get its starting
+ // position, so it would probably be rather a binary search
+ // for the start position
+ long xpos = 0, ypos = 0 ;
+ int lastHeight = 0 ;
+ ItemCount n ;
+
+ lastpos = GetLastPosition() ;
+ for ( n = 0 ; n <= (ItemCount) lastpos ; ++n )
+ {
+ if ( y == ypos && x == xpos )
+ return n ;
+
+ TXNOffsetToPoint( m_txn , n , &curpt );
+
+ if ( curpt.v > lastHeight )
+ {
+ xpos = 0 ;
+ if ( n > 0 )
+ ++ypos ;
+
+ lastHeight = curpt.v ;
+ }
+ else
+ ++xpos ;
+ }
+
+ return 0 ;
+}
+
+bool wxMacMLTEControl::PositionToXY( long pos, long *x, long *y ) const
+{
+ Point curpt ;
+ wxTextPos lastpos ;
+
+ if ( y )
+ *y = 0 ;
+ if ( x )
+ *x = 0 ;
+
+ lastpos = GetLastPosition() ;
+ if ( pos <= lastpos )
+ {
+ // TODO: find a better implementation - while we can get the
+ // line metrics of a certain line, we don't get its starting
+ // position, so it would probably be rather a binary search
+ // for the start position
+ long xpos = 0, ypos = 0 ;
+ int lastHeight = 0 ;
+ ItemCount n ;
+
+ for ( n = 0 ; n <= (ItemCount) pos ; ++n )
+ {
+ TXNOffsetToPoint(m_txn , n , &curpt);
+
+ if ( curpt.v > lastHeight )
+ {
+ xpos = 0 ;
+ if ( n > 0 )
+ ++ypos ;
+
+ lastHeight = curpt.v ;
+ }
+ else
+ ++xpos ;
+ }
+
+ if ( y )
+ *y = ypos ;
+ if ( x )
+ *x = xpos ;
+ }
+
+ return false ;
+}
+
+void wxMacMLTEControl::ShowPosition( long pos )
+{
+#if TARGET_RT_MAC_MACHO && defined(AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER)
+ {
+ Point current, desired ;
+ TXNOffset selstart, selend;
+
+ TXNGetSelection( m_txn, &selstart, &selend );
+ TXNOffsetToPoint( m_txn, selstart, ¤t );
+ TXNOffsetToPoint( m_txn, pos, &desired );
+
+ // TODO: use HIPoints for 10.3 and above
+ if ( (UInt32)TXNScroll != (UInt32)kUnresolvedCFragSymbolAddress )
+ {
+ OSErr theErr = noErr;
+ SInt32 dv = desired.v - current.v;
+ SInt32 dh = desired.h - current.h;
+ TXNShowSelection( m_txn, kTXNShowEnd ); // NB: should this be kTXNShowStart or kTXNShowEnd ??
+ theErr = TXNScroll( m_txn, kTXNScrollUnitsInPixels, kTXNScrollUnitsInPixels, &dv, &dh );
+
+ // there will be an error returned for classic MLTE implementation when the control is
+ // invisible, but HITextView works correctly, so we don't assert that one
+ // wxASSERT_MSG( theErr == noErr, _T("TXNScroll returned an error!") );
+ }
+ }
+#endif
+}
+
+void wxMacMLTEControl::SetTXNData( const wxString& st, TXNOffset start, TXNOffset end )
+{
+#if wxUSE_UNICODE
+#if SIZEOF_WCHAR_T == 2
+ size_t len = st.Len() ;
+ TXNSetData( m_txn, kTXNUnicodeTextData, (void*)st.wc_str(), len * 2, start, end );
+#else
+ wxMBConvUTF16 converter ;
+ ByteCount byteBufferLen = converter.WC2MB( NULL, st.wc_str(), 0 ) ;
+ UniChar *unibuf = (UniChar*)malloc( byteBufferLen ) ;
+ converter.WC2MB( (char*)unibuf, st.wc_str(), byteBufferLen ) ;
+ TXNSetData( m_txn, kTXNUnicodeTextData, (void*)unibuf, byteBufferLen, start, end ) ;
+ free( unibuf ) ;
+#endif
+#else
+ wxCharBuffer text = st.mb_str( wxConvLocal ) ;
+ TXNSetData( m_txn, kTXNTextData, (void*)text.data(), strlen( text ), start, end ) ;
+#endif
+}
+
+wxString wxMacMLTEControl::GetLineText(long lineNo) const
+{
+ wxString line ;
+
+ if ( lineNo < GetNumberOfLines() )
+ {
+ Point firstPoint;
+ Fixed lineWidth, lineHeight, currentHeight;
+ long ypos ;
+
+ // get the first possible position in the control
+ TXNOffsetToPoint(m_txn, 0, &firstPoint);
+
+ // Iterate through the lines until we reach the one we want,
+ // adding to our current y pixel point position
+ ypos = 0 ;
+ currentHeight = 0;
+ while (ypos < lineNo)
+ {
+ TXNGetLineMetrics(m_txn, ypos++, &lineWidth, &lineHeight);
+ currentHeight += lineHeight;
+ }
+
+ Point thePoint = { firstPoint.v + (currentHeight >> 16), firstPoint.h + (0) };
+ TXNOffset theOffset;
+ TXNPointToOffset(m_txn, thePoint, &theOffset);
+
+ wxString content = GetStringValue() ;
+ Point currentPoint = thePoint;
+ while (thePoint.v == currentPoint.v && theOffset < content.length())
+ {
+ line += content[theOffset];
+ TXNOffsetToPoint(m_txn, ++theOffset, ¤tPoint);
+ }
+ }
+
+ return line ;
+}
+
+int wxMacMLTEControl::GetLineLength(long lineNo) const
+{
+ int theLength = 0;
+
+ if ( lineNo < GetNumberOfLines() )
+ {
+ Point firstPoint;
+ Fixed lineWidth, lineHeight, currentHeight;
+ long ypos ;
+
+ // get the first possible position in the control
+ TXNOffsetToPoint(m_txn, 0, &firstPoint);
+
+ // Iterate through the lines until we reach the one we want,
+ // adding to our current y pixel point position
+ ypos = 0;
+ currentHeight = 0;
+ while (ypos < lineNo)
+ {
+ TXNGetLineMetrics(m_txn, ypos++, &lineWidth, &lineHeight);
+ currentHeight += lineHeight;
+ }
+
+ Point thePoint = { firstPoint.v + (currentHeight >> 16), firstPoint.h + (0) };
+ TXNOffset theOffset;
+ TXNPointToOffset(m_txn, thePoint, &theOffset);
+
+ wxString content = GetStringValue() ;
+ Point currentPoint = thePoint;
+ while (thePoint.v == currentPoint.v && theOffset < content.length())
+ {
+ ++theLength;
+ TXNOffsetToPoint(m_txn, ++theOffset, ¤tPoint);
+ }
+ }
+
+ return theLength ;
+}
+
+// ----------------------------------------------------------------------------
+// MLTE control implementation (classic part)
+// ----------------------------------------------------------------------------
+
+// OS X Notes : We still don't have a full replacement for MLTE, so this implementation
+// has to live on. We have different problems coming from outdated implementations on the
+// various OS X versions. Most deal with the scrollbars: they are not correctly embedded
+// while this can be solved on 10.3 by reassigning them the correct place, on 10.2 there is
+// no way out, therefore we are using our own implementation and our own scrollbars ....
+
+#ifdef __WXMAC_OSX__
+
+TXNScrollInfoUPP gTXNScrollInfoProc = NULL ;
+ControlActionUPP gTXNScrollActionProc = NULL ;
+
+pascal void wxMacMLTEClassicControl::TXNScrollInfoProc(
+ SInt32 iValue, SInt32 iMaximumValue,
+ TXNScrollBarOrientation iScrollBarOrientation, SInt32 iRefCon )
+{
+ wxMacMLTEClassicControl* mlte = (wxMacMLTEClassicControl*) iRefCon ;
+ SInt32 value = wxMax( iValue , 0 ) ;
+ SInt32 maximum = wxMax( iMaximumValue , 0 ) ;
+
+ if ( iScrollBarOrientation == kTXNHorizontal )
+ {
+ if ( mlte->m_sbHorizontal )
+ {
+ SetControl32BitValue( mlte->m_sbHorizontal , value ) ;
+ SetControl32BitMaximum( mlte->m_sbHorizontal , maximum ) ;
+ mlte->m_lastHorizontalValue = value ;
+ }
+ }
+ else if ( iScrollBarOrientation == kTXNVertical )
+ {
+ if ( mlte->m_sbVertical )
+ {
+ SetControl32BitValue( mlte->m_sbVertical , value ) ;
+ SetControl32BitMaximum( mlte->m_sbVertical , maximum ) ;
+ mlte->m_lastVerticalValue = value ;
+ }
+ }
+}
+
+pascal void wxMacMLTEClassicControl::TXNScrollActionProc( ControlRef controlRef , ControlPartCode partCode )
+{
+ wxMacMLTEClassicControl* mlte = (wxMacMLTEClassicControl*) GetControlReference( controlRef ) ;
+ if ( mlte == NULL )
+ return ;
+
+ if ( controlRef != mlte->m_sbVertical && controlRef != mlte->m_sbHorizontal )
+ return ;
+
+ OSStatus err ;
+ bool isHorizontal = ( controlRef == mlte->m_sbHorizontal ) ;
+
+ SInt32 minimum = 0 ;
+ SInt32 maximum = GetControl32BitMaximum( controlRef ) ;
+ SInt32 value = GetControl32BitValue( controlRef ) ;
+ SInt32 delta = 0;
+
+ switch ( partCode )
+ {
+
+ case kControlDownButtonPart :
+ delta = 10 ;
+ break ;
+
+ case kControlUpButtonPart :
+ delta = -10 ;
+ break ;
+
+ case kControlPageDownPart :
+ delta = GetControlViewSize( controlRef ) ;
+ break ;
+
+ case kControlPageUpPart :
+ delta = -GetControlViewSize( controlRef ) ;
+ break ;
+
+ case kControlIndicatorPart :
+ delta = value - (isHorizontal ? mlte->m_lastHorizontalValue : mlte->m_lastVerticalValue) ;
+ break ;
+
+ default :
+ break ;
+ }
+
+ if ( delta != 0 )
+ {
+ SInt32 newValue = value ;
+
+ if ( partCode != kControlIndicatorPart )
+ {
+ if ( value + delta < minimum )
+ delta = minimum - value ;
+ if ( value + delta > maximum )
+ delta = maximum - value ;
+
+ SetControl32BitValue( controlRef , value + delta ) ;
+ newValue = value + delta ;
+ }
+
+ SInt32 verticalDelta = isHorizontal ? 0 : delta ;
+ SInt32 horizontalDelta = isHorizontal ? delta : 0 ;
+
+ err = TXNScroll(
+ mlte->m_txn, kTXNScrollUnitsInPixels, kTXNScrollUnitsInPixels,
+ &verticalDelta, &horizontalDelta );
+
+ if ( isHorizontal )
+ mlte->m_lastHorizontalValue = newValue ;
+ else
+ mlte->m_lastVerticalValue = newValue ;
+ }
+}
+#endif
+
+// make correct activations
+void wxMacMLTEClassicControl::MacActivatePaneText(bool setActive)
+{
+ wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(m_controlRef);
+
+ wxMacWindowClipper clipper( textctrl ) ;
+ TXNActivate( m_txn, m_txnFrameID, setActive );
+
+ ControlRef controlFocus = 0 ;
+ GetKeyboardFocus( m_txnWindow , &controlFocus ) ;
+ if ( controlFocus == m_controlRef )
+ TXNFocus( m_txn, setActive );
+}
+
+void wxMacMLTEClassicControl::MacFocusPaneText(bool setFocus)
+{
+ TXNFocus( m_txn, setFocus );
+}
+
+// guards against inappropriate redraw (hidden objects drawing onto window)
+
+void wxMacMLTEClassicControl::MacSetObjectVisibility(bool vis)
+{
+ ControlRef controlFocus = 0 ;
+ GetKeyboardFocus( m_txnWindow , &controlFocus ) ;
+
+ if ( !vis && (controlFocus == m_controlRef ) )
+ SetKeyboardFocus( m_txnWindow , m_controlRef , kControlFocusNoPart ) ;
+
+ TXNControlTag iControlTags[1] = { kTXNVisibilityTag };
+ TXNControlData iControlData[1] = { { (UInt32)false } };
+
+ verify_noerr( TXNGetTXNObjectControls( m_txn , 1, iControlTags, iControlData ) ) ;
+
+ if ( iControlData[0].uValue != vis )
+ {
+ iControlData[0].uValue = vis ;
+ verify_noerr( TXNSetTXNObjectControls( m_txn, false , 1, iControlTags, iControlData ) ) ;
+ }
+
+ // currently, we always clip as partial visibility (overlapped) visibility is also a problem,
+ // if we run into further problems we might set the FrameBounds to an empty rect here
+}
+
+// make sure that the TXNObject is at the right position
+
+void wxMacMLTEClassicControl::MacUpdatePosition()
+{
+ wxTextCtrl* textctrl = (wxTextCtrl*)GetControlReference( m_controlRef );
+ if ( textctrl == NULL )
+ return ;
+
+ Rect bounds ;
+ UMAGetControlBoundsInWindowCoords( m_controlRef, &bounds );
+
+ wxRect visRect = textctrl->MacGetClippedClientRect() ;
+ Rect visBounds = { visRect.y , visRect.x , visRect.y + visRect.height , visRect.x + visRect.width } ;
+ int x , y ;
+ x = y = 0 ;
+ textctrl->MacWindowToRootWindow( &x , &y ) ;
+ OffsetRect( &visBounds , x , y ) ;
+
+ if ( !EqualRect( &bounds, &m_txnControlBounds ) || !EqualRect( &visBounds, &m_txnVisBounds ) )
+ {
+ m_txnControlBounds = bounds ;
+ m_txnVisBounds = visBounds ;
+ wxMacWindowClipper cl( textctrl ) ;
+
+#ifdef __WXMAC_OSX__
+ bool isCompositing = textctrl->MacGetTopLevelWindow()->MacUsesCompositing() ;
+ if ( m_sbHorizontal || m_sbVertical )
+ {
+ int w = bounds.right - bounds.left ;
+ int h = bounds.bottom - bounds.top ;
+
+ if ( m_sbHorizontal )
+ {
+ Rect sbBounds ;
+
+ sbBounds.left = -1 ;
+ sbBounds.top = h - 14 ;
+ sbBounds.right = w + 1 ;
+ sbBounds.bottom = h + 1 ;
+
+ if ( !isCompositing )
+ OffsetRect( &sbBounds , m_txnControlBounds.left , m_txnControlBounds.top ) ;
+
+ SetControlBounds( m_sbHorizontal , &sbBounds ) ;
+ SetControlViewSize( m_sbHorizontal , w ) ;
+ }
+
+ if ( m_sbVertical )
+ {
+ Rect sbBounds ;
+
+ sbBounds.left = w - 14 ;
+ sbBounds.top = -1 ;
+ sbBounds.right = w + 1 ;
+ sbBounds.bottom = m_sbHorizontal ? h - 14 : h + 1 ;
+
+ if ( !isCompositing )
+ OffsetRect( &sbBounds , m_txnControlBounds.left , m_txnControlBounds.top ) ;
+
+ SetControlBounds( m_sbVertical , &sbBounds ) ;
+ SetControlViewSize( m_sbVertical , h ) ;
+ }
+ }
+
+ Rect oldviewRect ;
+ TXNLongRect olddestRect ;
+ TXNGetRectBounds( m_txn , &oldviewRect , &olddestRect , NULL ) ;
+
+ Rect viewRect = { m_txnControlBounds.top, m_txnControlBounds.left,
+ m_txnControlBounds.bottom - ( m_sbHorizontal ? 14 : 0 ) ,
+ m_txnControlBounds.right - ( m_sbVertical ? 14 : 0 ) } ;
+ TXNLongRect destRect = { m_txnControlBounds.top, m_txnControlBounds.left,
+ m_txnControlBounds.bottom - ( m_sbHorizontal ? 14 : 0 ) ,
+ m_txnControlBounds.right - ( m_sbVertical ? 14 : 0 ) } ;
+
+ if ( olddestRect.right >= 10000 )
+ destRect.right = destRect.left + 32000 ;
+
+ if ( olddestRect.bottom >= 0x20000000 )
+ destRect.bottom = destRect.top + 0x40000000 ;
+
+ SectRect( &viewRect , &visBounds , &viewRect ) ;
+ TXNSetRectBounds( m_txn , &viewRect , &destRect , true ) ;
+
+#if 0
+ TXNSetFrameBounds(
+ m_txn,
+ m_txnControlBounds.top,
+ m_txnControlBounds.left,
+ m_txnControlBounds.bottom - (m_sbHorizontal ? 14 : 0),
+ m_txnControlBounds.right - (m_sbVertical ? 14 : 0),
+ m_txnFrameID );
+#endif
+#else
+
+ TXNSetFrameBounds(
+ m_txn, m_txnControlBounds.top, m_txnControlBounds.left,
+ wxMax( m_txnControlBounds.bottom, m_txnControlBounds.top ),
+ wxMax( m_txnControlBounds.right, m_txnControlBounds.left ), m_txnFrameID );
+#endif
+
+ // the SetFrameBounds method under Classic sometimes does not correctly scroll a selection into sight after a
+ // movement, therefore we have to force it
+
+ // this problem has been reported in OSX as well, so we use this here once again
+
+ TXNLongRect textRect ;
+ TXNGetRectBounds( m_txn , NULL , NULL , &textRect ) ;
+ if ( textRect.left < m_txnControlBounds.left )
+ TXNShowSelection( m_txn , kTXNShowStart ) ;
+ }
+}
+
+void wxMacMLTEClassicControl::SetRect( Rect *r )
+{
+ wxMacControl::SetRect( r ) ;
+ MacUpdatePosition() ;
+}
+
+void wxMacMLTEClassicControl::MacControlUserPaneDrawProc(wxInt16 thePart)
+{
+ wxTextCtrl* textctrl = (wxTextCtrl*)GetControlReference( m_controlRef );
+ if ( textctrl == NULL )
+ return ;
+
+ if ( textctrl->MacIsReallyShown() )
+ {
+ wxMacWindowClipper clipper( textctrl ) ;
+ TXNDraw( m_txn , NULL ) ;
+ }
+}
+
+wxInt16 wxMacMLTEClassicControl::MacControlUserPaneHitTestProc(wxInt16 x, wxInt16 y)
+{
+ Point where = { y , x } ;
+ ControlPartCode result = kControlNoPart;
+
+ wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference( m_controlRef );
+ if ( (textctrl != NULL) && textctrl->MacIsReallyShown() )
+ {
+ if (PtInRect( where, &m_txnControlBounds ))
+ {
+ result = kControlEditTextPart ;
+ }
+ else
+ {
+ // sometimes we get the coords also in control local coordinates, therefore test again
+ if ( textctrl->MacGetTopLevelWindow()->MacUsesCompositing() )
+ {
+ int x = 0 , y = 0 ;
+ textctrl->MacClientToRootWindow( &x , &y ) ;
+ where.h += x ;
+ where.v += y ;
+ }
+
+ if (PtInRect( where, &m_txnControlBounds ))
+ result = kControlEditTextPart ;
+ }
+ }
+
+ return result;
+}
+
+wxInt16 wxMacMLTEClassicControl::MacControlUserPaneTrackingProc( wxInt16 x, wxInt16 y, void* actionProc )
+{
+ ControlPartCode result = kControlNoPart;
+
+ wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference( m_controlRef );
+ if ( (textctrl != NULL) && textctrl->MacIsReallyShown() )
+ {
+ Point startPt = { y , x } ;
+ // for compositing, we must convert these into toplevel window coordinates, because hittesting expects them
+ if ( textctrl->MacGetTopLevelWindow()->MacUsesCompositing() )
+ {
+ int x = 0 , y = 0 ;
+ textctrl->MacClientToRootWindow( &x , &y ) ;
+ startPt.h += x ;
+ startPt.v += y ;
+ }
+
+ switch (MacControlUserPaneHitTestProc( startPt.h , startPt.v ))
+ {
+ case kControlEditTextPart :
+ {
+ wxMacWindowClipper clipper( textctrl ) ;
+ EventRecord rec ;
+
+ ConvertEventRefToEventRecord( (EventRef) wxTheApp->MacGetCurrentEvent() , &rec ) ;
+ TXNClick( m_txn, &rec );
+ }
+ break;
+
+ default :
+ break;
+ }
+ }
+
+ return result;
+}
+
+void wxMacMLTEClassicControl::MacControlUserPaneIdleProc()
+{
+ wxTextCtrl* textctrl = (wxTextCtrl*)GetControlReference( m_controlRef );
+ if ( textctrl == NULL )
+ return ;
+
+ if (textctrl->MacIsReallyShown())
+ {
+ if (IsControlActive(m_controlRef))
+ {
+ Point mousep;
+
+ wxMacWindowClipper clipper( textctrl ) ;
+ GetMouse(&mousep);
+
+ TXNIdle(m_txn);
+
+ if (PtInRect(mousep, &m_txnControlBounds))
+ {
+ RgnHandle theRgn = NewRgn();
+ RectRgn(theRgn, &m_txnControlBounds);
+ TXNAdjustCursor(m_txn, theRgn);
+ DisposeRgn(theRgn);
+ }
+ }
+ }
+}
+
+wxInt16 wxMacMLTEClassicControl::MacControlUserPaneKeyDownProc (wxInt16 keyCode, wxInt16 charCode, wxInt16 modifiers)
+{
+ wxTextCtrl* textctrl = (wxTextCtrl*)GetControlReference( m_controlRef );
+ if ( textctrl == NULL )
+ return kControlNoPart;
+
+ wxMacWindowClipper clipper( textctrl ) ;
+
+ EventRecord ev ;
+ memset( &ev , 0 , sizeof( ev ) ) ;
+ ev.what = keyDown ;
+ ev.modifiers = modifiers ;
+ ev.message = ((keyCode << 8) & keyCodeMask) | (charCode & charCodeMask);
+ TXNKeyDown( m_txn , &ev );
+
+ return kControlEntireControl;
+}
+
+void wxMacMLTEClassicControl::MacControlUserPaneActivateProc(bool activating)
+{
+ MacActivatePaneText( activating );
+}
+
+wxInt16 wxMacMLTEClassicControl::MacControlUserPaneFocusProc(wxInt16 action)
+{
+ ControlPartCode focusResult = kControlFocusNoPart;
+
+ wxTextCtrl* textctrl = (wxTextCtrl*)GetControlReference( m_controlRef );
+ if ( textctrl == NULL )
+ return focusResult;
+
+ wxMacWindowClipper clipper( textctrl ) ;
+
+ ControlRef controlFocus = NULL ;
+ GetKeyboardFocus( m_txnWindow , &controlFocus ) ;
+ bool wasFocused = ( controlFocus == m_controlRef ) ;
+
+ switch (action)
+ {
+ case kControlFocusPrevPart:
+ case kControlFocusNextPart:
+ MacFocusPaneText( !wasFocused );
+ focusResult = (!wasFocused ? (ControlPartCode) kControlEditTextPart : (ControlPartCode) kControlFocusNoPart);
+ break;
+
+ case kControlFocusNoPart:
+ default:
+ MacFocusPaneText( false );
+ focusResult = kControlFocusNoPart;
+ break;
+ }
+
+ return focusResult;
+}
+
+void wxMacMLTEClassicControl::MacControlUserPaneBackgroundProc( void *info )
+{
+}
+
+wxMacMLTEClassicControl::wxMacMLTEClassicControl( wxTextCtrl *wxPeer,
+ const wxString& str,
+ const wxPoint& pos,
+ const wxSize& size, long style ) : wxMacMLTEControl( wxPeer )
+{
+ m_font = wxPeer->GetFont() ;
+ m_windowStyle = style ;
+ Rect bounds = wxMacGetBoundsForControl( wxPeer , pos , size ) ;
+
+ short featureSet =
+ kControlSupportsEmbedding | kControlSupportsFocus | kControlWantsIdle
+ | kControlWantsActivate | kControlHandlesTracking
+// | kControlHasSpecialBackground
+ | kControlGetsFocusOnClick | kControlSupportsLiveFeedback;
+
+ verify_noerr(
+ ::CreateUserPaneControl(
+ MAC_WXHWND(wxPeer->GetParent()->MacGetTopLevelWindowRef()),
+ &bounds, featureSet, &m_controlRef ) );
+
+ DoCreate();
+
+ AdjustCreationAttributes( *wxWHITE , true ) ;
+
+ MacSetObjectVisibility( wxPeer->MacIsReallyShown() ) ;
+
+ {
+ wxString st = str ;
+ wxMacConvertNewlines10To13( &st ) ;
+ wxMacWindowClipper clipper( m_peer ) ;
+ SetTXNData( st , kTXNStartOffset, kTXNEndOffset ) ;
+ TXNSetSelection( m_txn, 0, 0 ) ;
+ }
+}
+
+wxMacMLTEClassicControl::~wxMacMLTEClassicControl()
+{
+ TXNDeleteObject( m_txn );
+ m_txn = NULL ;
+}
+
+void wxMacMLTEClassicControl::VisibilityChanged(bool shown)
+{
+ MacSetObjectVisibility( shown ) ;
+ wxMacControl::VisibilityChanged( shown ) ;
+}
+
+void wxMacMLTEClassicControl::SuperChangedPosition()
+{
+ MacUpdatePosition() ;
+ wxMacControl::SuperChangedPosition() ;
+}
+
+#ifdef __WXMAC_OSX__
+
+ControlUserPaneDrawUPP gTPDrawProc = NULL;
+ControlUserPaneHitTestUPP gTPHitProc = NULL;
+ControlUserPaneTrackingUPP gTPTrackProc = NULL;
+ControlUserPaneIdleUPP gTPIdleProc = NULL;
+ControlUserPaneKeyDownUPP gTPKeyProc = NULL;
+ControlUserPaneActivateUPP gTPActivateProc = NULL;
+ControlUserPaneFocusUPP gTPFocusProc = NULL;
+
+static pascal void wxMacControlUserPaneDrawProc(ControlRef control, SInt16 part)
+{
+ wxTextCtrl *textCtrl = wxDynamicCast( wxFindControlFromMacControl(control) , wxTextCtrl ) ;
+ wxMacMLTEClassicControl * win = textCtrl ? (wxMacMLTEClassicControl*)(textCtrl->GetPeer()) : NULL ;
+ if ( win )
+ win->MacControlUserPaneDrawProc(part) ;
+}
+
+static pascal ControlPartCode wxMacControlUserPaneHitTestProc(ControlRef control, Point where)
+{
+ wxTextCtrl *textCtrl = wxDynamicCast( wxFindControlFromMacControl(control) , wxTextCtrl ) ;
+ wxMacMLTEClassicControl * win = textCtrl ? (wxMacMLTEClassicControl*)(textCtrl->GetPeer()) : NULL ;
+ if ( win )
+ return win->MacControlUserPaneHitTestProc(where.h , where.v) ;
+ else
+ return kControlNoPart ;
+}
+
+static pascal ControlPartCode wxMacControlUserPaneTrackingProc(ControlRef control, Point startPt, ControlActionUPP actionProc)
+{
+ wxTextCtrl *textCtrl = wxDynamicCast( wxFindControlFromMacControl(control) , wxTextCtrl ) ;
+ wxMacMLTEClassicControl * win = textCtrl ? (wxMacMLTEClassicControl*)(textCtrl->GetPeer()) : NULL ;
+ if ( win )
+ return win->MacControlUserPaneTrackingProc( startPt.h , startPt.v , (void*) actionProc) ;
+ else
+ return kControlNoPart ;
+}
+
+static pascal void wxMacControlUserPaneIdleProc(ControlRef control)
+{
+ wxTextCtrl *textCtrl = wxDynamicCast( wxFindControlFromMacControl(control) , wxTextCtrl ) ;
+ wxMacMLTEClassicControl * win = textCtrl ? (wxMacMLTEClassicControl*)(textCtrl->GetPeer()) : NULL ;
+ if ( win )
+ win->MacControlUserPaneIdleProc() ;
+}
+
+static pascal ControlPartCode wxMacControlUserPaneKeyDownProc(ControlRef control, SInt16 keyCode, SInt16 charCode, SInt16 modifiers)
+{
+ wxTextCtrl *textCtrl = wxDynamicCast( wxFindControlFromMacControl(control) , wxTextCtrl ) ;
+ wxMacMLTEClassicControl * win = textCtrl ? (wxMacMLTEClassicControl*)(textCtrl->GetPeer()) : NULL ;
+ if ( win )
+ return win->MacControlUserPaneKeyDownProc(keyCode,charCode,modifiers) ;
+ else
+ return kControlNoPart ;
+}
+
+static pascal void wxMacControlUserPaneActivateProc(ControlRef control, Boolean activating)
+{
+ wxTextCtrl *textCtrl = wxDynamicCast( wxFindControlFromMacControl(control) , wxTextCtrl ) ;
+ wxMacMLTEClassicControl * win = textCtrl ? (wxMacMLTEClassicControl*)(textCtrl->GetPeer()) : NULL ;
+ if ( win )
+ win->MacControlUserPaneActivateProc(activating) ;
+}
+
+static pascal ControlPartCode wxMacControlUserPaneFocusProc(ControlRef control, ControlFocusPart action)
+{
+ wxTextCtrl *textCtrl = wxDynamicCast( wxFindControlFromMacControl(control) , wxTextCtrl ) ;
+ wxMacMLTEClassicControl * win = textCtrl ? (wxMacMLTEClassicControl*)(textCtrl->GetPeer()) : NULL ;
+ if ( win )
+ return win->MacControlUserPaneFocusProc(action) ;
+ else
+ return kControlNoPart ;
+}
+
+#if 0
+static pascal void wxMacControlUserPaneBackgroundProc(ControlRef control, ControlBackgroundPtr info)
+{
+ wxTextCtrl *textCtrl = wxDynamicCast( wxFindControlFromMacControl(control) , wxTextCtrl ) ;
+ wxMacMLTEClassicControl * win = textCtrl ? (wxMacMLTEClassicControl*)(textCtrl->GetPeer()) : NULL ;
+ if ( win )
+ win->MacControlUserPaneBackgroundProc(info) ;
+}
+#endif
+
+#endif // __WXMAC_OSX__
+
+// TXNRegisterScrollInfoProc
+
+OSStatus wxMacMLTEClassicControl::DoCreate()
+{
+ Rect bounds;
+
+ OSStatus err = noErr ;
+
+ // set up our globals
+#ifdef __WXMAC_OSX__
+ if (gTPDrawProc == NULL) gTPDrawProc = NewControlUserPaneDrawUPP(wxMacControlUserPaneDrawProc);
+ if (gTPHitProc == NULL) gTPHitProc = NewControlUserPaneHitTestUPP(wxMacControlUserPaneHitTestProc);
+ if (gTPTrackProc == NULL) gTPTrackProc = NewControlUserPaneTrackingUPP(wxMacControlUserPaneTrackingProc);
+ if (gTPIdleProc == NULL) gTPIdleProc = NewControlUserPaneIdleUPP(wxMacControlUserPaneIdleProc);
+ if (gTPKeyProc == NULL) gTPKeyProc = NewControlUserPaneKeyDownUPP(wxMacControlUserPaneKeyDownProc);
+ if (gTPActivateProc == NULL) gTPActivateProc = NewControlUserPaneActivateUPP(wxMacControlUserPaneActivateProc);
+ if (gTPFocusProc == NULL) gTPFocusProc = NewControlUserPaneFocusUPP(wxMacControlUserPaneFocusProc);
+
+ if (gTXNScrollInfoProc == NULL ) gTXNScrollInfoProc = NewTXNScrollInfoUPP(TXNScrollInfoProc) ;
+ if (gTXNScrollActionProc == NULL ) gTXNScrollActionProc = NewControlActionUPP(TXNScrollActionProc) ;
+#endif
+
+ // set the initial settings for our private data
+
+ m_txnWindow = GetControlOwner(m_controlRef);
+ m_txnPort = (GrafPtr) GetWindowPort(m_txnWindow);
+
+#ifdef __WXMAC_OSX__
+ // set up the user pane procedures
+ SetControlData(m_controlRef, kControlEntireControl, kControlUserPaneDrawProcTag, sizeof(gTPDrawProc), &gTPDrawProc);
+ SetControlData(m_controlRef, kControlEntireControl, kControlUserPaneHitTestProcTag, sizeof(gTPHitProc), &gTPHitProc);
+ SetControlData(m_controlRef, kControlEntireControl, kControlUserPaneTrackingProcTag, sizeof(gTPTrackProc), &gTPTrackProc);
+ SetControlData(m_controlRef, kControlEntireControl, kControlUserPaneIdleProcTag, sizeof(gTPIdleProc), &gTPIdleProc);
+ SetControlData(m_controlRef, kControlEntireControl, kControlUserPaneKeyDownProcTag, sizeof(gTPKeyProc), &gTPKeyProc);
+ SetControlData(m_controlRef, kControlEntireControl, kControlUserPaneActivateProcTag, sizeof(gTPActivateProc), &gTPActivateProc);
+ SetControlData(m_controlRef, kControlEntireControl, kControlUserPaneFocusProcTag, sizeof(gTPFocusProc), &gTPFocusProc);
+#endif
+
+ // calculate the rectangles used by the control
+ UMAGetControlBoundsInWindowCoords( m_controlRef, &bounds );
+
+ m_txnControlBounds = bounds ;
+ m_txnVisBounds = bounds ;
+
+ CGrafPtr origPort ;
+ GDHandle origDev ;
+
+ GetGWorld( &origPort, &origDev ) ;
+ SetPort( m_txnPort );
+
+ // create the new edit field
+ TXNFrameOptions frameOptions = FrameOptionsFromWXStyle( m_windowStyle );
+
+#ifdef __WXMAC_OSX__
+ // the scrollbars are not correctly embedded but are inserted at the root:
+ // this gives us problems as we have erratic redraws even over the structure area
+
+ m_sbHorizontal = 0 ;
+ m_sbVertical = 0 ;
+ m_lastHorizontalValue = 0 ;
+ m_lastVerticalValue = 0 ;
+
+ Rect sb = { 0 , 0 , 0 , 0 } ;
+ if ( frameOptions & kTXNWantVScrollBarMask )
+ {
+ CreateScrollBarControl( m_txnWindow, &sb, 0, 0, 100, 1, true, gTXNScrollActionProc, &m_sbVertical );
+ SetControlReference( m_sbVertical, (SInt32)this );
+ SetControlAction( m_sbVertical, gTXNScrollActionProc );
+ ShowControl( m_sbVertical );
+ EmbedControl( m_sbVertical , m_controlRef );
+ frameOptions &= ~kTXNWantVScrollBarMask;
+ }
+
+ if ( frameOptions & kTXNWantHScrollBarMask )
+ {
+ CreateScrollBarControl( m_txnWindow, &sb, 0, 0, 100, 1, true, gTXNScrollActionProc, &m_sbHorizontal );
+ SetControlReference( m_sbHorizontal, (SInt32)this );
+ SetControlAction( m_sbHorizontal, gTXNScrollActionProc );
+ ShowControl( m_sbHorizontal );
+ EmbedControl( m_sbHorizontal, m_controlRef );
+ frameOptions &= ~(kTXNWantHScrollBarMask | kTXNDrawGrowIconMask);
+ }
+
+#endif
+
+ verify_noerr(
+ TXNNewObject(
+ NULL, m_txnWindow, &bounds, frameOptions,
+ kTXNTextEditStyleFrameType, kTXNTextensionFile, kTXNSystemDefaultEncoding,
+ &m_txn, &m_txnFrameID, NULL ) );
+
+#if 0
+ TXNControlTag iControlTags[] = { kTXNUseCarbonEvents };
+ TXNControlData iControlData[] = { { (UInt32)&cInfo } };
+ int toptag = WXSIZEOF( iControlTags ) ;
+ TXNCarbonEventInfo cInfo ;
+ cInfo.useCarbonEvents = false ;
+ cInfo.filler = 0 ;
+ cInfo.flags = 0 ;
+ cInfo.fDictionary = NULL ;
+
+ verify_noerr( TXNSetTXNObjectControls( m_txn, false, toptag, iControlTags, iControlData ) );
+#endif
+
+#ifdef __WXMAC_OSX__
+ TXNRegisterScrollInfoProc( m_txn, gTXNScrollInfoProc, (SInt32)this );
+#endif
+
+ SetGWorld( origPort , origDev ) ;
+ return err;
+}
+
+// ----------------------------------------------------------------------------
+// MLTE control implementation (OSX part)
+// ----------------------------------------------------------------------------
+
+#if TARGET_API_MAC_OSX
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
+
+wxMacMLTEHIViewControl::wxMacMLTEHIViewControl( wxTextCtrl *wxPeer,
+ const wxString& str,
+ const wxPoint& pos,
+ const wxSize& size, long style ) : wxMacMLTEControl( wxPeer )
+{
+ m_font = wxPeer->GetFont() ;
+ m_windowStyle = style ;
+ Rect bounds = wxMacGetBoundsForControl( wxPeer , pos , size ) ;
+ wxString st = str ;
+ wxMacConvertNewlines10To13( &st ) ;
+
+ HIRect hr = { { bounds.left , bounds.top} ,
+ { bounds.right - bounds.left , bounds.bottom - bounds.top} } ;
+
+ m_scrollView = NULL ;
+ TXNFrameOptions frameOptions = FrameOptionsFromWXStyle( style ) ;
+ if ( frameOptions & (kTXNWantVScrollBarMask | kTXNWantHScrollBarMask) )
+ {
+ HIScrollViewCreate(
+ (frameOptions & kTXNWantHScrollBarMask ? kHIScrollViewOptionsHorizScroll : 0)
+ | (frameOptions & kTXNWantVScrollBarMask ? kHIScrollViewOptionsVertScroll : 0) ,
+ &m_scrollView ) ;
+
+ HIViewSetFrame( m_scrollView, &hr );
+ HIViewSetVisible( m_scrollView, true );
+ }
+
+ m_textView = NULL ;
+ HITextViewCreate( NULL , 0, frameOptions , &m_textView ) ;
+ m_txn = HITextViewGetTXNObject( m_textView ) ;
+ HIViewSetVisible( m_textView , true ) ;
+ if ( m_scrollView )
+ {
+ HIViewAddSubview( m_scrollView , m_textView ) ;
+ m_controlRef = m_scrollView ;
+ wxPeer->MacInstallEventHandler( (WXWidget) m_textView ) ;
+ }
+ else
+ {
+ HIViewSetFrame( m_textView, &hr );
+ m_controlRef = m_textView ;
+ }
+
+ AdjustCreationAttributes( *wxWHITE , true ) ;
+
+ wxMacWindowClipper c( m_peer ) ;
+ SetTXNData( st , kTXNStartOffset, kTXNEndOffset ) ;
+
+ TXNSetSelection( m_txn, 0, 0 );
+ TXNShowSelection( m_txn, kTXNShowStart );
+}
+
+OSStatus wxMacMLTEHIViewControl::SetFocus( ControlFocusPart focusPart )
+{
+ return SetKeyboardFocus( GetControlOwner( m_textView ), m_textView, focusPart ) ;
+}
+
+bool wxMacMLTEHIViewControl::HasFocus() const
+{
+ ControlRef control ;
+ GetKeyboardFocus( GetUserFocusWindow() , &control ) ;
+ return control == m_textView ;
+}
+
+void wxMacMLTEHIViewControl::SetBackground( const wxBrush &brush )
+{
+ wxMacMLTEControl::SetBackground( brush ) ;
+
+#if 0
+ CGColorSpaceRef rgbSpace = CGColorSpaceCreateDeviceRGB();
+ RGBColor col = MAC_WXCOLORREF(brush.GetColour().GetPixel()) ;
+
+ float component[4] ;
+ component[0] = col.red / 65536.0 ;
+ component[1] = col.green / 65536.0 ;
+ component[2] = col.blue / 65536.0 ;
+ component[3] = 1.0 ; // alpha
+
+ CGColorRef color = CGColorCreate (rgbSpace , component );
+ HITextViewSetBackgroundColor( m_textView , color ) ;
+ CGColorSpaceRelease( rgbSpace );
+#endif
+}
+
+#endif // MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
+
+
+#endif
+
+#endif // wxUSE_TEXTCTRL
projects / wxWidgets.git / blobdiff