added native alignement support

[wxWidgets.git] / src / mac / carbon / textctrl.cpp

diff --git a/src/mac/carbon/textctrl.cpp b/src/mac/carbon/textctrl.cpp
index b937a08a1c53d352c965c8cf2bfe8e0ac36d1b4b..211e778cba0bd05e04fefb04db65ace60d430d55 100644 (file)
--- a/src/mac/carbon/textctrl.cpp
+++ b/src/mac/carbon/textctrl.cpp
@@ -62,8 +62,6 @@
 
 #define TE_UNLIMITED_LENGTH 0xFFFFFFFFUL
 
 
 #define TE_UNLIMITED_LENGTH 0xFFFFFFFFUL
 

-extern wxControl *wxFindControlFromMacControl(ControlHandle inControl ) ;
-

 // CS:TODO we still have a problem getting properly at the text events of a control because under Carbon
 // the MLTE engine registers itself for the key events thus the normal flow never occurs, the only measure for the
 // moment is to avoid setting the true focus on the control, the proper solution at the end would be to have
 // CS:TODO we still have a problem getting properly at the text events of a control because under Carbon
 // the MLTE engine registers itself for the key events thus the normal flow never occurs, the only measure for the
 // moment is to avoid setting the true focus on the control, the proper solution at the end would be to have


@@ -75,45 +73,20 @@ extern wxControl *wxFindControlFromMacControl(ControlHandle inControl ) ;
     in the text area of our control */
 #define kmUPTextPart 1
 
     in the text area of our control */
 #define kmUPTextPart 1
 

-/* kmUPScrollPart is the part code we return to indicate the user has clicked
-    in the scroll bar part of the control. */
-#define kmUPScrollPart 2
-

 
 /* routines for using existing user pane controls.
     These routines are useful for cases where you would like to use an
     existing user pane control in, say, a dialog window as a scrolling
     text edit field.*/
 
 
 /* routines for using existing user pane controls.
     These routines are useful for cases where you would like to use an
     existing user pane control in, say, a dialog window as a scrolling
     text edit field.*/
 

-/* mUPOpenControl initializes a user pane control so it will be drawn
-    and will behave as a scrolling text edit field inside of a window.
-    This routine performs all of the initialization steps necessary,
-    except it does not create the user pane control itself.  theControl
-    should refer to a user pane control that you have either created
-    yourself or extracted from a dialog's control heirarchy using
-    the GetDialogItemAsControl routine.  */
-OSStatus mUPOpenControl(ControlHandle theControl, long wxStyle);
-

 /* Utility Routines */
 
 /* Utility Routines */
 

-enum {
-    kShiftKeyCode = 56
-};
-

 /* kUserClickedToFocusPart is a part code we pass to the SetKeyboardFocus
     routine.  In our focus switching routine this part code is understood
     as meaning 'the user has clicked in the control and we need to switch
     the current focus to ourselves before we can continue'. */
 #define kUserClickedToFocusPart 100
 
 /* kUserClickedToFocusPart is a part code we pass to the SetKeyboardFocus
     routine.  In our focus switching routine this part code is understood
     as meaning 'the user has clicked in the control and we need to switch
     the current focus to ourselves before we can continue'. */
 #define kUserClickedToFocusPart 100
 

-
-/* kmUPClickScrollDelayTicks is a time measurement in ticks used to
-    slow the speed of 'auto scrolling' inside of our clickloop routine.
-    This value prevents the text from wizzzzzing by while the mouse
-    is being held down inside of the text area. */
-#define kmUPClickScrollDelayTicks 3
-
-

 /* STPTextPaneVars is a structure used for storing the the mUP Control's
     internal variables and state information.  A handle to this record is
     stored in the pane control's reference value field using the
 /* STPTextPaneVars is a structure used for storing the the mUP Control's
     internal variables and state information.  A handle to this record is
     stored in the pane control's reference value field using the


@@ -123,25 +96,37 @@ typedef struct {
         /* OS records referenced */
     TXNObject fTXNRec; /* the txn record */
     TXNFrameID fTXNFrame; /* the txn frame ID */
         /* OS records referenced */
     TXNObject fTXNRec; /* the txn record */
     TXNFrameID fTXNFrame; /* the txn frame ID */

-    ControlHandle fUserPaneRec;  /* handle to the user pane control */
+    ControlRef fUserPaneRec;  /* handle to the user pane control */

     WindowPtr fOwner; /* window containing control */
     GrafPtr fDrawingEnvironment; /* grafport where control is drawn */
         /* flags */
     Boolean fInFocus; /* true while the focus rect is drawn around the control */
     Boolean fIsActive; /* true while the control is drawn in the active state */
     WindowPtr fOwner; /* window containing control */
     GrafPtr fDrawingEnvironment; /* grafport where control is drawn */
         /* flags */
     Boolean fInFocus; /* true while the focus rect is drawn around the control */
     Boolean fIsActive; /* true while the control is drawn in the active state */

-    Boolean fTEActive; /* reflects the activation state of the text edit record */
-    Boolean fInDialogWindow; /* true if displayed in a dialog window */
+    Boolean fTXNObjectActive; /* reflects the activation state of the text edit record */
+       Boolean fFocusDrawState; /* true if focus is drawn (default: true) */ 

         /* calculated locations */
         /* calculated locations */

+    Rect fRBounds; /* control bounds */

     Rect fRTextArea; /* area where the text is drawn */
     Rect fRFocusOutline;  /* rectangle used to draw the focus box */
     Rect fRTextOutline; /* rectangle used to draw the border */
     Rect fRTextArea; /* area where the text is drawn */
     Rect fRFocusOutline;  /* rectangle used to draw the focus box */
     Rect fRTextOutline; /* rectangle used to draw the border */

-    RgnHandle fTextBackgroundRgn; /* background region for the text, erased before calling TEUpdate */
+    RgnHandle fRTextOutlineRegion; /* background region for the text, erased before calling TEUpdate */

         /* our focus advance override routine */
     EventHandlerUPP handlerUPP;
     EventHandlerRef handlerRef;
         /* our focus advance override routine */
     EventHandlerUPP handlerUPP;
     EventHandlerRef handlerRef;

+    bool fNoBorders ;

     bool fMultiline ;
     bool fMultiline ;

+    bool fVisible ;

 } STPTextPaneVars;
 
 } STPTextPaneVars;
 

+/* mUPOpenControl initializes a user pane control so it will be drawn
+    and will behave as a scrolling text edit field inside of a window.
+    This routine performs all of the initialization steps necessary,
+    except it does not create the user pane control itself.  theControl
+    should refer to a user pane control that you have either created
+    yourself or extracted from a dialog's control heirarchy using
+    the GetDialogItemAsControl routine.  */
+OSStatus mUPOpenControl(STPTextPaneVars* &handle, ControlRef theControl, long wxStyle);
+

 
 
 
 
 
 


@@ -156,106 +141,130 @@ ControlUserPaneKeyDownUPP gTPKeyProc = NULL;
 ControlUserPaneActivateUPP gTPActivateProc = NULL;
 ControlUserPaneFocusUPP gTPFocusProc = NULL;
 
 ControlUserPaneActivateUPP gTPActivateProc = NULL;
 ControlUserPaneFocusUPP gTPFocusProc = NULL;
 

-/* TPActivatePaneText activates or deactivates the text edit record
-    according to the value of setActive.  The primary purpose of this
-    routine is to ensure each call is only made once. */
-static void TPActivatePaneText(STPTextPaneVars **tpvars, Boolean setActive) {
-    STPTextPaneVars *varsp;
-    varsp = *tpvars;
-    if (varsp->fTEActive != setActive) {
+// one place for calculating all
+static void TPCalculateBounds(STPTextPaneVars *varsp, const Rect& bounds) 
+{
+    SetRect(&varsp->fRBounds, bounds.left, bounds.top, bounds.right, bounds.bottom);
+    SetRect(&varsp->fRFocusOutline, bounds.left, bounds.top, bounds.right, bounds.bottom);
+    // eventually make TextOutline inset 1,1
+    SetRect(&varsp->fRTextOutline, bounds.left, bounds.top, bounds.right, bounds.bottom);
+    if ( !varsp->fNoBorders )
+    {
+       SetRect(&varsp->fRTextArea, bounds.left + 2 , bounds.top + (varsp->fMultiline ? 0 : 2) ,
+        bounds.right - (varsp->fMultiline ? 0 : 2), bounds.bottom - (varsp->fMultiline ? 0 : 2));
+    }
+    else
+    {
+        SetRect(&varsp->fRTextArea, bounds.left , bounds.top ,
+            bounds.right, bounds.bottom);
+    }
+}
+
+OSStatus MLTESetObjectVisibility( STPTextPaneVars *varsp, Boolean vis , long wxStyle)
+{
+    OSStatus err = noErr ;
+#if TARGET_API_MAC_OSX
+    TXNControlTag iControlTags[1] = { kTXNVisibilityTag };
+    TXNControlData iControlData[1] = {{ vis }};
+    err = ::TXNSetTXNObjectControls( varsp->fTXNRec, false, 1, iControlTags, iControlData );
+#endif
+    if ( vis )
+    {
+        Rect bounds ;
+        UMAGetControlBoundsInWindowCoords( varsp->fUserPaneRec, &bounds);
+        TPCalculateBounds( varsp , bounds ) ;
+        TXNSetFrameBounds( varsp->fTXNRec, varsp->fRTextArea.top, varsp->fRTextArea.left,
+            varsp->fRTextArea.bottom, varsp->fRTextArea.right, varsp->fTXNFrame);
+        TXNShowSelection( varsp->fTXNRec, kTXNShowStart);
+    }
+    return err ;
+}

 
 

-        varsp->fTEActive = setActive;
+// make sure we don't miss changes as carbon events are not available for these under classic
+static void TPUpdateVisibility(ControlRef theControl) {
+    wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(theControl);
+    if ( textctrl == NULL )
+        return ;

 
 

-        TXNActivate(varsp->fTXNRec, varsp->fTXNFrame, varsp->fTEActive);
+    STPTextPaneVars *varsp = (STPTextPaneVars *) textctrl->m_macTXNvars ;

 
 

+    Rect bounds ;
+    UMAGetControlBoundsInWindowCoords(theControl, &bounds);
+    if ( textctrl->MacIsReallyShown() != varsp->fVisible )
+    {
+        // invalidate old position
+        // InvalWindowRect( GetControlOwner( theControl ) , &varsp->fRBounds ) ;
+        varsp->fVisible = textctrl->MacIsReallyShown() ;
+    }
+    if ( !EqualRect( &bounds , &varsp->fRBounds ) )
+    {
+        // old position
+        Rect oldBounds = varsp->fRBounds ;
+        TPCalculateBounds( varsp , bounds ) ;
+        // we only recalculate when visible, otherwise scrollbars get drawn at incorrect places
+        if ( varsp->fVisible )
+        {
+            TXNSetFrameBounds(  varsp->fTXNRec, varsp->fRTextArea.top, varsp->fRTextArea.left,
+                varsp->fRTextArea.bottom, varsp->fRTextArea.right, varsp->fTXNFrame);
+        }
+        InvalWindowRect( GetControlOwner( theControl ) , &oldBounds ) ;
+        InvalWindowRect( GetControlOwner( theControl ) , &varsp->fRBounds ) ;
+    }
+}
+
+// make correct activations
+static void TPActivatePaneText(STPTextPaneVars *varsp, Boolean setActive) {
+
+    wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(varsp->fUserPaneRec);
+    if (varsp->fTXNObjectActive != setActive && textctrl->MacIsReallyShown() ) 
+    {
+        varsp->fTXNObjectActive = setActive;
+        TXNActivate(varsp->fTXNRec, varsp->fTXNFrame, varsp->fTXNObjectActive);

         if (varsp->fInFocus)
         if (varsp->fInFocus)

-            TXNFocus( varsp->fTXNRec, varsp->fTEActive);
+            TXNFocus( varsp->fTXNRec, varsp->fTXNObjectActive);

     }
 }
 
     }
 }
 

+// update focus outlines
+static void TPRedrawFocusOutline(STPTextPaneVars *varsp) {

 
 

-/* TPFocusPaneText set the focus state for the text record. */
-static void TPFocusPaneText(STPTextPaneVars **tpvars, Boolean setFocus) {
-    STPTextPaneVars *varsp;
-    varsp = *tpvars;
-    if (varsp->fInFocus != setFocus) {
+    /* state changed */
+       if (varsp->fFocusDrawState != (varsp->fIsActive && varsp->fInFocus)) 
+       { 
+               varsp->fFocusDrawState = (varsp->fIsActive && varsp->fInFocus);
+               DrawThemeFocusRect(&varsp->fRFocusOutline, varsp->fFocusDrawState);
+       }
+}
+
+// update TXN focus state
+static void TPFocusPaneText(STPTextPaneVars *varsp, Boolean setFocus) {
+    wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(varsp->fUserPaneRec);
+
+    if (varsp->fInFocus != setFocus && textctrl->MacIsReallyShown()) {

         varsp->fInFocus = setFocus;
         TXNFocus( varsp->fTXNRec, varsp->fInFocus);
     }
 }
 
         varsp->fInFocus = setFocus;
         TXNFocus( varsp->fTXNRec, varsp->fInFocus);
     }
 }
 

