/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */ /* ***** BEGIN LICENSE BLOCK ***** * Version: NPL 1.1/GPL 2.0/LGPL 2.1 * * The contents of this file are subject to the Netscape Public License * Version 1.1 (the "License"); you may not use this file except in * compliance with the License. You may obtain a copy of the License at * http://www.mozilla.org/NPL/ * * Software distributed under the License is distributed on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License * for the specific language governing rights and limitations under the * License. * * The Original Code is mozilla.org code. * * The Initial Developer of the Original Code is * Netscape Communications Corporation. * Portions created by the Initial Developer are Copyright (C) 1998 * the Initial Developer. All Rights Reserved. * * Contributor(s): * * Alternatively, the contents of this file may be used under the terms of * either the GNU General Public License Version 2 or later (the "GPL"), or * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"), * in which case the provisions of the GPL or the LGPL are applicable instead * of those above. If you wish to allow use of your version of this file only * under the terms of either the GPL or the LGPL, and not to allow others to * use your version of this file under the terms of the NPL, indicate your * decision by deleting the provisions above and replace them with the notice * and other provisions required by the GPL or the LGPL. If you do not delete * the provisions above, a recipient may use your version of this file under * the terms of any one of the NPL, the GPL or the LGPL. * * ***** END LICENSE BLOCK ***** */ #include "nsIFontMetrics.h" #include "nsIDeviceContext.h" #include "nsFont.h" #include "nsFontUtils.h" #include "nsToolkit.h" #include "nsMacControl.h" #include "nsColor.h" #include "nsFontMetricsMac.h" #include "nsIServiceManager.h" #define NS_IMPL_IDS #include "nsIPlatformCharset.h" #undef NS_IMPL_IDS #if TARGET_CARBON || (UNIVERSAL_INTERFACES_VERSION >= 0x0330) #include #endif #include #include #include #include static NS_DEFINE_CID(kCharsetConverterManagerCID, NS_ICHARSETCONVERTERMANAGER_CID); // TODO: leaks, need to release when unloading the dll nsIUnicodeEncoder * nsMacControl::mUnicodeEncoder = nsnull; nsIUnicodeDecoder * nsMacControl::mUnicodeDecoder = nsnull; //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- nsMacControl::nsMacControl() { mValue = 0; mMin = 0; mMax = 1; mWidgetArmed = PR_FALSE; mMouseInButton = PR_FALSE; mControl = nsnull; mControlType = pushButProc; mLastBounds.SetRect(0,0,0,0); mLastValue = 0; mLastHilite = 0; AcceptFocusOnClick(PR_FALSE); } /**------------------------------------------------------------------------- * See documentation in nsMacControl.h * @update -- 12/10/98 dwc */ NS_IMETHODIMP nsMacControl::Create(nsIWidget *aParent, const nsRect &aRect, EVENT_CALLBACK aHandleEventFunction, nsIDeviceContext *aContext, nsIAppShell *aAppShell, nsIToolkit *aToolkit, nsWidgetInitData *aInitData) { Inherited::Create(aParent, aRect, aHandleEventFunction, aContext, aAppShell, aToolkit, aInitData); // create native control. mBounds has been set up at this point nsresult theResult = CreateOrReplaceMacControl(mControlType); mLastBounds = mBounds; return theResult; } //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- nsMacControl::~nsMacControl() { if (mControl) { Show(PR_FALSE); ::DisposeControl(mControl); mControl = nsnull; } } #pragma mark - //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- PRBool nsMacControl::OnPaint(nsPaintEvent &aEvent) { if (mControl && mVisible) { // turn off drawing for setup to avoid ugliness Boolean isVisible = IsControlVisible(mControl); ::SetControlVisibility(mControl, false, false); // update title if (mLabel != mLastLabel) { NSStringSetControlTitle(mControl,mLabel); } // update bounds if (mBounds != mLastBounds) { nsRect ctlRect; GetRectForMacControl(ctlRect); Rect macRect; nsRectToMacRect(ctlRect, macRect); if ((mBounds.x != mLastBounds.x) || (mBounds.y != mLastBounds.y)) ::MoveControl(mControl, macRect.left, macRect.top); if ((mBounds.width != mLastBounds.width) || (mBounds.height != mLastBounds.height)) ::SizeControl(mControl, ctlRect.width, ctlRect.height); mLastBounds = mBounds; // Erase the widget rect (which can be larger than the control rect). // Note: this should paint the backgrount with the right color but // it doesn't work right now, see bug #5685 for more info. nsRect bounds = mBounds; bounds.x = bounds. y = 0; nsRectToMacRect(bounds, macRect); ::EraseRect(&macRect); } // update value if (mValue != mLastValue) { mLastValue = mValue; if (nsToolkit::HasAppearanceManager()) ::SetControl32BitValue(mControl, mValue); else ::SetControlValue(mControl, mValue); } // update hilite PRInt16 hilite; if (mEnabled) hilite = (mWidgetArmed && mMouseInButton ? 1 : 0); else hilite = kControlInactivePart; if (hilite != mLastHilite) { mLastHilite = hilite; ::HiliteControl(mControl, hilite); } ::SetControlVisibility(mControl, isVisible, false); // Draw the control ::DrawOneControl(mControl); Rect macRect; nsRect bounds = mBounds; bounds.x = bounds. y = 0; nsRectToMacRect(bounds, macRect); ::ValidWindowRect(mWindowPtr, &macRect); } return PR_FALSE; } //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- PRBool nsMacControl::DispatchMouseEvent(nsMouseEvent &aEvent) { PRBool eatEvent = PR_FALSE; switch (aEvent.message) { case NS_MOUSE_LEFT_DOUBLECLICK: case NS_MOUSE_LEFT_BUTTON_DOWN: if (mEnabled) { mMouseInButton = PR_TRUE; mWidgetArmed = PR_TRUE; Invalidate(PR_TRUE); } break; case NS_MOUSE_LEFT_BUTTON_UP: // if the widget was not armed, eat the event if (!mWidgetArmed) eatEvent = PR_TRUE; // if the mouseUp happened on another widget, eat the event too // (the widget which got the mouseDown is always notified of the mouseUp) if (! mMouseInButton) eatEvent = PR_TRUE; mWidgetArmed = PR_FALSE; if (mMouseInButton) Invalidate(PR_TRUE); break; case NS_MOUSE_EXIT: mMouseInButton = PR_FALSE; if (mWidgetArmed) Invalidate(PR_TRUE); break; case NS_MOUSE_ENTER: mMouseInButton = PR_TRUE; if (mWidgetArmed) Invalidate(PR_TRUE); break; } if (eatEvent) return PR_TRUE; return (Inherited::DispatchMouseEvent(aEvent)); } //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- void nsMacControl::ControlChanged(PRInt32 aNewValue) { if (aNewValue != mValue) { mValue = aNewValue; mLastValue = mValue; // safely assume that the control has been repainted already nsGUIEvent guiEvent; nsPoint point(0,0); guiEvent.eventStructType = NS_GUI_EVENT; guiEvent.message = NS_CONTROL_CHANGE; guiEvent.point = point; guiEvent.time = PR_IntervalNow(); guiEvent.widget = this; guiEvent.nativeMsg = nsnull; Inherited::DispatchWindowEvent(guiEvent); } } #pragma mark - //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- NS_IMETHODIMP nsMacControl::Enable(PRBool bState) { PRBool priorState = mEnabled; Inherited::Enable(bState); if ( priorState != bState ) Invalidate(PR_FALSE); return NS_OK; } //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- NS_IMETHODIMP nsMacControl::Show(PRBool bState) { Inherited::Show(bState); if (mControl) { ::SetControlVisibility(mControl, bState, false); // don't redraw } return NS_OK; } //------------------------------------------------------------------------- // // Set this control font // //------------------------------------------------------------------------- NS_IMETHODIMP nsMacControl::SetFont(const nsFont &aFont) { Inherited::SetFont(aFont); SetupMacControlFont(); return NS_OK; } #pragma mark - //------------------------------------------------------------------------- // // Get the rect which the Mac control uses. This may be different for // different controls, so this method allows overriding // //------------------------------------------------------------------------- void nsMacControl::GetRectForMacControl(nsRect &outRect) { outRect = mBounds; outRect.x = outRect.y = 0; } //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- NS_METHOD nsMacControl::CreateOrReplaceMacControl(short inControlType) { nsRect controlRect; GetRectForMacControl(controlRect); Rect macRect; nsRectToMacRect(controlRect, macRect); if(nsnull != mWindowPtr) { if (mControl) ::DisposeControl(mControl); StartDraw(); mControl = ::NewControl(mWindowPtr, &macRect, "\p", mVisible, mValue, mMin, mMax, inControlType, nil); EndDraw(); // need to reset the font now // XXX to do: transfer the text in the old control over too if (mControl && mFontMetrics) { SetupMacControlFont(); } } return (mControl) ? NS_OK : NS_ERROR_NULL_POINTER; } //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- void nsMacControl::SetupMacControlFont() { NS_PRECONDITION(mFontMetrics != nsnull, "No font metrics in SetupMacControlFont"); NS_PRECONDITION(mContext != nsnull, "No context metrics in SetupMacControlFont"); TextStyle theStyle; #if !TARGET_CARBON nsFontUtils::GetNativeTextStyle(*mFontMetrics, *mContext, theStyle); #endif // if needed, impose a min size of 9pt on the control font if (theStyle.tsSize < 9) theStyle.tsSize = 9; ControlFontStyleRec fontStyleRec; fontStyleRec.flags = (kControlUseFontMask | kControlUseFaceMask | kControlUseSizeMask); fontStyleRec.font = theStyle.tsFont; fontStyleRec.size = theStyle.tsSize; fontStyleRec.style = theStyle.tsFace; ::SetControlFontStyle(mControl, &fontStyleRec); } #pragma mark - //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- void nsMacControl::StringToStr255(const nsString& aText, Str255& aStr255) { nsresult rv = NS_OK; // get file system charset and create a unicode encoder if (nsnull == mUnicodeEncoder) { nsAutoString fileSystemCharset; GetFileSystemCharset(fileSystemCharset); nsCOMPtr ccm = do_GetService(kCharsetConverterManagerCID, &rv); if (NS_SUCCEEDED(rv)) { rv = ccm->GetUnicodeEncoder(&fileSystemCharset, &mUnicodeEncoder); if (NS_SUCCEEDED(rv)) { rv = mUnicodeEncoder->SetOutputErrorBehavior(nsIUnicodeEncoder::kOnError_Replace, nsnull, (PRUnichar)'?'); } } } // converts from unicode to the file system charset if (NS_SUCCEEDED(rv)) { PRInt32 inLength = aText.Length(); PRInt32 outLength = 255; rv = mUnicodeEncoder->Convert(aText.get(), &inLength, (char *) &aStr255[1], &outLength); if (NS_SUCCEEDED(rv)) aStr255[0] = outLength; } if (NS_FAILED(rv)) { // NS_ASSERTION(0, "error: charset covnersion"); NS_LossyConvertUCS2toASCII buffer(Substring(aText,0,254)); PRInt32 len = buffer.Length(); memcpy(&aStr255[1], buffer.get(), len); aStr255[0] = len; } } //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- void nsMacControl::Str255ToString(const Str255& aStr255, nsString& aText) { nsresult rv = NS_OK; // get file system charset and create a unicode encoder if (nsnull == mUnicodeDecoder) { nsAutoString fileSystemCharset; GetFileSystemCharset(fileSystemCharset); nsCOMPtr ccm = do_GetService(kCharsetConverterManagerCID, &rv); if (NS_SUCCEEDED(rv)) { rv = ccm->GetUnicodeDecoder(&fileSystemCharset, &mUnicodeDecoder); } } // converts from the file system charset to unicode if (NS_SUCCEEDED(rv)) { PRUnichar buffer[512]; PRInt32 inLength = aStr255[0]; PRInt32 outLength = 512; rv = mUnicodeDecoder->Convert((char *) &aStr255[1], &inLength, buffer, &outLength); if (NS_SUCCEEDED(rv)) { aText.Assign(buffer, outLength); } } if (NS_FAILED(rv)) { // NS_ASSERTION(0, "error: charset covnersion"); aText.AssignWithConversion((char *) &aStr255[1], aStr255[0]); } } //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- void nsMacControl::NSStringSetControlTitle(ControlHandle theControl, nsString title) { #if TARGET_CARBON // wow, it sure is nice being able to use core foundation ;) CFStringRef str = CFStringCreateWithCharacters(NULL, (const UniChar*)title.get(), title.Length()); SetControlTitleWithCFString(theControl, str); CFRelease(str); #else TextStyle theStyle; ScriptCode fontScript; OSErr err; UnicodeToTextRunInfo unicodeTextRunInfo; const PRUnichar* unicodeText; char* scriptRunText; size_t unicodeTextLengthInBytes, unicodeTextReadInBytes, scriptRunTextSizeInBytes, scriptRunTextLengthInBytes, scriptCodeRunListLength; ScriptCodeRun convertedTextScript; NS_PRECONDITION(mFontMetrics != nsnull, "nsMacControl::NSStringSetControlTitle: no Font Metrics"); // // determine the script of the font that the control is supposed to be drawn in // #if !TARGET_CARBON nsFontUtils::GetNativeTextStyle(*mFontMetrics, *mContext, theStyle); #endif fontScript = ::FontToScript(theStyle.tsFont); // // create a Unicode Conveter object (from Unicode -> font) // err = ::CreateUnicodeToTextRunInfoByScriptCode(1,&fontScript,&unicodeTextRunInfo); NS_ASSERTION(err==noErr,"nsMacControl::NSStringSetControlTitle: CreateUnicodeToTextRunInfoByScriptCode failed."); if (err!=noErr) { return; } // // get the Unicode text and prepare buffers // unicodeText = title.get(); unicodeTextLengthInBytes = title.Length() * sizeof(PRUnichar); scriptRunTextSizeInBytes = unicodeTextLengthInBytes * 2; scriptRunText = new char[scriptRunTextSizeInBytes]; // // convert from Unicode to script run // err = ::ConvertFromUnicodeToScriptCodeRun(unicodeTextRunInfo, unicodeTextLengthInBytes,NS_REINTERPRET_CAST(const PRUint16*, unicodeText), 0, /* no flags */ 0,NULL,NULL,NULL, /* no offset arrays */ scriptRunTextSizeInBytes,&unicodeTextReadInBytes,&scriptRunTextLengthInBytes, scriptRunText, 1 /* count of scrip runs*/,&scriptCodeRunListLength,&convertedTextScript); if (err!=noErr) { // // the font script is not capable of rendering this string, we need to find an installed // script that can // err = ::CreateUnicodeToTextRunInfoByScriptCode(0,NULL,&unicodeTextRunInfo); NS_ASSERTION(err==noErr,"nsMacControl::NSStringSetControlTitle: CreateUnicodeToTextRunInfoByScriptCode failed."); if (err!=noErr) { return; } // // convert from Unicode to script run // err = ::ConvertFromUnicodeToScriptCodeRun(unicodeTextRunInfo, unicodeTextLengthInBytes,NS_REINTERPRET_CAST(const PRUint16*, unicodeText), 0, /* no flags */ 0,NULL,NULL,NULL, /* no offset arrays */ scriptRunTextSizeInBytes,&unicodeTextReadInBytes,&scriptRunTextLengthInBytes, scriptRunText, 1 /* count of scrip runs*/,&scriptCodeRunListLength,&convertedTextScript); NS_ASSERTION(err==noErr,"nsMacControl::NSStringSetControlTitle: CreateUnicodeToTextRunInfoByScriptCode failed."); if (err!=noErr) { delete [] scriptRunText; return;} } scriptRunText[scriptRunTextLengthInBytes] = 0; // null terminate if (convertedTextScript.script!=fontScript) SetupMacControlFontForScript(convertedTextScript.script); // // set the control title // ::SetControlTitle(theControl,c2pstr(scriptRunText)); delete [] scriptRunText; #endif } //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- void nsMacControl::SetupMacControlFontForScript(short theScript) { short themeFontID; Str255 themeFontName; SInt16 themeFontSize; Style themeFontStyle; TextStyle theStyle; OSErr err; NS_PRECONDITION(mFontMetrics != nsnull, "No font metrics in SetupMacControlFont"); NS_PRECONDITION(mContext != nsnull, "No context metrics in SetupMacControlFont"); #if !TARGET_CARBON nsFontUtils::GetNativeTextStyle(*mFontMetrics, *mContext, theStyle); #endif // // take the script and select and override font // err = ::GetThemeFont(kThemeSystemFont,theScript,themeFontName,&themeFontSize,&themeFontStyle); NS_ASSERTION(err==noErr,"nsMenu::NSStringNewMenu: GetThemeFont failed."); ::GetFNum(themeFontName,&themeFontID); // if needed, impose a min size of 9pt on the control font if (theStyle.tsSize < 9) theStyle.tsSize = 9; ControlFontStyleRec fontStyleRec; fontStyleRec.flags = (kControlUseFontMask | kControlUseFaceMask | kControlUseSizeMask); fontStyleRec.font = themeFontID; fontStyleRec.size = theStyle.tsSize; fontStyleRec.style = theStyle.tsFace; ::SetControlFontStyle(mControl, &fontStyleRec); } //------------------------------------------------------------------------- // // //------------------------------------------------------------------------- void nsMacControl::GetFileSystemCharset(nsString & fileSystemCharset) { static nsAutoString aCharset; nsresult rv; if (aCharset.Length() < 1) { nsCOMPtr platformCharset = do_GetService(NS_PLATFORMCHARSET_CONTRACTID, &rv); if (NS_SUCCEEDED(rv)) rv = platformCharset->GetCharset(kPlatformCharsetSel_FileName, aCharset); NS_ASSERTION(NS_SUCCEEDED(rv), "error getting platform charset"); if (NS_FAILED(rv)) aCharset.Assign(NS_LITERAL_STRING("x-mac-roman")); } fileSystemCharset = aCharset; }