-/* 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) {
-
- varsp->fTEActive = setActive;
-
- TXNActivate(varsp->fTXNRec, varsp->fTXNFrame, varsp->fTEActive);
-
- if (varsp->fInFocus)
- TXNFocus( varsp->fTXNRec, varsp->fTEActive);
- }
-}
-
-
-/* TPFocusPaneText set the focus state for the text record. */
-static void TPFocusPaneText(STPTextPaneVars **tpvars, Boolean setFocus) {
- STPTextPaneVars *varsp;
- varsp = *tpvars;
- if (varsp->fInFocus != setFocus) {
- 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. */
-static pascal void TPPaneDrawProc(ControlRef theControl, ControlPartCode thePart) {
- STPTextPaneVars **tpvars, *varsp;
- char state;
- Rect bounds;
- /* 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);
- if ( ! EqualRect(&bounds, &varsp->fRTextArea) ) {
- SetRect(&varsp->fRFocusOutline, bounds.left, bounds.top, bounds.right, bounds.bottom);
- SetRect(&varsp->fRTextOutline, bounds.left, bounds.top, bounds.right, bounds.bottom);
- SetRect(&varsp->fRTextArea, bounds.left, bounds.top, bounds.right, bounds.bottom);
- RectRgn(varsp->fTextBackgroundRgn, &varsp->fRTextOutline);
- TXNSetFrameBounds( varsp->fTXNRec, bounds.top, bounds.left, bounds.bottom, bounds.right, varsp->fTXNFrame);
- }
-
- /* update the text region */
- EraseRgn(varsp->fTextBackgroundRgn);
- TXNDraw(varsp->fTXNRec, NULL);
- /* restore the drawing environment */
- /* draw the text frame and focus frame (if necessary) */
- DrawThemeEditTextFrame(&varsp->fRTextOutline, varsp->fIsActive ? kThemeStateActive: kThemeStateInactive);
- if ((**tpvars).fIsActive && varsp->fInFocus) DrawThemeFocusRect(&varsp->fRFocusOutline, true);
- /* release our globals */
- HSetState((Handle) tpvars, state);
- }
-}
-
-
-/* TPPaneHitTestProc is called when the control manager would
- 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;
- ControlPartCode result;
- char state;
- /* set up our locals and lock down our globals*/
- result = 0;
- tpvars = (STPTextPaneVars **) GetControlReference(theControl);
- if (tpvars != NULL) {
- state = HGetState((Handle) tpvars);
- HLock((Handle) tpvars);
- /* find the region where we clicked */
- if (PtInRect(where, &(**tpvars).fRTextArea)) {
- result = kmUPTextPart;
- } else result = 0;
- /* release oure globals */
- HSetState((Handle) tpvars, state);
- }
- return result;
-}
-
-
-
-
-
-/* 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;
- ControlPartCode partCodeResult;
- /* make sure we have some variables... */
- partCodeResult = 0;
- tpvars = (STPTextPaneVars **) GetControlReference(theControl);
- if (tpvars != NULL) {
- /* 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 */
- if ( ! varsp->fInFocus) {
- WindowPtr owner;
- owner = GetControlOwner(theControl);
- ClearKeyboardFocus(owner);
- SetKeyboardFocus(owner, theControl, kUserClickedToFocusPart);
- }
- /* find the location for the click */
- switch (TPPaneHitTestProc(theControl, startPt)) {
-
- /* handle clicks in the text part */
- case kmUPTextPart:
- { SetPort((**tpvars).fDrawingEnvironment);
- TXNClick( varsp->fTXNRec, GetCurrentEventRecord());
- }
- break;
-
- }
-
- HSetState((Handle) tpvars, state);
- }
- return partCodeResult;
-}
-
-
-/* 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;
- /* set up locals */
- tpvars = (STPTextPaneVars **) GetControlReference(theControl);
- if (tpvars != NULL) {
- /* if we're not active, then we have nothing to say about the cursor */
- if ((**tpvars).fIsActive) {
- char state;
- 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) */
-#if TARGET_CARBON
- SetPort(GetWindowPort(GetControlOwner(theControl)));
-#else
- SetPort((GrafPtr) GetWindowPort(GetControlOwner(theControl)));
-#endif
- GetMouse(&mousep);
- /* there's a 'focus thing' and an 'unfocused thing' */
- if (varsp->fInFocus) {
- /* flash the cursor */
- SetPort((**tpvars).fDrawingEnvironment);
- TXNIdle(varsp->fTXNRec);
- /* set the cursor */
- if (PtInRect(mousep, &varsp->fRTextArea)) {
- RgnHandle theRgn;
- RectRgn((theRgn = NewRgn()), &varsp->fRTextArea);
- TXNAdjustCursor(varsp->fTXNRec, theRgn);
- DisposeRgn(theRgn);
- } else SetThemeCursor(kThemeArrowCursor);
- } else {
- /* if it's in our bounds, set the cursor */
- GetControlBounds(theControl, &bounds);
- if (PtInRect(mousep, &bounds))
- SetThemeCursor(kThemeArrowCursor);
- }
-
- HSetState((Handle) tpvars, state);
- }
- }
-}
-
-
-/* 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,
- 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);
- TXNKeyDown( (**tpvars).fTXNRec, GetCurrentEventRecord());
- }
- }
- return kControlEntireControl;
-}
-
-
-/* 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;
- /* 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);
- GetControlBounds(theControl, &bounds);
- varsp->fIsActive = activating;
- TPActivatePaneText(tpvars, varsp->fIsActive && varsp->fInFocus);
- /* redraw the frame */
- DrawThemeEditTextFrame(&varsp->fRTextOutline, varsp->fIsActive ? kThemeStateActive: kThemeStateInactive);
- if (varsp->fInFocus) DrawThemeFocusRect(&varsp->fRFocusOutline, varsp->fIsActive);
- HSetState((Handle) tpvars, state);
- }
-}
-
-
-/* TPPaneFocusProc is called when every the focus changes to or
- 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) {
- ControlPartCode focusResult;
- STPTextPaneVars **tpvars, *varsp;
- char state;
- /* set up locals */
- 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. */
- /* save the drawing state */
- SetPort((**tpvars).fDrawingEnvironment);
- /* 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 */
- DrawThemeEditTextFrame(&varsp->fRTextOutline, varsp->fIsActive ? kThemeStateActive: kThemeStateInactive);
- DrawThemeFocusRect(&varsp->fRFocusOutline, varsp->fIsActive && varsp->fInFocus);
- /* done */
- HSetState((Handle) tpvars, state);
- }
- return focusResult;
-}
-
-
-
-
-
-
-
-
-
-
-
-//This our carbon event handler for unicode key downs
-#if TARGET_CARBON
-static pascal OSStatus FocusAdvanceOverride(EventHandlerCallRef myHandler, EventRef event, void* userData) {
- WindowRef window;
- STPTextPaneVars **tpvars;
- OSStatus err;
- unsigned short mUnicodeText;
- ByteCount charCounts=0;
- /* get our window pointer */
- tpvars = (STPTextPaneVars **) userData;
- window = (**tpvars).fOwner;
- //find out how many bytes are needed
- err = GetEventParameter(event, kEventParamTextInputSendText,
- typeUnicodeText, NULL, 0, &charCounts, NULL);
- if (err != noErr) goto bail;
- /* we're only looking at single characters */
- if (charCounts != 2) { err = eventNotHandledErr; goto bail; }
- /* get the character */
- err = GetEventParameter(event, kEventParamTextInputSendText,
- typeUnicodeText, NULL, sizeof(mUnicodeText),
- &charCounts, (char*) &mUnicodeText);
- if (err != noErr) goto bail;
- /* if it's not the tab key, forget it... */
- if ((mUnicodeText != '\t')) { err = eventNotHandledErr; goto bail; }
- /* advance the keyboard focus */
- AdvanceKeyboardFocus(window);
- /* noErr lets the CEM know we handled the event */
- return noErr;
-bail:
- return eventNotHandledErr;
projects / wxWidgets.git / blobdiff