# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1003334956 -7200
# Node ID 6525741c998e51bf031126f44b5240b79202de3e
# Parent  1577ee65ddc7d06478779a7d36a8a954985a554d
*** empty log message ***

diff -r 1577ee65ddc7 -r 6525741c998e MenuEditor.st
--- 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].
 
diff -r 1577ee65ddc7 -r 6525741c998e UIHelpTool.st
--- 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.