-
-/* TPPaneDrawProc is called to redraw the control and for update events
-    referring to the control.  This routine erases the text area's background,
-    and redraws the text.  This routine assumes the scroll bar has been
-    redrawn by a call to DrawControls. */
+// draw the control

 static pascal void TPPaneDrawProc(ControlRef theControl, ControlPartCode thePart) {
 static pascal void TPPaneDrawProc(ControlRef theControl, ControlPartCode thePart) {

-    STPTextPaneVars **tpvars, *varsp;
-    char state;
-    Rect bounds;

         /* set up our globals */
 
         /* set up our globals */
 

-    tpvars = (STPTextPaneVars **) GetControlReference(theControl);
-    if (tpvars != NULL) {
-        state = HGetState((Handle) tpvars);
-        HLock((Handle) tpvars);
-        varsp = *tpvars;
-
-            /* save the drawing state */
-        SetPort((**tpvars).fDrawingEnvironment);
-           /* verify our boundary */
-        GetControlBounds(theControl, &bounds);
-
-        wxMacWindowClipper clipper( wxFindControlFromMacControl(theControl ) ) ;
-        if ( ! EqualRect(&bounds, &varsp->fRFocusOutline) ) {
-            // scrollbar is on the border, we add one
-            Rect oldbounds = varsp->fRFocusOutline ;
-            InsetRect( &oldbounds , -1 , -1 ) ;
-
-            if ( IsControlVisible( theControl ) )
-                InvalWindowRect( GetControlOwner( theControl ) , &oldbounds ) ;
-            SetRect(&varsp->fRFocusOutline, bounds.left, bounds.top, bounds.right, bounds.bottom);
-            SetRect(&varsp->fRTextOutline, bounds.left, bounds.top, bounds.right, bounds.bottom);
-
-            if (!wxFindControlFromMacControl(theControl)->HasFlag(wxNO_BORDER))
-            {
-                SetRect(&varsp->fRTextArea, bounds.left + 2 , bounds.top + (varsp->fMultiline ? 0 : 2) ,
-                    bounds.right - (varsp->fMultiline ? 0 : 2), bounds.bottom - (varsp->fMultiline ? 0 : 2));
-            }
-            else
-            {
-                SetRect(&varsp->fRTextArea, bounds.left , bounds.top ,
-                    bounds.right, bounds.bottom);
-            }
-            RectRgn(varsp->fTextBackgroundRgn, &varsp->fRTextOutline);
-            if ( IsControlVisible( theControl ) )
-                TXNSetFrameBounds(  varsp->fTXNRec, varsp->fRTextArea.top, varsp->fRTextArea.left,
-                    varsp->fRTextArea.bottom, varsp->fRTextArea.right, varsp->fTXNFrame);
-            else
-                TXNSetFrameBounds(  varsp->fTXNRec, varsp->fRTextArea.top + 30000 , varsp->fRTextArea.left + 30000 ,
-                    varsp->fRTextArea.bottom + 30000 , varsp->fRTextArea.right + 30000 , varsp->fTXNFrame);
-            
-        }
-
-        if ( IsControlVisible( theControl ) )
-        {
-            /* update the text region */
-            RGBColor white = { 65535 , 65535 , 65535 } ;
-            RGBBackColor( &white ) ;
-            EraseRgn(varsp->fTextBackgroundRgn);
-            TXNDraw(varsp->fTXNRec, NULL);
-                /* restore the drawing environment */
-                /* draw the text frame and focus frame (if necessary) */
-            if (!wxFindControlFromMacControl(theControl)->HasFlag(wxNO_BORDER))
-            {
-                DrawThemeEditTextFrame(&varsp->fRTextOutline, varsp->fIsActive ? kThemeStateActive: kThemeStateInactive);
-                if ((**tpvars).fIsActive && varsp->fInFocus) 
-                    DrawThemeFocusRect(&varsp->fRFocusOutline, true);
-            }
-                /* release our globals */
-            HSetState((Handle) tpvars, state);
-        }
+    wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(theControl);
+    if ( textctrl == NULL )
+        return ;
+    TPUpdateVisibility( theControl ) ;
+  
+    STPTextPaneVars *varsp = (STPTextPaneVars *) textctrl->m_macTXNvars ;
+    if ( textctrl->MacIsReallyShown() )
+    {
+        wxMacWindowClipper clipper( textctrl ) ;
+        TXNDraw(varsp->fTXNRec, NULL);
+        if ( !varsp->fNoBorders )
+               DrawThemeEditTextFrame(&varsp->fRTextOutline, varsp->fIsActive ? kThemeStateActive: kThemeStateInactive);
+        TPRedrawFocusOutline( varsp ) ;

     }
     }

+

 }
 
 
 }
 
 


