--- a/MenuEditor.st Wed Oct 17 12:25:01 2001 +0200
+++ b/MenuEditor.st Wed Oct 17 18:09:16 2001 +0200
@@ -2191,7 +2191,7 @@
"update channels"
|node parent next prev state canPaste selectedNodes firstParent
- enableMovingOut enableMovingIn indices indexOfLast|
+ enableMovingOut enableMovingIn indexOfLast|
enableMovingOut := enableMovingIn := false.
@@ -2456,7 +2456,7 @@
tabSelection:aSelection
"put the section aSelection into the note book
"
- |view spec|
+ |view|
aSelection = tabSelection ifTrue:[^self].
--- a/UIHelpTool.st Wed Oct 17 12:25:01 2001 +0200
+++ b/UIHelpTool.st Wed Oct 17 18:09:16 2001 +0200
@@ -638,8 +638,6 @@
"reads the help dictionary from aClass and find remaining classes
'between' aClass and ApplicationModel"
- |list listOfHelpSpecClassesView|
-
modified := false.
specClass := self getHelpSpecClassFromClass:aClass.
self rebuild.