# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 874355121 -7200
# Node ID a499287547897beb688f6ba4a34024c347616d20
# Parent  b27d39658fd2d25e863de34d08b734ad59253e3a
*** empty log message ***

diff -r b27d39658fd2 -r a49928754789 ActiveHelp.st
--- a/ActiveHelp.st	Mon Sep 15 22:16:05 1997 +0200
+++ b/ActiveHelp.st	Mon Sep 15 22:25:21 1997 +0200
@@ -292,8 +292,6 @@
 pointerEnter:state x:x y:y view:aView
     "handle pointer entering a view; setup timeOut to show help"
 
-    |p|
-
     self stopHelpDisplayProcess.
     self hideIfPointerLeft:aView.
     aView topView == currentHelpView ifTrue:[
@@ -421,12 +419,7 @@
 hideIfPointerLeft:aView
     "hide help, if the pointer is not in aView"
 
-    |whereOnScreen p|
-
-"/    showProcess notNil ifTrue:[
-"/        p := showProcess. showProcess := nil.
-"/        p terminate.
-"/    ].
+    |whereOnScreen|
 
     whereOnScreen := aView graphicsDevice pointerPosition.
 
@@ -495,7 +488,7 @@
      re-negotiation of the displayed helpText 
      (for example in a menu, when the selection changes)"
 
-    |text p top app|
+    |text top app|
 
     text := self helpTextFor:aView atX:x y:y.
     lastHelpText = text ifTrue:[
@@ -544,7 +537,7 @@
 showHelp:aHelpText for:view
     "show the help text for aView"
 
-    |org p v dev top app|
+    |org p v dev|
 
     view == currentView ifTrue:[
         lastHelpText = aHelpText ifTrue:[
@@ -618,6 +611,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.27 1997-06-28 13:07:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.28 1997-09-15 20:25:20 cg Exp $'
 ! !
 ActiveHelp initialize!
diff -r b27d39658fd2 -r a49928754789 Menu.st
--- a/Menu.st	Mon Sep 15 22:16:05 1997 +0200
+++ b/Menu.st	Mon Sep 15 22:25:21 1997 +0200
@@ -1,3 +1,5 @@
+'From Smalltalk/X, Version:3.1.10 on 13-sep-1997 at 10:55:54 pm'                !
+
 Object subclass:#Menu
 	instanceVariableNames:'items groupSizes receiver'
 	classVariableNames:''
@@ -59,6 +61,18 @@
         ^self new menuItems: menuItems menuItemGroups: groupLengths values: valueArray
 
     "Modified: 20.6.1997 / 10:46:45 / cg"
+!
+
+labelList:arrayOfGroupStrings values:valueArrayOrNil
+    |labels lines|
+
+    lines := arrayOfGroupStrings collect:[:each | each size].
+    labels := OrderedCollection new.
+    arrayOfGroupStrings do:[:group | labels addAll:group].
+    ^ self labelArray:labels lines:lines values:valueArrayOrNil
+
+    "Modified: 20.6.1997 / 10:46:45 / cg"
+    "Created: 13.9.1997 / 10:35:46 / cg"
 ! !
 
 !Menu methodsFor:'accessing'!
@@ -86,6 +100,16 @@
     ].
 !
 
+atNameKey:aNameKey
+    "return the menuItem for the given nameKey; nil if no such item is in the menu."
+
+    items do:[:anItem | anItem nameKey == aNameKey ifTrue:[^ anItem]].
+    ^ nil
+
+    "Created: 13.9.1997 / 10:25:16 / cg"
+    "Modified: 13.9.1997 / 10:28:44 / cg"
+!
+
 groupSizes
     "return the value of the instance variable 'groupSizes' (automatically generated)"
 
@@ -186,6 +210,18 @@
 
     receiver := something.!
 
+removeItem:aMenuItem
+    |idx|
+    items notNil ifTrue:[
+        idx := items identityIndexOf:aMenuItem.
+        idx ~~ 0 ifTrue:[
+            items removeAtIndex:idx
+        ]
+    ].
+
+    "Created: 13.9.1997 / 10:27:31 / cg"
+!
+
 valueAt:index
     "return a collection of values from my items"
 
@@ -466,5 +502,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.17 1997-07-28 11:17:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.18 1997-09-15 20:25:21 cg Exp $'
 ! !