@@ -263,22 +272,21 @@ static pascal void TPPaneDrawProc(ControlRef theControl, ControlPartCode thePart
     like to determine what part of the control the mouse resides over.
     We also call this routine from our tracking proc to determine how
     to handle mouse clicks. */
     like to determine what part of the control the mouse resides over.
     We also call this routine from our tracking proc to determine how
     to handle mouse clicks. */

-static pascal ControlPartCode TPPaneHitTestProc(ControlHandle theControl, Point where) {
-    STPTextPaneVars **tpvars;
+static pascal ControlPartCode TPPaneHitTestProc(ControlRef theControl, Point where) {

     ControlPartCode result;
     ControlPartCode result;

-    char state;

         /* set up our locals and lock down our globals*/
     result = 0;
         /* set up our locals and lock down our globals*/
     result = 0;

-    tpvars = (STPTextPaneVars **) GetControlReference(theControl);
-    if (tpvars != NULL && IsControlVisible( theControl) ) {
-        state = HGetState((Handle) tpvars);
-        HLock((Handle) tpvars);
-            /* find the region where we clicked */
-        if (PtInRect(where, &(**tpvars).fRTextArea)) {
+    wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(theControl);
+    if ( textctrl == NULL )
+        return 0 ;
+    TPUpdateVisibility( theControl ) ;
+    STPTextPaneVars *varsp = (STPTextPaneVars *) textctrl->m_macTXNvars ;
+    if (textctrl->MacIsReallyShown() ) 
+    {
+        if (PtInRect(where, &varsp->fRBounds))

             result = kmUPTextPart;
             result = kmUPTextPart;

-        } else result = 0;
-            /* release oure globals */
-        HSetState((Handle) tpvars, state);
+        else 
+            result = 0;

     }
     return result;
 }
     }
     return result;
 }


@@ -290,45 +298,51 @@ static pascal ControlPartCode TPPaneHitTestProc(ControlHandle theControl, Point
 /* TPPaneTrackingProc is called when the mouse is being held down
     over our control.  This routine handles clicks in the text area
     and in the scroll bar. */
 /* TPPaneTrackingProc is called when the mouse is being held down
     over our control.  This routine handles clicks in the text area
     and in the scroll bar. */

-static pascal ControlPartCode TPPaneTrackingProc(ControlHandle theControl, Point startPt, ControlActionUPP actionProc) {
-    STPTextPaneVars **tpvars, *varsp;
-    char state;
+static pascal ControlPartCode TPPaneTrackingProc(ControlRef theControl, Point startPt, ControlActionUPP actionProc) {
+       

     ControlPartCode partCodeResult;
     ControlPartCode partCodeResult;

-        /* make sure we have some variables... */
+       /* make sure we have some variables... */

     partCodeResult = 0;
     partCodeResult = 0;

-    tpvars = (STPTextPaneVars **) GetControlReference(theControl);
-    if (tpvars != NULL && IsControlVisible( theControl ) ) {
-            /* lock 'em down */
-        state = HGetState((Handle) tpvars);
-        HLock((Handle) tpvars);
-        varsp = *tpvars;
-            /* we don't do any of these functions unless we're in focus */
+    wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(theControl);
+    if ( textctrl == NULL )
+        return 0;
+    TPUpdateVisibility( theControl ) ;
+    STPTextPaneVars *varsp = (STPTextPaneVars *) textctrl->m_macTXNvars ;
+    if (textctrl->MacIsReallyShown() ) 
+       {
+               /* we don't do any of these functions unless we're in focus */

         if ( ! varsp->fInFocus) {
             WindowPtr owner;
             owner = GetControlOwner(theControl);
             ClearKeyboardFocus(owner);
             SetKeyboardFocus(owner, theControl, kUserClickedToFocusPart);
         }
         if ( ! varsp->fInFocus) {
             WindowPtr owner;
             owner = GetControlOwner(theControl);
             ClearKeyboardFocus(owner);
             SetKeyboardFocus(owner, theControl, kUserClickedToFocusPart);
         }

-            /* find the location for the click */
-        switch (TPPaneHitTestProc(theControl, startPt)) {
+               /* find the location for the click */
+        // 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 ;
+        }

 
 

-                /* handle clicks in the text part */
+        switch (TPPaneHitTestProc(theControl, startPt)) 
+        {
+                       
+                       /* handle clicks in the text part */

             case kmUPTextPart:
             case kmUPTextPart:

-                {   SetPort((**tpvars).fDrawingEnvironment);
-                    wxMacWindowClipper clipper( wxFindControlFromMacControl(theControl ) ) ;
-#if !TARGET_CARBON
-                    TXNClick( varsp->fTXNRec, (const EventRecord*) wxTheApp->MacGetCurrentEvent());
-#else
-                    EventRecord rec ;
-                    ConvertEventRefToEventRecord( (EventRef) wxTheApp->MacGetCurrentEvent() , &rec ) ;
-                    TXNClick( varsp->fTXNRec, &rec );
-#endif
-                }
+                       { 
+                               wxMacWindowClipper clipper( textctrl ) ;
+                               
+                               EventRecord rec ;
+                               ConvertEventRefToEventRecord( (EventRef) wxTheApp->MacGetCurrentEvent() , &rec ) ;
+                               TXNClick( varsp->fTXNRec, &rec );
+                               
+                       }

                 break;
                 break;

-
+                               

         }
         }

-
-        HSetState((Handle) tpvars, state);

     }
     return partCodeResult;
 }
     }
     return partCodeResult;
 }


@@ -336,28 +350,25 @@ static pascal ControlPartCode TPPaneTrackingProc(ControlHandle theControl, Point
 
 /* TPPaneIdleProc is our user pane idle routine.  When our text field
     is active and in focus, we use this routine to set the cursor. */
 
 /* TPPaneIdleProc is our user pane idle routine.  When our text field
     is active and in focus, we use this routine to set the cursor. */

-static pascal void TPPaneIdleProc(ControlHandle theControl) {
-    STPTextPaneVars **tpvars, *varsp;
+static pascal void TPPaneIdleProc(ControlRef theControl) {

         /* set up locals */
         /* set up locals */

-    tpvars = (STPTextPaneVars **) GetControlReference(theControl);
-    if (tpvars != NULL && IsControlVisible( theControl ) ) {
+    wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(theControl);
+    if ( textctrl == NULL )
+        return ;
+    TPUpdateVisibility( theControl ) ;
+    STPTextPaneVars *varsp = (STPTextPaneVars *) textctrl->m_macTXNvars ;
+    if (textctrl->MacIsReallyShown()) {

             /* if we're not active, then we have nothing to say about the cursor */
             /* if we're not active, then we have nothing to say about the cursor */

-        if ((**tpvars).fIsActive) {
-            char state;
+        if (varsp->fIsActive) {

             Rect bounds;
             Point mousep;
             Rect bounds;
             Point mousep;

-                /* lock down the globals */
-            state = HGetState((Handle) tpvars);
-            HLock((Handle) tpvars);
-            varsp = *tpvars;
-                /* get the current mouse coordinates (in our window) */
-            SetPortWindowPort(GetControlOwner(theControl));
-            wxMacWindowClipper clipper( wxFindControlFromMacControl(theControl ) ) ;
+
+            wxMacWindowClipper clipper( textctrl ) ;

             GetMouse(&mousep);
                 /* there's a 'focus thing' and an 'unfocused thing' */
             if (varsp->fInFocus) {
                     /* flash the cursor */
             GetMouse(&mousep);
                 /* there's a 'focus thing' and an 'unfocused thing' */
             if (varsp->fInFocus) {
                     /* flash the cursor */

-                SetPort((**tpvars).fDrawingEnvironment);
+                SetPort(varsp->fDrawingEnvironment);

                 TXNIdle(varsp->fTXNRec);
                 /* set the cursor */
                 if (PtInRect(mousep, &varsp->fRTextArea)) {
                 TXNIdle(varsp->fTXNRec);
                 /* set the cursor */
                 if (PtInRect(mousep, &varsp->fRTextArea)) {


@@ -372,14 +383,12 @@ static pascal void TPPaneIdleProc(ControlHandle theControl) {
                  }
             } else {
                 /* if it's in our bounds, set the cursor */
                  }
             } else {
                 /* if it's in our bounds, set the cursor */

-                GetControlBounds(theControl, &bounds);
+                UMAGetControlBoundsInWindowCoords(theControl, &bounds);

                 if (PtInRect(mousep, &bounds))
                 {
                 //    SetThemeCursor(kThemeArrowCursor);
                 }
             }
                 if (PtInRect(mousep, &bounds))
                 {
                 //    SetThemeCursor(kThemeArrowCursor);
                 }
             }

-
-            HSetState((Handle) tpvars, state);

         }
     }
 }
         }
     }
 }


@@ -388,22 +397,25 @@ static pascal void TPPaneIdleProc(ControlHandle theControl) {
 /* TPPaneKeyDownProc is called whenever a keydown event is directed
     at our control.  Here, we direct the keydown event to the text
     edit record and redraw the scroll bar and text field as appropriate. */
 /* TPPaneKeyDownProc is called whenever a keydown event is directed
     at our control.  Here, we direct the keydown event to the text
     edit record and redraw the scroll bar and text field as appropriate. */

-static pascal ControlPartCode TPPaneKeyDownProc(ControlHandle theControl,
+static pascal ControlPartCode TPPaneKeyDownProc(ControlRef theControl,

                             SInt16 keyCode, SInt16 charCode, SInt16 modifiers) {
                             SInt16 keyCode, SInt16 charCode, SInt16 modifiers) {

-    STPTextPaneVars **tpvars;
-    tpvars = (STPTextPaneVars **) GetControlReference(theControl);
-    if (tpvars != NULL) {
-        if ((**tpvars).fInFocus) {
-                /* turn autoscrolling on and send the key event to text edit */
-            SetPort((**tpvars).fDrawingEnvironment);
-            wxMacWindowClipper clipper( wxFindControlFromMacControl(theControl ) ) ;
-            EventRecord ev ;
-            memset( &ev , 0 , sizeof( ev ) ) ;
-            ev.what = keyDown ;
-            ev.modifiers = modifiers ;
-            ev.message = (( keyCode << 8 ) & keyCodeMask ) + ( charCode & charCodeMask ) ;
-            TXNKeyDown( (**tpvars).fTXNRec, &ev);
-        }
+
+    wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(theControl);
+    if ( textctrl == NULL )
+        return 0;
+    TPUpdateVisibility( theControl ) ;
+
+    STPTextPaneVars *varsp = (STPTextPaneVars *) textctrl->m_macTXNvars ;
+    if (varsp->fInFocus) 
+    {
+            /* turn autoscrolling on and send the key event to text edit */
+        wxMacWindowClipper clipper( textctrl ) ;
+        EventRecord ev ;
+        memset( &ev , 0 , sizeof( ev ) ) ;
+        ev.what = keyDown ;
+        ev.modifiers = modifiers ;
+        ev.message = (( keyCode << 8 ) & keyCodeMask ) + ( charCode & charCodeMask ) ;
+        TXNKeyDown( varsp->fTXNRec, &ev);

     }
     return kControlEntireControl;
 }
     }
     return kControlEntireControl;
 }


@@ -412,33 +424,25 @@ static pascal ControlPartCode TPPaneKeyDownProc(ControlHandle theControl,
 /* TPPaneActivateProc is called when the window containing
     the user pane control receives activate events. Here, we redraw
     the control and it's text as necessary for the activation state. */
 /* TPPaneActivateProc is called when the window containing
     the user pane control receives activate events. Here, we redraw
     the control and it's text as necessary for the activation state. */

-static pascal void TPPaneActivateProc(ControlHandle theControl, Boolean activating) {
-    Rect bounds;
-    STPTextPaneVars **tpvars, *varsp;
-    char state;
+static pascal void TPPaneActivateProc(ControlRef theControl, Boolean activating) {

         /* set up locals */
         /* set up locals */

-    tpvars = (STPTextPaneVars **) GetControlReference(theControl);
-    if (tpvars != NULL) {
-        state = HGetState((Handle) tpvars);
-        HLock((Handle) tpvars);
-        varsp = *tpvars;
-            /* de/activate the text edit record */
-        SetPort((**tpvars).fDrawingEnvironment);
-        wxMacWindowClipper clipper( wxFindControlFromMacControl(theControl ) ) ;
-        GetControlBounds(theControl, &bounds);
-        varsp->fIsActive = activating;
-        TPActivatePaneText(tpvars, varsp->fIsActive && varsp->fInFocus);
-            /* redraw the frame */
-        if ( IsControlVisible( theControl ) )
-        {
-            if (!wxFindControlFromMacControl(theControl)->HasFlag(wxNO_BORDER))
-            {
-                DrawThemeEditTextFrame(&varsp->fRTextOutline, varsp->fIsActive ? kThemeStateActive: kThemeStateInactive);
-                if (varsp->fInFocus) 
-                    DrawThemeFocusRect(&varsp->fRFocusOutline, varsp->fIsActive);
-            }
-        }
-        HSetState((Handle) tpvars, state);
+    wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(theControl);
+    
+    if ( textctrl == NULL )
+        return ;
+    TPUpdateVisibility( theControl ) ;
+    
+    STPTextPaneVars *varsp = (STPTextPaneVars *) textctrl->m_macTXNvars ;
+
+    varsp->fIsActive = activating;
+    wxMacWindowClipper clipper( textctrl ) ;
+    TPActivatePaneText(varsp, varsp->fIsActive && varsp->fInFocus);
+        /* redraw the frame */
+    if ( textctrl->MacIsReallyShown() )
+    {
+        if ( !varsp->fNoBorders )
+               DrawThemeEditTextFrame(&varsp->fRTextOutline, varsp->fIsActive ? kThemeStateActive: kThemeStateInactive);
+        TPRedrawFocusOutline( varsp ) ;

     }
 }
 
     }
 }
 


@@ -447,67 +451,58 @@ static pascal void TPPaneActivateProc(ControlHandle theControl, Boolean activati
     from our control.  Herein, switch the focus appropriately
     according to the parameters and redraw the control as
     necessary.  */
     from our control.  Herein, switch the focus appropriately
     according to the parameters and redraw the control as
     necessary.  */

-static pascal ControlPartCode TPPaneFocusProc(ControlHandle theControl, ControlFocusPart action) {
+static pascal ControlPartCode TPPaneFocusProc(ControlRef theControl, ControlFocusPart action) {

     ControlPartCode focusResult;
     ControlPartCode focusResult;

-    STPTextPaneVars **tpvars, *varsp;
-    char state;
-        /* set up locals */
+

     focusResult = kControlFocusNoPart;
     focusResult = kControlFocusNoPart;

-    tpvars = (STPTextPaneVars **) GetControlReference(theControl);
-    if (tpvars != NULL ) {
-        state = HGetState((Handle) tpvars);
-        HLock((Handle) tpvars);
-        varsp = *tpvars;
-            /* if kControlFocusPrevPart and kControlFocusNextPart are received when the user is
-            tabbing forwards (or shift tabbing backwards) through the items in the dialog,
-            and kControlFocusNextPart will be received.  When the user clicks in our field
-            and it is not the current focus, then the constant kUserClickedToFocusPart will
-            be received.  The constant kControlFocusNoPart will be received when our control
-            is the current focus and the user clicks in another control.  In your focus routine,
-            you should respond to these codes as follows:
-
-            kControlFocusNoPart - turn off focus and return kControlFocusNoPart.  redraw
-                the control and the focus rectangle as necessary.
-
-            kControlFocusPrevPart or kControlFocusNextPart - toggle focus on or off
-                depending on its current state.  redraw the control and the focus rectangle
-                as appropriate for the new focus state.  If the focus state is 'off', return the constant
-                kControlFocusNoPart, otherwise return a non-zero part code.
-            kUserClickedToFocusPart - is a constant defined for this example.  You should
-                define your own value for handling click-to-focus type events. */
-             /* calculate the next highlight state */
-        switch (action) {
-            default:
-            case kControlFocusNoPart:
-                TPFocusPaneText(tpvars, false);
-                focusResult = kControlFocusNoPart;
-                break;
-            case kUserClickedToFocusPart:
-                TPFocusPaneText(tpvars, true);
-                focusResult = 1;
-                break;
-            case kControlFocusPrevPart:
-            case kControlFocusNextPart:
-                TPFocusPaneText(tpvars, ( ! varsp->fInFocus));
-                focusResult = varsp->fInFocus ? 1 : kControlFocusNoPart;
-                break;
-        }
-        TPActivatePaneText(tpvars, varsp->fIsActive && varsp->fInFocus);
-        /* redraw the text fram and focus rectangle to indicate the
-        new focus state */
-        if ( IsControlVisible( theControl ) )
-        {
-            if (!wxFindControlFromMacControl(theControl)->HasFlag(wxNO_BORDER))
-            {
-                       /* save the drawing state */
-                       SetPort((**tpvars).fDrawingEnvironment);
-                       wxMacWindowClipper clipper( wxFindControlFromMacControl(theControl ) ) ;
-                DrawThemeEditTextFrame(&varsp->fRTextOutline, varsp->fIsActive ? kThemeStateActive: kThemeStateInactive);
-                DrawThemeFocusRect(&varsp->fRFocusOutline, varsp->fIsActive && varsp->fInFocus);
-            }
-        }
-            /* done */
-        HSetState((Handle) tpvars, state);
+    wxTextCtrl* textctrl = (wxTextCtrl*) GetControlReference(theControl);
+    if ( textctrl == NULL )
+        return 0;
+    TPUpdateVisibility( theControl ) ;
+    STPTextPaneVars *varsp = (STPTextPaneVars *) textctrl->m_macTXNvars ;
+        /* if kControlFocusPrevPart and kControlFocusNextPart are received when the user is
+        tabbing forwards (or shift tabbing backwards) through the items in the dialog,
+        and kControlFocusNextPart will be received.  When the user clicks in our field
+        and it is not the current focus, then the constant kUserClickedToFocusPart will
+        be received.  The constant kControlFocusNoPart will be received when our control
+        is the current focus and the user clicks in another control.  In your focus routine,
+        you should respond to these codes as follows:
+
+        kControlFocusNoPart - turn off focus and return kControlFocusNoPart.  redraw
+            the control and the focus rectangle as necessary.
+
+        kControlFocusPrevPart or kControlFocusNextPart - toggle focus on or off
+            depending on its current state.  redraw the control and the focus rectangle
+            as appropriate for the new focus state.  If the focus state is 'off', return the constant
+            kControlFocusNoPart, otherwise return a non-zero part code.
+        kUserClickedToFocusPart - is a constant defined for this example.  You should
+            define your own value for handling click-to-focus type events. */
+         /* calculate the next highlight state */
+    switch (action) {
+        default:
+        case kControlFocusNoPart:
+            TPFocusPaneText(varsp, false);
+            focusResult = kControlFocusNoPart;
+            break;
+        case kUserClickedToFocusPart:
+            TPFocusPaneText(varsp, true);
+            focusResult = 1;
+            break;
+        case kControlFocusPrevPart:
+        case kControlFocusNextPart:
+            TPFocusPaneText(varsp, ( ! varsp->fInFocus));
+            focusResult = varsp->fInFocus ? 1 : kControlFocusNoPart;
+            break;
+    }
+    TPActivatePaneText(varsp, varsp->fIsActive && varsp->fInFocus);
+    /* redraw the text fram and focus rectangle to indicate the
+    new focus state */
+    if ( textctrl->MacIsReallyShown() )
+    {
+        wxMacWindowClipper c( textctrl ) ;
+        if ( !varsp->fNoBorders )
+               DrawThemeEditTextFrame(&varsp->fRTextOutline, varsp->fIsActive ? kThemeStateActive: kThemeStateInactive);
+        TPRedrawFocusOutline( varsp ) ;

     }
     return focusResult;
 }
     }
     return focusResult;
 }


@@ -520,14 +515,12 @@ static pascal ControlPartCode TPPaneFocusProc(ControlHandle theControl, ControlF
     should refer to a user pane control that you have either created
     yourself or extracted from a dialog's control heirarchy using
     the GetDialogItemAsControl routine.  */
     should refer to a user pane control that you have either created
     yourself or extracted from a dialog's control heirarchy using
     the GetDialogItemAsControl routine.  */

-OSStatus mUPOpenControl(ControlHandle theControl, long wxStyle )
+OSStatus mUPOpenControl(STPTextPaneVars* &handle, ControlRef theControl, long wxStyle )

 {
     Rect bounds;
     WindowRef theWindow;
 {
     Rect bounds;
     WindowRef theWindow;

-    STPTextPaneVars **tpvars, *varsp;
+    STPTextPaneVars *varsp;

     OSStatus err = noErr ;
     OSStatus err = noErr ;

-    RGBColor rgbWhite = {0xFFFF, 0xFFFF, 0xFFFF};
-    TXNBackground tback;

 
         /* set up our globals */
     if (gTPDrawProc == NULL) gTPDrawProc = NewControlUserPaneDrawUPP(TPPaneDrawProc);
 
         /* set up our globals */
     if (gTPDrawProc == NULL) gTPDrawProc = NewControlUserPaneDrawUPP(TPPaneDrawProc);


@@ -539,21 +532,23 @@ OSStatus mUPOpenControl(ControlHandle theControl, long wxStyle )
     if (gTPFocusProc == NULL) gTPFocusProc = NewControlUserPaneFocusUPP(TPPaneFocusProc);
 
         /* allocate our private storage */
     if (gTPFocusProc == NULL) gTPFocusProc = NewControlUserPaneFocusUPP(TPPaneFocusProc);
 
         /* allocate our private storage */

-    tpvars = (STPTextPaneVars **) NewHandleClear(sizeof(STPTextPaneVars));
-    SetControlReference(theControl, (long) tpvars);
-    HLock((Handle) tpvars);
-    varsp = *tpvars;
+    varsp = (STPTextPaneVars *) malloc(sizeof(STPTextPaneVars));
+    handle = varsp ;    
+

         /* set the initial settings for our private data */
     varsp->fMultiline = wxStyle & wxTE_MULTILINE ;
         /* set the initial settings for our private data */
     varsp->fMultiline = wxStyle & wxTE_MULTILINE ;

+    varsp->fNoBorders = wxStyle & wxNO_BORDER ;

     varsp->fInFocus = false;
     varsp->fIsActive = true;
     varsp->fInFocus = false;
     varsp->fIsActive = true;

-    varsp->fTEActive = true; // in order to get a deactivate
+    varsp->fTXNObjectActive = false; 
+    varsp->fFocusDrawState = false ;

     varsp->fUserPaneRec = theControl;
     varsp->fUserPaneRec = theControl;

+    varsp->fVisible = true ;
+    

     theWindow = varsp->fOwner = GetControlOwner(theControl);
 
     varsp->fDrawingEnvironment = (GrafPtr)  GetWindowPort(theWindow);
 
     theWindow = varsp->fOwner = GetControlOwner(theControl);
 
     varsp->fDrawingEnvironment = (GrafPtr)  GetWindowPort(theWindow);
 

-    varsp->fInDialogWindow = ( GetWindowKind(varsp->fOwner) == kDialogWindowKind );

         /* set up the user pane procedures */
     SetControlData(theControl, kControlEntireControl, kControlUserPaneDrawProcTag, sizeof(gTPDrawProc), &gTPDrawProc);
     SetControlData(theControl, kControlEntireControl, kControlUserPaneHitTestProcTag, sizeof(gTPHitProc), &gTPHitProc);
         /* set up the user pane procedures */
     SetControlData(theControl, kControlEntireControl, kControlUserPaneDrawProcTag, sizeof(gTPDrawProc), &gTPDrawProc);
     SetControlData(theControl, kControlEntireControl, kControlUserPaneHitTestProcTag, sizeof(gTPHitProc), &gTPHitProc);


@@ -562,25 +557,11 @@ OSStatus mUPOpenControl(ControlHandle theControl, long wxStyle )
     SetControlData(theControl, kControlEntireControl, kControlUserPaneKeyDownProcTag, sizeof(gTPKeyProc), &gTPKeyProc);
     SetControlData(theControl, kControlEntireControl, kControlUserPaneActivateProcTag, sizeof(gTPActivateProc), &gTPActivateProc);
     SetControlData(theControl, kControlEntireControl, kControlUserPaneFocusProcTag, sizeof(gTPFocusProc), &gTPFocusProc);
     SetControlData(theControl, kControlEntireControl, kControlUserPaneKeyDownProcTag, sizeof(gTPKeyProc), &gTPKeyProc);
     SetControlData(theControl, kControlEntireControl, kControlUserPaneActivateProcTag, sizeof(gTPActivateProc), &gTPActivateProc);
     SetControlData(theControl, kControlEntireControl, kControlUserPaneFocusProcTag, sizeof(gTPFocusProc), &gTPFocusProc);

+

         /* calculate the rectangles used by the control */
         /* calculate the rectangles used by the control */

-    GetControlBounds(theControl, &bounds);
-    SetRect(&varsp->fRFocusOutline, bounds.left, bounds.top, bounds.right, bounds.bottom);
-    SetRect(&varsp->fRTextOutline, bounds.left, bounds.top, bounds.right, bounds.bottom);
-    if ((wxStyle & wxNO_BORDER) != wxNO_BORDER)
-    {
-        SetRect(&varsp->fRTextArea, bounds.left + 2 , bounds.top + (varsp->fMultiline ? 0 : 2) ,
-                bounds.right - (varsp->fMultiline ? 0 : 2), bounds.bottom - (varsp->fMultiline ? 0 : 2));
-    }
-    else
-    {
-        SetRect(&varsp->fRTextArea, bounds.left , bounds.top ,
-                bounds.right, bounds.bottom);
-    }
-    
-        /* calculate the background region for the text.  In this case, it's kindof
-        and irregular region because we're setting the scroll bar a little ways inside
-        of the text area. */
-    RectRgn((varsp->fTextBackgroundRgn = NewRgn()), &varsp->fRTextOutline);
+    UMAGetControlBoundsInWindowCoords(theControl, &bounds);
+    varsp->fRTextOutlineRegion = NewRgn() ;
+    TPCalculateBounds( varsp , bounds ) ;

 
         /* set up the drawing environment */
     SetPort(varsp->fDrawingEnvironment);
 
         /* set up the drawing environment */
     SetPort(varsp->fDrawingEnvironment);


@@ -608,55 +589,50 @@ OSStatus mUPOpenControl(ControlHandle theControl, long wxStyle )
     else
         frameOptions |= kTXNSingleLineOnlyMask ;
 
     else
         frameOptions |= kTXNSingleLineOnlyMask ;
 

-    if ( wxStyle & wxTE_READONLY )
-        frameOptions |= kTXNReadOnlyMask ;
-
-    TXNNewObject(NULL, varsp->fOwner, &varsp->fRTextArea,
+    verify_noerr(TXNNewObject(NULL, varsp->fOwner, &varsp->fRTextArea,

         frameOptions ,
         kTXNTextEditStyleFrameType,
         kTXNTextensionFile,
         kTXNSystemDefaultEncoding,
         frameOptions ,
         kTXNTextEditStyleFrameType,
         kTXNTextensionFile,
         kTXNSystemDefaultEncoding,

-        &varsp->fTXNRec, &varsp->fTXNFrame, (TXNObjectRefcon) tpvars);
+        &varsp->fTXNRec, &varsp->fTXNFrame, (TXNObjectRefcon) varsp));
+
+    TXNControlTag iControlTags[3] = { kTXNDoFontSubstitution, kTXNWordWrapStateTag };
+    TXNControlData iControlData[3] = { {false}, {kTXNAutoWrap} };
+    int toptag = 2 ;
+#if TARGET_API_MAC_OSX
+    iControlTags[2] = kTXNVisibilityTag ;
+    iControlData[2].uValue = false ;
+    toptag++ ;
+#endif        
+    iControlData[1].uValue = varsp->fVisible ;
+    
+    if ( (wxStyle & wxTE_MULTILINE) && (wxStyle & wxTE_DONTWRAP) )
+        iControlData[2].uValue = kTXNNoAutoWrap ;

 
 

-    if ( !IsControlVisible( theControl ) )
-        TXNSetFrameBounds(  varsp->fTXNRec, varsp->fRTextArea.top + 30000 , varsp->fRTextArea.left + 30000 ,
-            varsp->fRTextArea.bottom + 30000 , varsp->fRTextArea.right + 30000 , varsp->fTXNFrame);
+    verify_noerr( TXNSetTXNObjectControls( varsp->fTXNRec, false, toptag,
+                                        iControlTags, iControlData )) ;

 
 

+    Str255 fontName ;
+    SInt16 fontSize ;
+    Style fontStyle ;

 
 

-    if ( (wxStyle & wxTE_MULTILINE) && (wxStyle & wxTE_DONTWRAP) )
-    {
-        TXNControlTag tag = kTXNWordWrapStateTag ;
-        TXNControlData dat ;
-        dat.uValue = kTXNNoAutoWrap ;
-        TXNSetTXNObjectControls( varsp->fTXNRec , false , 1 , &tag , &dat ) ;
-    }
-        Str255 fontName ;
-        SInt16 fontSize ;
-        Style fontStyle ;
-
-        GetThemeFont(kThemeSmallSystemFont , GetApplicationScript() , fontName , &fontSize , &fontStyle ) ;
+    GetThemeFont(kThemeSmallSystemFont , GetApplicationScript() , fontName , &fontSize , &fontStyle ) ;

 
 

-        TXNTypeAttributes typeAttr[] =
-        {
-            {   kTXNQDFontNameAttribute , kTXNQDFontNameAttributeSize , { (void*) fontName } } ,
-            {   kTXNQDFontSizeAttribute , kTXNFontSizeAttributeSize , { (void*) (fontSize << 16) } } ,
-            {   kTXNQDFontStyleAttribute , kTXNQDFontStyleAttributeSize , {  (void*) normal } } ,
-        } ;
+    TXNTypeAttributes typeAttr[] =
+    {
+        {   kTXNQDFontNameAttribute , kTXNQDFontNameAttributeSize , { (void*) fontName } } ,
+        {   kTXNQDFontSizeAttribute , kTXNFontSizeAttributeSize , { (void*) (fontSize << 16) } } ,
+        {   kTXNQDFontStyleAttribute , kTXNQDFontStyleAttributeSize , {  (void*) normal } } ,
+    } ;

 
     err = TXNSetTypeAttributes (varsp->fTXNRec, sizeof( typeAttr ) / sizeof(TXNTypeAttributes) , typeAttr,
           kTXNStartOffset,
           kTXNEndOffset);
 
     err = TXNSetTypeAttributes (varsp->fTXNRec, sizeof( typeAttr ) / sizeof(TXNTypeAttributes) , typeAttr,
           kTXNStartOffset,
           kTXNEndOffset);

-        /* set the field's background */

 
 

-    tback.bgType = kTXNBackgroundTypeRGB;
-    tback.bg.color = rgbWhite;
-    TXNSetBackground( varsp->fTXNRec, &tback);

 
 

-        /* unlock our storage */
-    HUnlock((Handle) tpvars);

         /* perform final activations and setup for our text field.  Here,
         we assume that the window is going to be the 'active' window. */
         /* perform final activations and setup for our text field.  Here,
         we assume that the window is going to be the 'active' window. */

-    TPActivatePaneText(tpvars, varsp->fIsActive && varsp->fInFocus);
+    TPActivatePaneText(varsp, varsp->fIsActive && varsp->fInFocus);

         /* all done */
     return err;
 }
         /* all done */
     return err;
 }


@@ -684,7 +660,7 @@ BEGIN_EVENT_TABLE(wxTextCtrl, wxControl)
 END_EVENT_TABLE()
 #endif
 
 END_EVENT_TABLE()
 #endif
 

-static void SetTXNData( TXNObject txn , const wxString& st , TXNOffset start , TXNOffset end )
+static void SetTXNData( STPTextPaneVars *varsp, TXNObject txn , const wxString& st , TXNOffset start , TXNOffset end )

 {
 #if wxUSE_UNICODE
 #if SIZEOF_WCHAR_T == 2
 {
 #if wxUSE_UNICODE
 #if SIZEOF_WCHAR_T == 2


@@ -704,16 +680,14 @@ static void SetTXNData( TXNObject txn , const wxString& st , TXNOffset start , T
        wxCharBuffer text =  st.mb_str(wxConvLocal)  ;
     TXNSetData( txn , kTXNTextData,  (void*)text.data(), strlen( text ) ,
       start, end);
        wxCharBuffer text =  st.mb_str(wxConvLocal)  ;
     TXNSetData( txn , kTXNTextData,  (void*)text.data(), strlen( text ) ,
       start, end);

-#endif    
+#endif  

 }
 
 // Text item
 void wxTextCtrl::Init()
 {
 }
 
 // Text item
 void wxTextCtrl::Init()
 {

-  m_macTE = NULL ;

   m_macTXN = NULL ;
   m_macTXNvars = NULL ;
   m_macTXN = NULL ;
   m_macTXNvars = NULL ;

-  m_macUsesTXN = false ;

 
   m_editable = true ;
   m_dirty = false;
 
   m_editable = true ;
   m_dirty = false;


@@ -723,18 +697,13 @@ void wxTextCtrl::Init()
 
 wxTextCtrl::~wxTextCtrl()
 {
 
 wxTextCtrl::~wxTextCtrl()
 {

-    if ( m_macUsesTXN )
-    {
-        SetControlReference((ControlHandle)m_macControl, 0) ;
-        TXNDeleteObject((TXNObject)m_macTXN);
-        /* delete our private storage */
-        DisposeHandle((Handle) m_macTXNvars);
-        /* zero the control reference */
-    }
+    SetControlReference((ControlRef)m_macControl, 0) ;
+    TXNDeleteObject((TXNObject)m_macTXN);
+    /* delete our private storage */
+    free(m_macTXNvars);
+    /* zero the control reference */

 }
 
 }
 

-const short kVerticalMargin = 2 ;
-const short kHorizontalMargin = 2 ;

 
 bool wxTextCtrl::Create(wxWindow *parent, wxWindowID id,
            const wxString& str,
 
 bool wxTextCtrl::Create(wxWindow *parent, wxWindowID id,
            const wxString& str,


@@ -743,51 +712,19 @@ bool wxTextCtrl::Create(wxWindow *parent, wxWindowID id,
            const wxValidator& validator,
            const wxString& name)
 {
            const wxValidator& validator,
            const wxString& name)
 {

-    m_macTE = NULL ;
+    m_macIsUserPane = FALSE ;
+    

     m_macTXN = NULL ;
     m_macTXNvars = NULL ;
     m_macTXN = NULL ;
     m_macTXNvars = NULL ;

-    m_macUsesTXN = false ;

     m_editable = true ;
 
     m_editable = true ;
 

-    m_macUsesTXN = ! (style & wxTE_PASSWORD ) ;
-
-    m_macUsesTXN &= (TXNInitTextension != (void*) kUnresolvedCFragSymbolAddress) ;
-

     // base initialization
     if ( !wxTextCtrlBase::Create(parent, id, pos, size, style & ~(wxHSCROLL|wxVSCROLL), validator, name) )
         return FALSE;
 
     wxSize mySize = size ;
     // base initialization
     if ( !wxTextCtrlBase::Create(parent, id, pos, size, style & ~(wxHSCROLL|wxVSCROLL), validator, name) )
         return FALSE;
 
     wxSize mySize = size ;

-    if (style & wxNO_BORDER)
-    {
-        m_macHorizontalBorder = 0 ;
-        m_macVerticalBorder = 0 ;
-    }
-    else if ( m_macUsesTXN )
-    {
-        m_macHorizontalBorder = 5 ; // additional pixels around the real control
-        m_macVerticalBorder = 3 ;
-    }
-    else
-    {
-        m_macHorizontalBorder = 5 ; // additional pixels around the real control
-        m_macVerticalBorder = 5 ;
-    }

 
 

-
-    Rect bounds ;
-    Str255 title ;
-    /*
-    if ( mySize.y == -1 )
-    {
-        mySize.y = 13 ;
-        if ( m_windowStyle & wxTE_MULTILINE )
-            mySize.y *= 5 ;
-
-        mySize.y += 2 * m_macVerticalBorder ;
-    }
-    */
-    MacPreControlCreate( parent , id ,  wxEmptyString , pos , mySize ,style, validator , name , &bounds , title ) ;
+    Rect bounds = wxMacGetBoundsForControl( this , pos , size ) ;    

 
     if ( m_windowStyle & wxTE_MULTILINE )
     {
 
     if ( m_windowStyle & wxTE_MULTILINE )
     {


@@ -797,22 +734,8 @@ bool wxTextCtrl::Create(wxWindow *parent, wxWindowID id,
         m_windowStyle |= wxTE_PROCESS_ENTER;
     }
 
         m_windowStyle |= wxTE_PROCESS_ENTER;
     }
 

-    if ( m_windowStyle & wxTE_READONLY)
-    {
-        m_editable = FALSE ;
-    }
-

     wxString st = str ;
     wxMacConvertNewlines13To10( &st ) ;
     wxString st = str ;
     wxMacConvertNewlines13To10( &st ) ;

-    if ( !m_macUsesTXN )
-    {
-        m_macControl = ::NewControl( MAC_WXHWND(parent->MacGetRootWindow()) , &bounds , "\p" , false , 0 , 0 , 1,
-            (style & wxTE_PASSWORD) ? kControlEditTextPasswordProc : kControlEditTextProc , (long) this ) ;
-        long size ;
-        ::GetControlData((ControlHandle)  m_macControl , 0, kControlEditTextTEHandleTag , sizeof( TEHandle ) , (char*)((TEHandle *)&m_macTE) , &size ) ;
-
-    }
-    else

     {
         short featurSet;
 
     {
         short featurSet;
 


@@ -820,57 +743,70 @@ bool wxTextCtrl::Create(wxWindow *parent, wxWindowID id,
                 | kControlWantsActivate | kControlHandlesTracking | kControlHasSpecialBackground
                 | kControlGetsFocusOnClick | kControlSupportsLiveFeedback;
             /* create the control */
                 | kControlWantsActivate | kControlHandlesTracking | kControlHasSpecialBackground
                 | kControlGetsFocusOnClick | kControlSupportsLiveFeedback;
             /* create the control */

-        m_macControl = NewControl(MAC_WXHWND(parent->MacGetRootWindow()), &bounds, "\p", false , featurSet, 0, featurSet, kControlUserPaneProc, 0);
+        m_macControl = (WXWidget) ::NewControl(MAC_WXHWND(parent->MacGetTopLevelWindowRef()), &bounds, "\p", true , featurSet, 0, featurSet, kControlUserPaneProc,  (long) this );

             /* set up the mUP specific features and data */
             /* set up the mUP specific features and data */

-        mUPOpenControl((ControlHandle) m_macControl, m_windowStyle );
+        wxMacWindowClipper c(this) ;
+        STPTextPaneVars *varsp ;
+        mUPOpenControl( varsp, (ControlRef) m_macControl, m_windowStyle );
+        m_macTXNvars = varsp ;
+        m_macTXN =  varsp->fTXNRec ;
+        if ( style & wxTE_PASSWORD )
+        {
+            UniChar c = 0xA5 ;
+            verify_noerr(TXNEchoMode( (TXNObject) m_macTXN , c , 0 , true )) ;
+        }

     }
     }

-    MacPostControlCreate() ;
+    MacPostControlCreate(pos,size) ;
+        
+    if ( MacIsReallyShown() )
+        MLTESetObjectVisibility( (STPTextPaneVars*) m_macTXNvars, true , GetWindowStyle() ) ;

 
 

-    if ( !m_macUsesTXN )
-    {
-       wxCharBuffer text = st.mb_str(wxConvLocal) ;
-        ::SetControlData( (ControlHandle) m_macControl, 0, ( m_windowStyle & wxTE_PASSWORD ) ? kControlEditTextPasswordTag : kControlEditTextTextTag , strlen(text) , text ) ;
-    }
-    else

     {
     {

-        STPTextPaneVars **tpvars;
-            /* set up locals */
-        tpvars = (STPTextPaneVars **) GetControlReference((ControlHandle) m_macControl);
-            /* set the text in the record */
-        m_macTXN =  (**tpvars).fTXNRec ;
-        SetTXNData( (TXNObject) m_macTXN , st , kTXNStartOffset, kTXNEndOffset ) ;
-        m_macTXNvars = tpvars ;
-        m_macUsesTXN = true ;
+       wxMacWindowClipper clipper( this ) ;
+        TPUpdateVisibility( (ControlRef) m_macControl ) ;
+        SetTXNData( (STPTextPaneVars *)m_macTXNvars , (TXNObject) m_macTXN , st , kTXNStartOffset, kTXNEndOffset ) ;
+

         TXNSetSelection( (TXNObject) m_macTXN, 0, 0);
         TXNShowSelection( (TXNObject) m_macTXN, kTXNShowStart);
     }
         TXNSetSelection( (TXNObject) m_macTXN, 0, 0);
         TXNShowSelection( (TXNObject) m_macTXN, kTXNShowStart);
     }

+    
+    // in case MLTE is catching events before we get the chance to do so, we'd have to reintroduce the tlw-handler in front :
+    // parent->MacGetTopLevelWindow()->MacInstallTopLevelWindowEventHandler() ;
+
+    SetBackgroundColour( *wxWHITE ) ;
+
+    TXNBackground tback;
+    tback.bgType = kTXNBackgroundTypeRGB;
+    tback.bg.color = MAC_WXCOLORREF( GetBackgroundColour().GetPixel() );
+    TXNSetBackground( (TXNObject) m_macTXN , &tback);
+
+    if ( m_windowStyle & wxTE_READONLY)
+    {
+        SetEditable( false ) ;
+    }

 
     return TRUE;
 }
 
 
     return TRUE;
 }
 

+void wxTextCtrl::MacVisibilityChanged() 
+{
+    MLTESetObjectVisibility((STPTextPaneVars*) m_macTXNvars , MacIsReallyShown() , GetWindowStyle() ) ;
+    if ( !MacIsReallyShown() )
+        InvalWindowRect( GetControlOwner( (ControlHandle) m_macControl ) , &((STPTextPaneVars *)m_macTXNvars)->fRBounds ) ;
+
+}
+
+void wxTextCtrl::MacEnabledStateChanged() 
+{
+}
+
+

 wxString wxTextCtrl::GetValue() const
 {
     Size actualSize = 0;
     wxString result ;
     OSStatus err ;
 wxString wxTextCtrl::GetValue() const
 {
     Size actualSize = 0;
     wxString result ;
     OSStatus err ;

-    if ( !m_macUsesTXN )
-    {
-        err = ::GetControlDataSize((ControlHandle) m_macControl, 0,
-            ( m_windowStyle & wxTE_PASSWORD ) ? kControlEditTextPasswordTag : kControlEditTextTextTag, &actualSize ) ;
-
-       if ( err )
-           return wxEmptyString ;
-
-       if ( actualSize > 0 )
-       {
-                       wxCharBuffer buf(actualSize) ;
-            ::GetControlData( (ControlHandle) m_macControl, 0,
-                ( m_windowStyle & wxTE_PASSWORD ) ? kControlEditTextPasswordTag : kControlEditTextTextTag,
-                actualSize , buf.data() , &actualSize ) ;
-            result = wxString( buf , wxConvLocal) ;
-        }
-    }
-    else
+

     {
 #if wxUSE_UNICODE
         Handle theText ;
     {
 #if wxUSE_UNICODE
         Handle theText ;


@@ -885,17 +821,26 @@ wxString wxTextCtrl::GetValue() const
             actualSize = GetHandleSize( theText ) / sizeof( UniChar) ;
             if ( actualSize > 0 )
             {
             actualSize = GetHandleSize( theText ) / sizeof( UniChar) ;
             if ( actualSize > 0 )
             {

-                wxChar *ptr = result.GetWriteBuf(actualSize*sizeof(wxChar)) ;
-#if SIZEOF_WCHAR_T == 2                                
+                wxChar *ptr = NULL ;
+#if SIZEOF_WCHAR_T == 2                
+                ptr = new wxChar[actualSize + 1 ] ;            

                 wxStrncpy( ptr , (wxChar*) *theText , actualSize ) ;
                 wxStrncpy( ptr , (wxChar*) *theText , actualSize ) ;

+                

 #else
 #else

-                               wxMBConvUTF16BE converter ;
+                SetHandleSize( theText , ( actualSize + 1 ) * sizeof( UniChar ) ) ;

                                HLock( theText ) ;
                                HLock( theText ) ;

-                               converter.MB2WC( ptr , (const char*)*theText , actualSize ) ;
+                (((UniChar*)*theText)[actualSize]) = 0 ;
+                               wxMBConvUTF16BE 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 ;
                                HUnlock( theText ) ;
 #endif
                 ptr[actualSize] = 0 ;

-                result.UngetWriteBuf( actualSize *sizeof(wxChar) ) ;
+                result = wxString( ptr ) ;
+                delete[] ptr ;

             }
             DisposeHandle( theText ) ;
         }
             }
             DisposeHandle( theText ) ;
         }


@@ -926,38 +871,32 @@ wxString wxTextCtrl::GetValue() const
 
 void wxTextCtrl::GetSelection(long* from, long* to) const
 {
 
 void wxTextCtrl::GetSelection(long* from, long* to) const
 {

-  if ( !m_macUsesTXN )
-  {
-    *from = (**((TEHandle) m_macTE)).selStart;
-    *to = (**((TEHandle) m_macTE)).selEnd;
-   }
-   else
-   {
-        TXNGetSelection( (TXNObject) m_macTXN , (TXNOffset*) from , (TXNOffset*) to ) ;
-   }
+   TXNGetSelection( (TXNObject) m_macTXN , (TXNOffset*) from , (TXNOffset*) to ) ;

 }
 
 void wxTextCtrl::SetValue(const wxString& str)
 {
 }
 
 void wxTextCtrl::SetValue(const wxString& str)
 {

+    // optimize redraws
+    if ( GetValue() == str )
+        return ;
+

     wxString st = str ;
     wxMacConvertNewlines13To10( &st ) ;
     wxString st = str ;
     wxMacConvertNewlines13To10( &st ) ;

-    if ( !m_macUsesTXN )
-    {
-       wxCharBuffer text =  st.mb_str(wxConvLocal) ;
-        ::SetControlData( (ControlHandle) m_macControl, 0, ( m_windowStyle & wxTE_PASSWORD ) ? kControlEditTextPasswordTag : kControlEditTextTextTag , strlen(text) , text ) ;
-    }
-    else
+

     {
     {

+        wxMacWindowClipper c( this ) ;

         bool formerEditable = m_editable ;
         if ( !formerEditable )
             SetEditable(true) ;
         bool formerEditable = m_editable ;
         if ( !formerEditable )
             SetEditable(true) ;

-        SetTXNData( (TXNObject) m_macTXN , st , kTXNStartOffset, kTXNEndOffset ) ;
+
+        // otherwise scrolling might have problems ?
+        TPUpdateVisibility( ( (STPTextPaneVars *)m_macTXNvars)->fUserPaneRec ) ;
+        SetTXNData( (STPTextPaneVars *)m_macTXNvars , (TXNObject) m_macTXN , st , kTXNStartOffset, kTXNEndOffset ) ;

         TXNSetSelection( (TXNObject) m_macTXN, 0, 0);
         TXNShowSelection( (TXNObject) m_macTXN, kTXNShowStart);
         if ( !formerEditable )
             SetEditable(formerEditable) ;
     }
         TXNSetSelection( (TXNObject) m_macTXN, 0, 0);
         TXNShowSelection( (TXNObject) m_macTXN, kTXNShowStart);
         if ( !formerEditable )
             SetEditable(formerEditable) ;
     }

-    MacRedrawControl() ;

 }
 
 void wxTextCtrl::SetMaxLength(unsigned long len)
 }
 
 void wxTextCtrl::SetMaxLength(unsigned long len)


@@ -965,63 +904,101 @@ void wxTextCtrl::SetMaxLength(unsigned long len)
     m_maxLength = len ;
 }
 
     m_maxLength = len ;
 }
 

+bool wxTextCtrl::SetFont( const wxFont& font )
+{
+    if ( !wxTextCtrlBase::SetFont( font ) )
+        return FALSE ;
+        
+    wxMacWindowClipper c( this ) ;
+    bool formerEditable = m_editable ;
+    if ( !formerEditable )
+        SetEditable(true) ;
+
+    TXNTypeAttributes typeAttr[4] ;
+    Str255 fontName = "\pMonaco" ;
+    SInt16 fontSize = 12 ;
+    Style fontStyle = normal ;
+    int attrCounter = 0 ;
+
+    wxMacStringToPascal( font.GetFaceName() , fontName ) ;
+    fontSize = font.MacGetFontSize() ;
+    fontStyle = font.MacGetFontStyle() ;
+
+    typeAttr[attrCounter].tag = kTXNQDFontNameAttribute ;
+    typeAttr[attrCounter].size = kTXNQDFontNameAttributeSize ;
+    typeAttr[attrCounter].data.dataPtr = (void*) fontName ;
+    typeAttr[attrCounter+1].tag = kTXNQDFontSizeAttribute ;
+    typeAttr[attrCounter+1].size = kTXNFontSizeAttributeSize ;
+    typeAttr[attrCounter+1].data.dataValue =  (fontSize << 16) ;
+    typeAttr[attrCounter+2].tag = kTXNQDFontStyleAttribute ;
+    typeAttr[attrCounter+2].size = kTXNQDFontStyleAttributeSize ;
+    typeAttr[attrCounter+2].data.dataValue = fontStyle ;
+    attrCounter += 3 ;
+    /*
+    typeAttr[attrCounter].tag = kTXNQDFontColorAttribute ;
+    typeAttr[attrCounter].size = kTXNQDFontColorAttributeSize ;
+    typeAttr[attrCounter].data.dataPtr = (void*) &color ;
+    color = MAC_WXCOLORREF(GetForegroundColour().GetPixel()) ;
+    attrCounter += 1 ;
+    */
+    verify_noerr( TXNSetTypeAttributes ((TXNObject)m_macTXN, attrCounter , typeAttr, kTXNStartOffset,kTXNEndOffset) );
+
+    if ( !formerEditable )
+        SetEditable(formerEditable) ;
+    return true ;
+}
+

 bool wxTextCtrl::SetStyle(long start, long end, const wxTextAttr& style)
 {
 bool wxTextCtrl::SetStyle(long start, long end, const wxTextAttr& style)
 {

-    if ( m_macUsesTXN )
+    bool formerEditable = m_editable ;
+    if ( !formerEditable )
+        SetEditable(true) ;
+    TXNTypeAttributes typeAttr[4] ;
+    Str255 fontName = "\pMonaco" ;
+    SInt16 fontSize = 12 ;
+    Style fontStyle = normal ;
+    RGBColor color ;
+    int attrCounter = 0 ;
+    if ( style.HasFont() )

     {
     {

-        bool formerEditable = m_editable ;
-        if ( !formerEditable )
-            SetEditable(true) ;
-        TXNTypeAttributes typeAttr[4] ;
-        Str255 fontName = "\pMonaco" ;
-        SInt16 fontSize = 12 ;
-        Style fontStyle = normal ;
-        RGBColor color ;
-        int attrCounter = 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[attrCounter].tag = kTXNQDFontNameAttribute ;
-            typeAttr[attrCounter].size = kTXNQDFontNameAttributeSize ;
-            typeAttr[attrCounter].data.dataPtr = (void*) fontName ;
-            typeAttr[attrCounter+1].tag = kTXNQDFontSizeAttribute ;
-            typeAttr[attrCounter+1].size = kTXNFontSizeAttributeSize ;
-            typeAttr[attrCounter+1].data.dataValue =  (fontSize << 16) ;
-            typeAttr[attrCounter+2].tag = kTXNQDFontStyleAttribute ;
-            typeAttr[attrCounter+2].size = kTXNQDFontStyleAttributeSize ;
-            typeAttr[attrCounter+2].data.dataValue = fontStyle ;
-            attrCounter += 3 ;
-
-        }
-        if ( style.HasTextColour() )
-        {
-            typeAttr[attrCounter].tag = kTXNQDFontColorAttribute ;
-            typeAttr[attrCounter].size = kTXNQDFontColorAttributeSize ;
-            typeAttr[attrCounter].data.dataPtr = (void*) &color ;
-            color = MAC_WXCOLORREF(style.GetTextColour().GetPixel()) ;
-            attrCounter += 1 ;
-        }
+        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[attrCounter].tag = kTXNQDFontNameAttribute ;
+        typeAttr[attrCounter].size = kTXNQDFontNameAttributeSize ;
+        typeAttr[attrCounter].data.dataPtr = (void*) fontName ;
+        typeAttr[attrCounter+1].tag = kTXNQDFontSizeAttribute ;
+        typeAttr[attrCounter+1].size = kTXNFontSizeAttributeSize ;
+        typeAttr[attrCounter+1].data.dataValue =  (fontSize << 16) ;
+        typeAttr[attrCounter+2].tag = kTXNQDFontStyleAttribute ;
+        typeAttr[attrCounter+2].size = kTXNQDFontStyleAttributeSize ;
+        typeAttr[attrCounter+2].data.dataValue = fontStyle ;
+        attrCounter += 3 ;
+
+    }
+    if ( style.HasTextColour() )
+    {
+        typeAttr[attrCounter].tag = kTXNQDFontColorAttribute ;
+        typeAttr[attrCounter].size = kTXNQDFontColorAttributeSize ;
+        typeAttr[attrCounter].data.dataPtr = (void*) &color ;
+        color = MAC_WXCOLORREF(style.GetTextColour().GetPixel()) ;
+        attrCounter += 1 ;
+    }

 
 

-        if ( attrCounter > 0 )
-        {
-#ifdef __WXDEBUG__
-            OSStatus status =
-#endif // __WXDEBUG__
-                TXNSetTypeAttributes ((TXNObject)m_macTXN, attrCounter , typeAttr, start,end);
-            wxASSERT_MSG( status == noErr , wxT("Couldn't set text attributes") ) ;
-        }
-        if ( !formerEditable )
-            SetEditable(formerEditable) ;
+    if ( attrCounter > 0 )
+    {
+        verify_noerr( TXNSetTypeAttributes ((TXNObject)m_macTXN, attrCounter , typeAttr, start,end) );

     }
     }

+    if ( !formerEditable )
+        SetEditable(formerEditable) ;
+

     return TRUE ;
 }
 
     return TRUE ;
 }
 


@@ -1037,19 +1014,9 @@ void wxTextCtrl::Copy()
 {
     if (CanCopy())
     {
 {
     if (CanCopy())
     {

-      if ( !m_macUsesTXN )
-      {
-            TECopy( ((TEHandle) m_macTE) ) ;
-            ClearCurrentScrap();
-            TEToScrap() ;
-            MacRedrawControl() ;
-        }
-        else
-        {
-            ClearCurrentScrap();
-            TXNCopy((TXNObject)m_macTXN);
-            TXNConvertToPublicScrap();
-        }
+        ClearCurrentScrap();
+        TXNCopy((TXNObject)m_macTXN);
+        TXNConvertToPublicScrap();

     }
 }
 
     }
 }
 


@@ -1057,19 +1024,10 @@ void wxTextCtrl::Cut()
 {
     if (CanCut())
     {
 {
     if (CanCut())
     {

-        if ( !m_macUsesTXN )
-        {
-            TECut( ((TEHandle) m_macTE) ) ;
-            ClearCurrentScrap();
-            TEToScrap() ;
-            MacRedrawControl() ;
-        }
-        else
-        {
-            ClearCurrentScrap();
-            TXNCut((TXNObject)m_macTXN);
-            TXNConvertToPublicScrap();
-        }
+        ClearCurrentScrap();
+        TXNCut((TXNObject)m_macTXN);
+        TXNConvertToPublicScrap();
+

         wxCommandEvent event(wxEVT_COMMAND_TEXT_UPDATED, m_windowId);
         event.SetString( GetValue() ) ;
         event.SetEventObject( this );
         wxCommandEvent event(wxEVT_COMMAND_TEXT_UPDATED, m_windowId);
         event.SetString( GetValue() ) ;
         event.SetEventObject( this );


@@ -1081,18 +1039,11 @@ void wxTextCtrl::Paste()
 {
     if (CanPaste())
     {
 {
     if (CanPaste())
     {

-        if ( !m_macUsesTXN )
-        {
-            TEFromScrap() ;
-            TEPaste( (TEHandle) m_macTE ) ;
-            MacRedrawControl() ;
-        }
-        else
-        {
-            TXNConvertFromPublicScrap();
-            TXNPaste((TXNObject)m_macTXN);
-            SetStyle( kTXNUseCurrentSelection , kTXNUseCurrentSelection , GetDefaultStyle() ) ;
-        }
+
+        TXNConvertFromPublicScrap();
+        TXNPaste((TXNObject)m_macTXN);
+        SetStyle( kTXNUseCurrentSelection , kTXNUseCurrentSelection , GetDefaultStyle() ) ;
+

         wxCommandEvent event(wxEVT_COMMAND_TEXT_UPDATED, m_windowId);
         event.SetString( GetValue() ) ;
         event.SetEventObject( this );
         wxCommandEvent event(wxEVT_COMMAND_TEXT_UPDATED, m_windowId);
         event.SetString( GetValue() ) ;
         event.SetEventObject( this );


@@ -1125,34 +1076,7 @@ bool wxTextCtrl::CanPaste() const
     if (!IsEditable())
         return FALSE;
 
     if (!IsEditable())
         return FALSE;
 

-#if TARGET_CARBON
-    OSStatus err = noErr;
-    ScrapRef scrapRef;
-
-    err = GetCurrentScrap( &scrapRef );
-    if ( err != noTypeErr && err != memFullErr )
-    {
-        ScrapFlavorFlags    flavorFlags;
-        Size                byteCount;
-
-        if (( err = GetScrapFlavorFlags( scrapRef, 'TEXT', &flavorFlags )) == noErr)
-        {
-            if (( err = GetScrapFlavorSize( scrapRef, 'TEXT', &byteCount )) == noErr)
-            {
-                return TRUE ;
-            }
-        }
-    }
-    return FALSE;
-
-#else
-    long offset ;
-    if ( GetScrap( NULL , 'TEXT' , &offset ) > 0 )
-    {
-        return TRUE ;
-    }
-#endif
-    return FALSE ;
+    return TXNIsScrapPastable() ;

 }
 
 void wxTextCtrl::SetEditable(bool editable)
 }
 
 void wxTextCtrl::SetEditable(bool editable)


@@ -1160,19 +1084,11 @@ void wxTextCtrl::SetEditable(bool editable)
     if ( editable != m_editable )
     {
         m_editable = editable ;
     if ( editable != m_editable )
     {
         m_editable = editable ;

-        if ( !m_macUsesTXN )
-        {
-            if ( editable )
-                UMAActivateControl( (ControlHandle) m_macControl ) ;
-            else
-                UMADeactivateControl((ControlHandle)  m_macControl ) ;
-        }
-        else
-        {
-            TXNControlTag tag[] = { kTXNIOPrivilegesTag } ;
-            TXNControlData data[] = { { editable ? kTXNReadWrite : kTXNReadOnly } } ;
-            TXNSetTXNObjectControls( (TXNObject) m_macTXN , false , sizeof(tag) / sizeof (TXNControlTag) , tag , data ) ;
-        }
+
+        TXNControlTag tag[] = { kTXNIOPrivilegesTag } ;
+        TXNControlData data[] = { { editable ? kTXNReadWrite : kTXNReadOnly } } ;
+        TXNSetTXNObjectControls( (TXNObject) m_macTXN , false , sizeof(tag) / sizeof (TXNControlTag) , tag , data ) ;
+

     }
 }
 
     }
 }
 


@@ -1196,116 +1112,64 @@ long wxTextCtrl::GetInsertionPoint() const
 
 long wxTextCtrl::GetLastPosition() const
 {
 
 long wxTextCtrl::GetLastPosition() const
 {

-    if ( !m_macUsesTXN )
+    Handle theText ;
+    long actualsize ;
+    OSErr err = TXNGetDataEncoded( (TXNObject) m_macTXN, kTXNStartOffset, kTXNEndOffset, &theText , kTXNTextData );
+    /* all done */
+    if ( err )

     {
     {

-        return (**((TEHandle) m_macTE)).teLength ;
+        actualsize = 0 ;

     }
     else
     {
     }
     else
     {

-        Handle theText ;
-        long actualsize ;
-        OSErr err = TXNGetDataEncoded( (TXNObject) m_macTXN, kTXNStartOffset, kTXNEndOffset, &theText , kTXNTextData );
-        /* all done */
-        if ( err )
-        {
-            actualsize = 0 ;
-        }
-        else
-        {
-            actualsize = GetHandleSize( theText ) ;
-            DisposeHandle( theText ) ;
-        }
-        return actualsize ;
+        actualsize = GetHandleSize( theText ) ;
+        DisposeHandle( theText ) ;

     }
     }

+    return actualsize ;

 }
 
 void wxTextCtrl::Replace(long from, long to, const wxString& str)
 {
     wxString value = str ;
     wxMacConvertNewlines13To10( &value ) ;
 }
 
 void wxTextCtrl::Replace(long from, long to, const wxString& str)
 {
     wxString value = str ;
     wxMacConvertNewlines13To10( &value ) ;

-    if ( !m_macUsesTXN )
-    {
-        ControlEditTextSelectionRec selection ;
-
-        selection.selStart = from ;
-        selection.selEnd = to ;
-        ::SetControlData((ControlHandle)  m_macControl , 0, kControlEditTextSelectionTag , sizeof( selection ) , (char*) &selection ) ;
-        TESetSelect( from , to  , ((TEHandle) m_macTE) ) ;
-        TEDelete( ((TEHandle) m_macTE) ) ;
-        TEInsert( value , value.Length() , ((TEHandle) m_macTE) ) ;
-    }
-    else
-    {
-        bool formerEditable = m_editable ;
-        if ( !formerEditable )
-            SetEditable(true) ;
-        TXNSetSelection( ((TXNObject) m_macTXN) , from , to ) ;
-        TXNClear( ((TXNObject) m_macTXN) ) ;
-        SetTXNData( (TXNObject) m_macTXN , str , kTXNUseCurrentSelection, kTXNUseCurrentSelection ) ;
-        if ( !formerEditable )
-            SetEditable( formerEditable ) ;
-    }
+
+    bool formerEditable = m_editable ;
+    if ( !formerEditable )
+        SetEditable(true) ;
+    TXNSetSelection( ((TXNObject) m_macTXN) , from , to ) ;
+    TXNClear( ((TXNObject) m_macTXN) ) ;
+    SetTXNData( (STPTextPaneVars *)m_macTXNvars , (TXNObject) m_macTXN , str , kTXNUseCurrentSelection, kTXNUseCurrentSelection ) ;
+    if ( !formerEditable )
+        SetEditable( formerEditable ) ;
+

     Refresh() ;
 }
 
 void wxTextCtrl::Remove(long from, long to)
 {
     Refresh() ;
 }
 
 void wxTextCtrl::Remove(long from, long to)
 {

-    if ( !m_macUsesTXN )
-    {
-        ControlEditTextSelectionRec selection ;
+    bool formerEditable = m_editable ;
+    if ( !formerEditable )
+        SetEditable(true) ;
+    TXNSetSelection( ((TXNObject) m_macTXN) , from , to ) ;
+    TXNClear( ((TXNObject) m_macTXN) ) ;
+    if ( !formerEditable )
+        SetEditable( formerEditable ) ;

 
 

-        selection.selStart = from ;
-        selection.selEnd = to ;
-        ::SetControlData( (ControlHandle) m_macControl , 0, kControlEditTextSelectionTag , sizeof( selection ) , (char*) &selection ) ;
-        TEDelete( ((TEHandle) m_macTE) ) ;
-    }
-    else
-    {
-        bool formerEditable = m_editable ;
-        if ( !formerEditable )
-            SetEditable(true) ;
-        TXNSetSelection( ((TXNObject) m_macTXN) , from , to ) ;
-        TXNClear( ((TXNObject) m_macTXN) ) ;
-        if ( !formerEditable )
-            SetEditable( formerEditable ) ;
-    }

     Refresh() ;
 }
 
 void wxTextCtrl::SetSelection(long from, long to)
 {
     Refresh() ;
 }
 
 void wxTextCtrl::SetSelection(long from, long to)
 {

-    if ( !m_macUsesTXN )
-    {
-        ControlEditTextSelectionRec selection ;
-        if ((from == -1) && (to == -1))
-        {
-               selection.selStart = 0 ;
-               selection.selEnd = 32767 ;
-        } 
-        else
-        {
-               selection.selStart = from ;
-               selection.selEnd = to ;
-       }
-
-        TESetSelect( selection.selStart , selection.selEnd , ((TEHandle) m_macTE) ) ;
-        ::SetControlData((ControlHandle)  m_macControl , 0, kControlEditTextSelectionTag , sizeof( selection ) , (char*) &selection ) ;
-    }
+    STPTextPaneVars *varsp = (STPTextPaneVars *) m_macTXNvars;
+    /* and our drawing environment as the operation
+    may force a redraw in the text area. */
+    SetPort(varsp->fDrawingEnvironment);
+    /* change the selection */
+    if ((from == -1) && (to == -1))
+       TXNSelectAll((TXNObject) m_macTXN);

     else
     else

-    {
-        STPTextPaneVars **tpvars;
-        /* set up our locals */
-        tpvars = (STPTextPaneVars **) GetControlReference((ControlHandle) m_macControl);
-        /* and our drawing environment as the operation
-        may force a redraw in the text area. */
-        SetPort((**tpvars).fDrawingEnvironment);
-        /* change the selection */
-        if ((from == -1) && (to == -1))
-               TXNSelectAll((TXNObject) m_macTXN);
-        else
-               TXNSetSelection( (**tpvars).fTXNRec, from, to);
-        TXNShowSelection( (TXNObject) m_macTXN, kTXNShowStart);
-    }
+       TXNSetSelection( varsp->fTXNRec, from, to);
+    TXNShowSelection( (TXNObject) m_macTXN, kTXNShowStart);

 }
 
 bool wxTextCtrl::LoadFile(const wxString& file)
 }
 
 bool wxTextCtrl::LoadFile(const wxString& file)


@@ -1322,24 +1186,18 @@ void wxTextCtrl::WriteText(const wxString& str)
 {
     wxString st = str ;
     wxMacConvertNewlines13To10( &st ) ;
 {
     wxString st = str ;
     wxMacConvertNewlines13To10( &st ) ;

-    if ( !m_macUsesTXN )
-    {
-       wxCharBuffer text =  st.mb_str(wxConvLocal) ;
-        TEInsert( text , strlen(text) , ((TEHandle) m_macTE) ) ;
-    }
-    else
-    {
-        bool formerEditable = m_editable ;
-        if ( !formerEditable )
-            SetEditable(true) ;
-        long start , end , dummy ;
-        GetSelection( &start , &dummy ) ;
-        SetTXNData( (TXNObject) m_macTXN , st , kTXNUseCurrentSelection, kTXNUseCurrentSelection ) ;
-        GetSelection( &dummy , &end ) ;
-        SetStyle( start , end , GetDefaultStyle() ) ;
-        if ( !formerEditable )
-            SetEditable( formerEditable ) ;
-    }
+
+    bool formerEditable = m_editable ;
+    if ( !formerEditable )
+        SetEditable(true) ;
+    long start , end , dummy ;
+    GetSelection( &start , &dummy ) ;
+    SetTXNData( (STPTextPaneVars *)m_macTXNvars , (TXNObject) m_macTXN , st , kTXNUseCurrentSelection, kTXNUseCurrentSelection ) ;
+    GetSelection( &dummy , &end ) ;
+    SetStyle( start , end , GetDefaultStyle() ) ;
+    if ( !formerEditable )
+        SetEditable( formerEditable ) ;
+

     MacRedrawControl() ;
 }
 
     MacRedrawControl() ;
 }
 


@@ -1351,15 +1209,15 @@ void wxTextCtrl::AppendText(const wxString& text)
 
 void wxTextCtrl::Clear()
 {
 
 void wxTextCtrl::Clear()
 {

-    if ( !m_macUsesTXN )
-    {
-        ::SetControlData((ControlHandle)  m_macControl, 0, ( m_windowStyle & wxTE_PASSWORD ) ? kControlEditTextPasswordTag : kControlEditTextTextTag , 0 , (char*) ((const char*)NULL) ) ;
-    }
-    else
-    {
-        TXNSetSelection( (TXNObject)m_macTXN , kTXNStartOffset , kTXNEndOffset ) ;
-        TXNClear((TXNObject)m_macTXN);
-    }
+    bool formerEditable = m_editable ;
+    if ( !formerEditable )
+        SetEditable(true) ;
+    TXNSetSelection( (TXNObject)m_macTXN , kTXNStartOffset , kTXNEndOffset ) ;
+    TXNClear((TXNObject)m_macTXN);
+
+    if ( !formerEditable )
+        SetEditable( formerEditable ) ;
+

     Refresh() ;
 }
 
     Refresh() ;
 }
 


@@ -1384,31 +1242,28 @@ wxSize wxTextCtrl::DoGetBestSize() const
     int wText = 100 ;
 
     int hText;
     int wText = 100 ;
 
     int hText;

-    if ( m_macUsesTXN )
-    {
-        hText = 17 ;
-    }
-    else
+
+    switch( m_windowVariant )

     {
     {

-        hText = 13 ;
+        case wxWINDOW_VARIANT_NORMAL :
+            hText = 22 ;
+            break ;
+        case wxWINDOW_VARIANT_SMALL :
+            hText = 19 ;
+            break ;
+        case wxWINDOW_VARIANT_MINI :
+            hText= 15 ;
+            break ;
+        default :
+            hText = 22 ;
+            break ; 

     }
     }

-/*
-    int cx, cy;
-    wxGetCharSize(GetHWND(), &cx, &cy, &GetFont());
-
-    int wText = DEFAULT_ITEM_WIDTH;

 
 

-    int hText = EDIT_HEIGHT_FROM_CHAR_HEIGHT(cy);
-
-    return wxSize(wText, hText);
-*/

     if ( m_windowStyle & wxTE_MULTILINE )
     {
          hText *= 5 ;
     }
     if ( m_windowStyle & wxTE_MULTILINE )
     {
          hText *= 5 ;
     }

-    hText += 2 * m_macVerticalBorder ;
-    wText += 2 * m_macHorizontalBorder ;
-    //else: for single line control everything is ok
+

     return wxSize(wText, hText);
 }
 
     return wxSize(wText, hText);
 }
 


@@ -1420,10 +1275,7 @@ void wxTextCtrl::Undo()
 {
     if (CanUndo())
     {
 {
     if (CanUndo())
     {

-        if ( m_macUsesTXN ) 
-        {
-            TXNUndo((TXNObject)m_macTXN); 
-        }
+        TXNUndo((TXNObject)m_macTXN); 

     }
 }
 
     }
 }
 


@@ -1431,10 +1283,7 @@ void wxTextCtrl::Redo()
 {
     if (CanRedo())
     {
 {
     if (CanRedo())
     {

-        if ( m_macUsesTXN ) 
-        {
-            TXNRedo((TXNObject)m_macTXN); 
-        }
+        TXNRedo((TXNObject)m_macTXN); 

     }
 }
 
     }
 }
 


@@ -1444,11 +1293,7 @@ bool wxTextCtrl::CanUndo() const
     {
         return false ; 
     }
     {
         return false ; 
     }

-    if ( m_macUsesTXN ) 
-    {
-        return TXNCanUndo((TXNObject)m_macTXN,NULL); 
-    }
-    return FALSE ;
+    return TXNCanUndo((TXNObject)m_macTXN,NULL); 

 }
 
 bool wxTextCtrl::CanRedo() const
 }
 
 bool wxTextCtrl::CanRedo() const


@@ -1457,11 +1302,7 @@ bool wxTextCtrl::CanRedo() const
     {
         return false ; 
     }
     {
         return false ; 
     }

-    if ( m_macUsesTXN ) 
-    {
-        return TXNCanRedo((TXNObject)m_macTXN,NULL); 
-    }
-    return FALSE ;
+    return TXNCanRedo((TXNObject)m_macTXN,NULL); 

 }
 
 // Makes modifie or unmodified
 }
 
 // Makes modifie or unmodified


@@ -1477,40 +1318,91 @@ void wxTextCtrl::DiscardEdits()
 
 int wxTextCtrl::GetNumberOfLines() const
 {
 
 int wxTextCtrl::GetNumberOfLines() const
 {

-    if ( m_macUsesTXN ) 
+    ItemCount lines ;
+    TXNGetLineCount((TXNObject)m_macTXN, &lines ) ;
+    return lines ;
+}
+
+long wxTextCtrl::XYToPosition(long x, long y) const
+{
+    Point curpt ;
+    
+    long lastpos = GetLastPosition() ;
+    
+    // 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 ; 
+    long ypos = 0 ;
+    int lastHeight = 0 ;
+
+    ItemCount n ;
+    for ( n = 0 ; n <= lastpos ; ++n )

     {
     {

-        ItemCount lines ;
-        TXNGetLineCount((TXNObject)m_macTXN, &lines ) ;
-        return lines ;
-    }
-    else
-    {          
-        wxString content = GetValue() ;
+        if ( y == ypos && x == xpos )
+            return n ;
+        
+        TXNOffsetToPoint( (TXNObject) m_macTXN,  n , &curpt);

 
 

-        int count = 1;
-        for (size_t i = 0; i < content.Length() ; i++)
+        if ( curpt.v > lastHeight )

         {
         {

-            if (content[i] == '\r') count++;
+            xpos = 0 ;
+            if ( n > 0 )
+                ++ypos ;
+            lastHeight = curpt.v ;

         }
         }

-        return count;
+        else
+            ++xpos ;

     }
     }

-}
-
-long wxTextCtrl::XYToPosition(long x, long y) const
-{
-    // TODO
+    

     return 0;
 }
 
 bool wxTextCtrl::PositionToXY(long pos, long *x, long *y) const
 {
     return 0;
 }
 
 bool wxTextCtrl::PositionToXY(long pos, long *x, long *y) const
 {

+    Point curpt ;
+    
+    long lastpos = GetLastPosition() ;
+    
+    if ( y ) *y = 0 ;
+    if ( x ) *x = 0 ;
+    
+    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 ; 
+        long ypos = 0 ;
+        int lastHeight = 0 ;
+
+        ItemCount n ;
+        for ( n = 0 ; n <= pos ; ++n )
+        {
+            TXNOffsetToPoint( (TXNObject) m_macTXN,  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 wxTextCtrl::ShowPosition(long pos)
 {
 #if TARGET_RT_MAC_MACHO && defined(AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER)
     return FALSE ;
 }
 
 void wxTextCtrl::ShowPosition(long pos)
 {
 #if TARGET_RT_MAC_MACHO && defined(AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER)

-    if ( m_macUsesTXN ) 

     {
         Point current ;
         Point desired ;
     {
         Point current ;
         Point desired ;


@@ -1534,57 +1426,83 @@ void wxTextCtrl::ShowPosition(long pos)
 
 int wxTextCtrl::GetLineLength(long lineNo) const
 {
 
 int wxTextCtrl::GetLineLength(long lineNo) const
 {

-    // TODO change this if possible to reflect real lines
-    wxString content = GetValue() ;
-
-    // Find line first
-    int count = 0;
-    for (size_t i = 0; i < content.Length() ; i++)
+    Point curpt ;
+    if ( lineNo < GetNumberOfLines() )

     {
     {

-        if (count == lineNo)
+        // 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 ; 
+        long ypos = 0 ;
+        int lastHeight = 0 ;
+        long lastpos = GetLastPosition() ;
+
+        ItemCount n ;
+        for ( n = 0 ; n <= lastpos ; ++n )

         {
         {

-            // Count chars in line then
-            count = 0;
-            for (size_t j = i; j < content.Length(); j++)
+            TXNOffsetToPoint( (TXNObject) m_macTXN,  n , &curpt);
+
+            if ( curpt.v > lastHeight )

             {
             {

-                count++;
-                if (content[j] == '\n') return count;
+                if ( ypos == lineNo )
+                    return xpos ;
+                    
+                xpos = 0 ;
+                if ( n > 0 )
+                    ++ypos ;
+                lastHeight = curpt.v ;

             }
             }

-
-            return count;
+            else
+                ++xpos ;

         }
         }

-        if (content[i] == '\n') count++;

     }
     }

+

     return 0;
 }
 
 wxString wxTextCtrl::GetLineText(long lineNo) const
 {
     return 0;
 }
 
 wxString wxTextCtrl::GetLineText(long lineNo) const
 {

-    // TODO change this if possible to reflect real lines
+    Point curpt ;
+    wxString line ;

     wxString content = GetValue() ;
 
     wxString content = GetValue() ;
 

-    // Find line first
-    int count = 0;
-    for (size_t i = 0; i < content.Length() ; i++)
+    if ( lineNo < GetNumberOfLines() )

     {
     {

-        if (count == lineNo)
+        // 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 ; 
+        long ypos = 0 ;
+        int lastHeight = 0 ;
+        long lastpos = GetLastPosition() ;
+
+        ItemCount n ;
+        for ( n = 0 ; n <= lastpos ; ++n )

         {
         {

-            // Add chars in line then
-            wxString tmp;
+            TXNOffsetToPoint( (TXNObject) m_macTXN,  n , &curpt);

 
 

-            for (size_t j = i; j < content.Length(); j++)
+            if ( curpt.v > lastHeight )

             {
             {

-                if (content[j] == '\n')
-                    return tmp;
-
-                tmp += content[j];
+                if ( ypos == lineNo )
+                    return line ;
+                    
+                xpos = 0 ;
+                if ( n > 0 )
+                    ++ypos ;
+                lastHeight = curpt.v ;
+            }
+            else
+            {
+                if ( ypos == lineNo )
+                    line += content[n] ;
+                ++xpos ;

             }
             }

-
-            return tmp;

         }
         }

-        if (content[i] == '\n') count++;

     }
     }

-    return wxEmptyString ;
+
+    return line ;

 }
 
 /*
 }
 
 /*


@@ -1703,8 +1621,7 @@ void wxTextCtrl::OnChar(wxKeyEvent& event)
     if (!eat_key)
     {
         // perform keystroke handling
     if (!eat_key)
     {
         // perform keystroke handling

-#if TARGET_CARBON
-        if ( m_macUsesTXN && wxTheApp->MacGetCurrentEvent() != NULL && wxTheApp->MacGetCurrentEventHandlerCallRef() != NULL )
+        if ( wxTheApp->MacGetCurrentEvent() != NULL && wxTheApp->MacGetCurrentEventHandlerCallRef() != NULL )

             CallNextEventHandler((EventHandlerCallRef)wxTheApp->MacGetCurrentEventHandlerCallRef() , (EventRef) wxTheApp->MacGetCurrentEvent() ) ;
         else 
         {
             CallNextEventHandler((EventHandlerCallRef)wxTheApp->MacGetCurrentEventHandlerCallRef() , (EventRef) wxTheApp->MacGetCurrentEvent() ) ;
         else 
         {


@@ -1717,18 +1634,9 @@ void wxTextCtrl::OnChar(wxKeyEvent& event)
                 keychar = short(ev->message & charCodeMask);
                 keycode = short(ev->message & keyCodeMask) >> 8 ;
 
                 keychar = short(ev->message & charCodeMask);
                 keycode = short(ev->message & keyCodeMask) >> 8 ;
 

-                ::HandleControlKey( (ControlHandle) m_macControl , keycode , keychar , ev->modifiers ) ;
+                ::HandleControlKey( (ControlRef) m_macControl , keycode , keychar , ev->modifiers ) ;

             }
         }
             }
         }

-#else
-        EventRecord *ev = (EventRecord*) wxTheApp->MacGetCurrentEvent() ;
-        short keycode ;
-        short keychar ;
-        keychar = short(ev->message & charCodeMask);
-        keycode = short(ev->message & keyCodeMask) >> 8 ;
-
-        ::HandleControlKey( (ControlHandle) m_macControl , keycode , keychar , ev->modifiers ) ;
-#endif

     }
     if ( ( key >= 0x20 && key < WXK_START ) ||
          key == WXK_RETURN ||
     }
     if ( ( key >= 0x20 && key < WXK_START ) ||
          key == WXK_RETURN ||


@@ -1742,40 +1650,6 @@ void wxTextCtrl::OnChar(wxKeyEvent& event)
     }
 }
 
     }
 }
 

-void  wxTextCtrl::MacSuperShown( bool show )
-{
-    bool former = m_macControlIsShown ;
-    wxControl::MacSuperShown( show ) ;
-    if ( (former != m_macControlIsShown) && m_macUsesTXN )
-    {
-        if ( m_macControlIsShown )
-            TXNSetFrameBounds( (TXNObject) m_macTXN, (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.top, (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.left,
-                (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.bottom,(**(STPTextPaneVars **)m_macTXNvars).fRTextArea.right, (**(STPTextPaneVars **)m_macTXNvars).fTXNFrame);
-        else
-            TXNSetFrameBounds( (TXNObject) m_macTXN, (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.top + 30000, (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.left,
-               (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.bottom + 30000, (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.right, (**(STPTextPaneVars **)m_macTXNvars).fTXNFrame);
-    }
-}
-
-bool  wxTextCtrl::Show(bool show)
-{
-    bool former = m_macControlIsShown ;
-
-    bool retval = wxControl::Show( show ) ;
-
-    if ( former != m_macControlIsShown && m_macUsesTXN )
-    {
-        if ( m_macControlIsShown )
-            TXNSetFrameBounds( (TXNObject) m_macTXN, (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.top, (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.left,
-                (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.bottom,(**(STPTextPaneVars **)m_macTXNvars).fRTextArea.right, (**(STPTextPaneVars **)m_macTXNvars).fTXNFrame);
-        else
-            TXNSetFrameBounds( (TXNObject) m_macTXN, (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.top + 30000, (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.left,
-               (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.bottom + 30000, (**(STPTextPaneVars **)m_macTXNvars).fRTextArea.right, (**(STPTextPaneVars **)m_macTXNvars).fTXNFrame);
-    }
-
-    return retval ;
-}
-

 // ----------------------------------------------------------------------------
 // standard handlers for standard edit menu events
 // ----------------------------------------------------------------------------
 // ----------------------------------------------------------------------------
 // standard handlers for standard edit menu events
 // ----------------------------------------------------------------------------


@@ -1832,10 +1706,45 @@ void wxTextCtrl::OnUpdateRedo(wxUpdateUIEvent& event)
 
 bool wxTextCtrl::MacSetupCursor( const wxPoint& pt )
 {
 
 bool wxTextCtrl::MacSetupCursor( const wxPoint& pt )
 {

-    if ( m_macUsesTXN )
-        return true ;
-    else
-        return wxWindow::MacSetupCursor( pt ) ;
+    return true ;
+}
+
+// user pane implementation
+
+void wxTextCtrl::MacControlUserPaneDrawProc(wxInt16 part) 
+{
+}
+
+wxInt16 wxTextCtrl::MacControlUserPaneHitTestProc(wxInt16 x, wxInt16 y) 
+{
+    return kControlNoPart ;
+}
+
+wxInt16 wxTextCtrl::MacControlUserPaneTrackingProc(wxInt16 x, wxInt16 y, void* actionProc) 
+{
+    return kControlNoPart ;
+}
+
+void wxTextCtrl::MacControlUserPaneIdleProc() 
+{
+}
+
+wxInt16 wxTextCtrl::MacControlUserPaneKeyDownProc(wxInt16 keyCode, wxInt16 charCode, wxInt16 modifiers) 
+{
+    return kControlNoPart ;
+}
+
+void wxTextCtrl::MacControlUserPaneActivateProc(bool activating) 
+{
+}
+
+wxInt16 wxTextCtrl::MacControlUserPaneFocusProc(wxInt16 action) 
+{
+    return kControlNoPart ;
+}
+
+void wxTextCtrl::MacControlUserPaneBackgroundProc(void* info) 
+{

 }
 
 #endif
 }
 
 #endif