--- a/UIObjectView.st Mon Jul 28 12:12:52 1997 +0200
+++ b/UIObjectView.st Mon Jul 28 12:16:15 1997 +0200
@@ -859,7 +859,7 @@
showUnselected:aComponent
"show object unselected
"
- |wasClipped delta r|
+ |wasClipped r|
selectionHiddenLevel ~~ 0 ifTrue:[^ self].
--- a/UISelectionPanel.st Mon Jul 28 12:12:52 1997 +0200
+++ b/UISelectionPanel.st Mon Jul 28 12:16:15 1997 +0200
@@ -1174,7 +1174,7 @@
raiseMenu
"can open menu
"
- |spec menu value collection paste|
+ |spec menu value paste|
spec := self clientSpec value.