--- 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!
--- 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!