summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorchengyemao <chengyemao>2005-01-10 15:35:30 (GMT)
committerchengyemao <chengyemao>2005-01-10 15:35:30 (GMT)
commitab0d39f7f42ae61b5096c0c40cb2c1c4c5fb5210 (patch)
tree0c07e7391fe11e9f40d32fcf5aec3944c0ca1086 /win
parent41daffa10c83a8ca07eed77fa03f1916be186192 (diff)
downloadtk-ab0d39f7f42ae61b5096c0c40cb2c1c4c5fb5210.zip
tk-ab0d39f7f42ae61b5096c0c40cb2c1c4c5fb5210.tar.gz
tk-ab0d39f7f42ae61b5096c0c40cb2c1c4c5fb5210.tar.bz2
corrected return values and added comments for embedded window messages
Diffstat (limited to 'win')
-rw-r--r--win/tkWinEmbed.c179
1 files changed, 156 insertions, 23 deletions
diff --git a/win/tkWinEmbed.c b/win/tkWinEmbed.c
index 3538541..538e357 100644
--- a/win/tkWinEmbed.c
+++ b/win/tkWinEmbed.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkWinEmbed.c,v 1.21 2005/01/09 19:17:23 chengyemao Exp $
+ * RCS: @(#) $Id: tkWinEmbed.c,v 1.22 2005/01/10 15:35:30 chengyemao Exp $
*/
#include "tkWinInt.h"
@@ -168,7 +168,7 @@ TkpUseWindow(interp, tkwin, string)
return TCL_ERROR;
}
*/
- if(stricmp(string, "") == 0) {
+ if(strcmp(string, "") == 0) {
if(winPtr->flags & TK_EMBEDDED) {
TkpWinToplevelDetachWindow(winPtr);
TkpWinToplevelOverrideRedirect(winPtr, 0);
@@ -427,11 +427,16 @@ TkWinEmbeddedEventProc(hwnd, message, wParam, lParam)
* window.
*
* wParam - a handle of an embedded window
+ * lParam - N/A
*
* An embedded window may send this message with a wParam of NULL
* to test if a window is able to provide embedding service. The
* container returns its window handle for accepting the attachment
* and identifying itself or a zero for being already in use.
+ *
+ * Return value:
+ * 0 - the container is unable to be used.
+ * hwnd - the container is ready to be used.
*/
if (containerPtr->embeddedHWnd == NULL) {
containerPtr->embeddedHWnd = (HWND)wParam;
@@ -442,6 +447,17 @@ TkWinEmbeddedEventProc(hwnd, message, wParam, lParam)
break;
case TK_DETACHWINDOW:
+ /* An embedded window notifies the container that it is detached.
+ * The container should clearn the related variables and redraw
+ * its window.
+ *
+ * wParam - N/A
+ * lParam - N/A
+ *
+ * Return value:
+ * 0 - the message is not processed.
+ * others - the message is processed.
+ */
containerPtr->embeddedMenuHWnd = NULL;
containerPtr->embeddedHWnd = NULL;
containerPtr->parentPtr->flags &= ~TK_BOTH_HALVES;
@@ -450,28 +466,66 @@ TkWinEmbeddedEventProc(hwnd, message, wParam, lParam)
break;
case TK_GEOMETRYREQ:
- /*
+ /* An embedded window requests a window size change.
+ *
* wParam - window width
* lParam - window height
+ *
+ * Return value:
+ * 0 - the message is not processed.
+ * others - the message is processed.
*/
- EmbedGeometryRequest(containerPtr, (int) wParam, lParam);
+ EmbedGeometryRequest(containerPtr, (int)wParam, lParam);
break;
case TK_RAISEWINDOW:
- /*
+ /* An embedded window requests to change its Z-order
+ *
* wParam - a window handle as a z-order stack reference
* lParam - a flag of above-below: 0 - above; 1 or others: - below
+ *
+ * Return value:
+ * 0 - the message is not processed.
+ * others - the message is processed.
*/
TkWinSetWindowPos(GetParent(containerPtr->parentHWnd), (HWND)wParam, (int)lParam);
break;
case TK_GETFRAMEWID:
- result = (long)GetParent(containerPtr->parentHWnd);
+ /* An embedded window requests to get the frame window's id
+ *
+ * wParam - N/A
+ * lParam - N/A
+ *
+ * Return vlaue:
+ *
+ * A handle of the frame window. If it is not availble, a
+ * zeor is returned.
+ */
+ if(topwinPtr) {
+ result = (long)GetParent(containerPtr->parentHWnd);
+ } else {
+ topwinPtr = containerPtr->parentPtr;
+ while (!(topwinPtr->flags & TK_TOP_HIERARCHY)) {
+ topwinPtr = topwinPtr->parentPtr;
+ }
+ if(topwinPtr && topwinPtr->window) {
+ result = (long)GetParent(Tk_GetHWND(topwinPtr->window));
+ } else {
+ result = 0;
+ }
+ }
break;
case TK_CLAIMFOCUS:
- /*
+ /* An embedded window requests a focus
+ *
* wParam - a flag of forcing focus
+ * lParam - N/A
+ *
+ * Return value:
+ * 0 - the message is not processed
+ * 1 - the message is processed
*/
if(!SetFocus(containerPtr->embeddedHWnd) && wParam) {
/*
@@ -481,61 +535,140 @@ TkWinEmbeddedEventProc(hwnd, message, wParam, lParam)
break;
case TK_WITHDRAW:
- if(topwinPtr) TkpWinToplevelWithDraw(topwinPtr);
+ /* An embedded window requests withdraw
+ *
+ * wParam - N/A
+ * lParam - N/A
+ *
+ * Return value
+ * 0 - the message is not processed
+ * 1 - the message is processed
+ */
+ if(topwinPtr)
+ TkpWinToplevelWithDraw(topwinPtr);
+ else
+ result = 0;
break;
case TK_ICONIFY:
- if(topwinPtr) TkpWinToplevelIconify(topwinPtr);
+ /* An embedded window requests iconification
+ *
+ * wParam - N/A
+ * lParam - N/A
+ *
+ * Return value
+ * 0 - the message is not processed
+ * 1 - the message is processed
+ */
+ if(topwinPtr)
+ TkpWinToplevelIconify(topwinPtr);
+ else
+ result = 0;
break;
case TK_DEICONIFY:
- if(topwinPtr) TkpWinToplevelDeiconify(topwinPtr);
+ /* An embedded window requests deiconification
+ *
+ * wParam - N/A
+ * lParam - N/A
+ *
+ * Return value
+ * 0 - the message is not processed
+ * 1 - the message is processed
+ */
+ if(topwinPtr)
+ TkpWinToplevelDeiconify(topwinPtr);
+ else
+ result = 0;
break;
case TK_MOVEWINDOW:
- /*
- * wParam - x value of the frame's upper left;
- * lParam - y value of the frame's upper left;
+ /* An embedded window requests to move position if
+ * both wParam and lParam are greater or equal to 0.
+ * wParam - x value of the frame's upper left
+ * lParam - y value of the frame's upper left
+ *
+ * Otherwise an embedded window requests the current
+ * position
+ *
+ * Return value: an encoded window position in a 32bit long,
+ * i.e, ((x << 16) & 0xffff0000) | (y & 0xffff)
+ *
+ * Only a toplevel container may move the embedded.
*/
- if(topwinPtr) {
- result = TkpWinToplevelMove(topwinPtr, wParam, lParam);
- }
+ result = TkpWinToplevelMove(containerPtr->parentPtr, wParam, lParam);
break;
case TK_OVERRIDEREDIRECT:
+ /* An embedded window request overrideredirect.
+ *
+ * wParam
+ * 0 - add a frame if there is no one
+ * 1 - remove the frame if there is a one
+ * < 0 - query the current overrideredirect value
+ *
+ * lParam - N/A
+ *
+ * Return value:
+ * the current value of overrideredirect if the container is
+ * a toplevel. Otherwise -1.
+ */
if(topwinPtr) {
result = TkpWinToplevelOverrideRedirect(topwinPtr, wParam);
+ } else {
+ result = -1;
}
break;
case TK_SETMENU:
+ /* An embedded requests to set a menu
+ *
+ * wParam - a menu handle
+ * lParam - a menu window handle
+ *
+ * Return value:
+ * 1 - the message is processed
+ * 0 - the message is not processed
+ */
if(topwinPtr) {
containerPtr->embeddedMenuHWnd = (HWND)lParam;
TkWinSetMenu((Tk_Window)topwinPtr, (HMENU)wParam);
- result = 1;
+ } else {
+ result = 0;
}
break;
case TK_STATE:
- /*
- * 0 - normal state
- * 1 - withdrawn state
- * 2 - zoom state
- * 3 - icon state
+ /* An embedded window request set/get state services
+ *
+ * wParam - service directive
+ * 0 - 3 for setting state
+ * 0 - withdrawn state
+ * 1 - normal state
+ * 2 - zoom state
+ * 3 - icon state
+ * others for gettting state
+ *
+ * lParam - N/A
+ *
+ * Return value
+ * the current state or -1 if the container is not a toplevel
*/
if(topwinPtr) {
if(wParam >= 0 && wParam <= 3) {
TkpWmSetState(topwinPtr, wParam);
}
result = TkpWmGetState(topwinPtr);
+ } else {
+ result = -1;
}
break;
+
/*
* Return 0 since the current Tk container implementation
* is unable to provide following services.
*
*/
-
default:
result = 0;
break;