# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 846349035 -7200
# Node ID 42ae71c13eef25f55e2745b3c0e421a1aa8483d0
# Parent  3a611a1f882d64011a631323b4fb294e14adb468
*** empty log message ***

diff -r 3a611a1f882d -r 42ae71c13eef ActiveHelp.st
--- a/ActiveHelp.st	Sat Oct 26 18:49:55 1996 +0200
+++ b/ActiveHelp.st	Sat Oct 26 18:57:15 1996 +0200
@@ -278,7 +278,7 @@
 pointerEnter:state x:x y:y view:aView
     "handle pointer entering a view; setup timeOut to show help"
 
-    |text p|
+    |p|
 
     showProcess notNil ifTrue:[
         p := showProcess. showProcess := nil.
@@ -314,7 +314,7 @@
      #helpTextFor:at: or #helpTextFor: message ends this search and the
      returned string is returned."
 
-    |model text view org found v sv|
+    |model text view v sv|
 
     view := aView.
     (model := aView model) notNil ifTrue:[
@@ -527,6 +527,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.17 1996-10-15 23:36:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.18 1996-10-26 16:56:48 cg Exp $'
 ! !
 ActiveHelp initialize!
diff -r 3a611a1f882d -r 42ae71c13eef UIBuilder.st
--- a/UIBuilder.st	Sat Oct 26 18:49:55 1996 +0200
+++ b/UIBuilder.st	Sat Oct 26 18:57:15 1996 +0200
@@ -138,7 +138,7 @@
     "called for #(ColorValue #sym)
 	     or #(ColorValue red green blue)"
 
-    |clr arg|
+    |arg|
 
     (arg := spec at:2) isSymbol ifTrue:[
 	(Color respondsTo:arg) ifTrue:[
@@ -291,16 +291,16 @@
     |value r|
 
     self doSpec:args for:aView.
-"
-    value := self getArg:args.
-    (value at:1) == #rectangle ifTrue:[
-	r := value at:2.
-	aView origin:r origin corner:r corner.
-	^ self
-    ].
+"/
+"/    value := self getArg:args.
+"/    (value at:1) == #rectangle ifTrue:[
+"/	r := value at:2.
+"/	aView origin:r origin corner:r corner.
+"/	^ self
+"/    ].
+"/
+"/self halt.
 
-self halt.
-"
 !
 
 yDefaultable:args view:aView frame:frameView
@@ -858,7 +858,7 @@
 !
 
 doSpec:aSpec for:aView frame:frame 
-    |state selector args argsToRead|
+    |selector args argsToRead|
 
     argsToRead := 0.
     args := #().
@@ -913,6 +913,6 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.14 1996-05-20 08:40:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.15 1996-10-26 16:57:15 cg Exp $'
 ! !
 UIBuilder initialize!