--- a/WinWorkstat.st	Wed Sep 30 17:33:32 1998 +0200
+++ b/WinWorkstat.st	Wed Sep 30 17:34:10 1998 +0200
@@ -3499,6 +3499,32 @@
     "enable / disable use of native windows"
 
     NativeWindows := aBoolean
+!
+
+activateOnClick:aBoolean
+    "set/clear the activateOnClick behavior.
+     If on, a click into a window raises and activates
+     the window.
+     Windows users typically enable this;
+     users which are used to the X-Window system typically prefer
+     it disabled.
+     Returns the previous setting."
+%{
+    OBJ rslt = activateOnClick ? true : false;
+
+    if (aBoolean == true) {
+       activateOnClick = 1;
+    } else {
+       if (aBoolean == false) {
+	   activateOnClick = 0;
+       }
+    }
+    RETURN (rslt);
+%}
+    "
+     WinWorkstation activateOnClick:true
+     WinWorkstation activateOnClick:false
+    "
 ! !
 
 !WinWorkstation class methodsFor:'debugging'!
@@ -4840,6 +4866,22 @@
 %}
 !
 
+addMenuItemWithLabel:aString toWindowID:aWindowId
+%{
+
+
+    if (__isExternalAddress(aWindowId)) {
+	HWND hWin = _HWNDVal(aWindowId);
+	HMENU hMenu;
+
+	hMenu = GetMenu(hWin);
+	if (hMenu) {
+        
+	}
+    }
+%}
+!
+
 primDestroyView:aView withId:aWindowId
 
 %{  /* xxLIMITEDSTACK (WIN95 only) */
@@ -10360,6 +10402,6 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WinWorkstat.st,v 1.73 1998-09-28 12:53:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WinWorkstat.st,v 1.74 1998-09-30 15:34:10 cg Exp $'
 ! !
 WinWorkstation initialize!

--- a/WinWorkstation.st	Wed Sep 30 17:33:32 1998 +0200
+++ b/WinWorkstation.st	Wed Sep 30 17:34:10 1998 +0200
@@ -3499,6 +3499,32 @@
     "enable / disable use of native windows"
 
     NativeWindows := aBoolean
+!
+
+activateOnClick:aBoolean
+    "set/clear the activateOnClick behavior.
+     If on, a click into a window raises and activates
+     the window.
+     Windows users typically enable this;
+     users which are used to the X-Window system typically prefer
+     it disabled.
+     Returns the previous setting."
+%{
+    OBJ rslt = activateOnClick ? true : false;
+
+    if (aBoolean == true) {
+       activateOnClick = 1;
+    } else {
+       if (aBoolean == false) {
+	   activateOnClick = 0;
+       }
+    }
+    RETURN (rslt);
+%}
+    "
+     WinWorkstation activateOnClick:true
+     WinWorkstation activateOnClick:false
+    "
 ! !
 
 !WinWorkstation class methodsFor:'debugging'!
@@ -4840,6 +4866,22 @@
 %}
 !
 
+addMenuItemWithLabel:aString toWindowID:aWindowId
+%{
+
+
+    if (__isExternalAddress(aWindowId)) {
+	HWND hWin = _HWNDVal(aWindowId);
+	HMENU hMenu;
+
+	hMenu = GetMenu(hWin);
+	if (hMenu) {
+        
+	}
+    }
+%}
+!
+
 primDestroyView:aView withId:aWindowId
 
 %{  /* xxLIMITEDSTACK (WIN95 only) */
@@ -10360,6 +10402,6 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.73 1998-09-28 12:53:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.74 1998-09-30 15:34:10 cg Exp $'
 ! !
 WinWorkstation initialize!