--- a/Button.st Thu Dec 14 21:18:44 1995 +0100
+++ b/Button.st Fri Dec 15 14:04:06 1995 +0100
@@ -60,7 +60,7 @@
For simplicity, better use actionBlocks for trigger-like actions
(such as closing a view, ok/abort etc.) iff there is only a single
- entity which is interrested in that button press.
+ entity which is interested in that button press.
"
!
@@ -1862,5 +1862,5 @@
!Button class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.42 1995-12-07 22:26:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.43 1995-12-15 13:03:57 cg Exp $'
! !
--- a/ButtonC.st Thu Dec 14 21:18:44 1995 +0100
+++ b/ButtonC.st Fri Dec 15 14:04:06 1995 +0100
@@ -241,7 +241,7 @@
enableChannel notNil ifTrue:[
wasEnabled := enableChannel value.
- enableChannel retractInterrestFor:self.
+ enableChannel retractInterestsFor:self.
] ifFalse:[
wasEnabled := true
].
@@ -557,5 +557,5 @@
!ButtonController class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.24 1995-12-03 20:59:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.25 1995-12-15 13:03:59 cg Exp $'
! !
--- a/ButtonController.st Thu Dec 14 21:18:44 1995 +0100
+++ b/ButtonController.st Fri Dec 15 14:04:06 1995 +0100
@@ -241,7 +241,7 @@
enableChannel notNil ifTrue:[
wasEnabled := enableChannel value.
- enableChannel retractInterrestFor:self.
+ enableChannel retractInterestsFor:self.
] ifFalse:[
wasEnabled := true
].
@@ -557,5 +557,5 @@
!ButtonController class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.24 1995-12-03 20:59:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.25 1995-12-15 13:03:59 cg Exp $'
! !
--- a/EFGroup.st Thu Dec 14 21:18:44 1995 +0100
+++ b/EFGroup.st Fri Dec 15 14:04:06 1995 +0100
@@ -425,28 +425,28 @@
!
handlesButtonPress:button inView:aView
- "query from event processor: am I interrested in button-events ?
+ "query from event processor: am I interested in button-events ?
yes I am (to activate the clicked-on field)."
^ true
!
handlesButtonShiftPress:button inView:aView
- "query from event processor: am I interrested in button-events ?
+ "query from event processor: am I interested in button-events ?
yes I am (to activate the clicked-on field)."
^ true
!
handlesKeyPress:key inView:aView
- "query from event processor: am I interrested in key-events ?
+ "query from event processor: am I interested in key-events ?
yes I am (to forward it to the active field)."
^ true
!
handlesKeyRelease:key inView:aView
- "query from event processor: am I interrested in key-events ?
+ "query from event processor: am I interested in key-events ?
yes I am (to forward it to the active field)."
^ true
@@ -501,5 +501,5 @@
!EnterFieldGroup class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.15 1995-11-23 17:45:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.16 1995-12-15 13:04:00 cg Exp $'
! !
--- a/EditField.st Thu Dec 14 21:18:44 1995 +0100
+++ b/EditField.st Fri Dec 15 14:04:06 1995 +0100
@@ -432,13 +432,13 @@
application := Plug new.
application respondTo:#value1Changed
- with:[value2 retractInterrestFor:application.
+ with:[value2 retractInterestsFor:application.
value2 value:(value1 value isNil ifTrue:[nil]
ifFalse:[value1 value squared]).
value2 onChangeSend:#value2Changed to:application.
].
application respondTo:#value2Changed
- with:[value1 retractInterrestFor:application.
+ with:[value1 retractInterestsFor:application.
value1 value:(value2 value isNil ifTrue:[nil]
ifFalse:[value2 value sqrt]).
value1 onChangeSend:#value1Changed to:application.
@@ -472,7 +472,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.34 1995-12-04 00:24:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.35 1995-12-15 13:04:02 cg Exp $'
! !
!EditField class methodsFor:'defaults'!
--- a/EnterFieldGroup.st Thu Dec 14 21:18:44 1995 +0100
+++ b/EnterFieldGroup.st Fri Dec 15 14:04:06 1995 +0100
@@ -425,28 +425,28 @@
!
handlesButtonPress:button inView:aView
- "query from event processor: am I interrested in button-events ?
+ "query from event processor: am I interested in button-events ?
yes I am (to activate the clicked-on field)."
^ true
!
handlesButtonShiftPress:button inView:aView
- "query from event processor: am I interrested in button-events ?
+ "query from event processor: am I interested in button-events ?
yes I am (to activate the clicked-on field)."
^ true
!
handlesKeyPress:key inView:aView
- "query from event processor: am I interrested in key-events ?
+ "query from event processor: am I interested in key-events ?
yes I am (to forward it to the active field)."
^ true
!
handlesKeyRelease:key inView:aView
- "query from event processor: am I interrested in key-events ?
+ "query from event processor: am I interested in key-events ?
yes I am (to forward it to the active field)."
^ true
@@ -501,5 +501,5 @@
!EnterFieldGroup class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.15 1995-11-23 17:45:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.16 1995-12-15 13:04:00 cg Exp $'
! !
--- a/Label.st Thu Dec 14 21:18:44 1995 +0100
+++ b/Label.st Fri Dec 15 14:04:06 1995 +0100
@@ -861,10 +861,10 @@
#right -> right adjust logo
#center -> center logo
#centerRight -> center logo; if no fit, right adjust
- (use with filenames, where the interresting part is
+ (use with filenames, where the interesting part is
at the right if the label is too small)
#centerLeft -> center logo; if it does not fit, left adjust it
- (use with strings where the interresting part is at the
+ (use with strings where the interesting part is at the
left if the label is too small)
"
@@ -1348,5 +1348,5 @@
!Label class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.38 1995-12-14 13:56:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.39 1995-12-15 13:04:04 cg Exp $'
! !
--- a/PopUpMenu.st Thu Dec 14 21:18:44 1995 +0100
+++ b/PopUpMenu.st Fri Dec 15 14:04:06 1995 +0100
@@ -274,7 +274,7 @@
"create and return a popup menu with labels as entries.
Each item will send aSelector with a corresponding argument from the
args array to anObject. The menu is created on the same physical device
- as aView (which is only of interrest in multi-Display applications;
+ as aView (which is only of interest in multi-Display applications;
typical applications can use the sibbling message without the for: argument)."
"
@@ -309,7 +309,7 @@
"create and return a popup menu with labels as entries.
Each item will send a corresponding selector:argument from the selectors-
and args array to anObject. The menu is created on the same physical device
- as aView (which is only of interrest in multi-Display applications;
+ as aView (which is only of interest in multi-Display applications;
typical applications can use the sibbling message without the for: argument)."
|newMenu|
@@ -337,7 +337,7 @@
"create and return a popup menu with labels as entries.
Each item will send a corresponding selector from the selectors-array
to anObject. The menu is created on the same physical device
- as aView (which is only of interrest in multi-Display applications;
+ as aView (which is only of interest in multi-Display applications;
typical applications can use the sibbling message without the for: argument)."
^ self labels:labels selectors:selectors args:nil receiver:anObject for:aView
@@ -924,5 +924,5 @@
!PopUpMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.28 1995-11-23 18:15:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.29 1995-12-15 13:04:06 cg Exp $'
! !