--- a/CheckBox.st Thu Aug 22 18:53:28 2002 +0200
+++ b/CheckBox.st Thu Aug 22 18:55:47 2002 +0200
@@ -748,20 +748,6 @@
"Created: 18.7.1996 / 11:57:01 / cg"
!
-destroy
- "release dependencies"
-
- |channel|
-
- toggleView notNil ifTrue:[
- (channel := toggleView enableChannel) notNil ifTrue:[
- channel retractInterestsFor:self
- ]
- ].
- super destroy
-
-!
-
initStyle
"setup viewStyle specifics"
@@ -842,6 +828,19 @@
"
"Modified: / 17.9.1998 / 14:18:18 / cg"
+!
+
+release
+ "release dependencies"
+
+ |channel|
+
+ toggleView notNil ifTrue:[
+ (channel := toggleView enableChannel) notNil ifTrue:[
+ channel retractInterestsFor:self
+ ]
+ ].
+ super release
! !
!CheckBox methodsFor:'private'!
@@ -902,5 +901,5 @@
!CheckBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.70 2001-12-14 09:39:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.71 2002-08-22 16:55:47 cg Exp $'
! !
--- a/ComboView.st Thu Aug 22 18:53:28 2002 +0200
+++ b/ComboView.st Thu Aug 22 18:55:47 2002 +0200
@@ -365,16 +365,6 @@
!ComboView methodsFor:'initialize / release'!
-destroy
- listHolder notNil ifTrue:[
- listHolder removeDependent:self.
- listHolder := nil.
- ].
- super destroy
-
-
-!
-
initialize
|prefExt leftInset rightInset prefWidth halfSpacing l nm|
@@ -476,6 +466,14 @@
self subclassResponsibility
"Created: 29.3.1997 / 11:17:14 / cg"
+!
+
+release
+ listHolder notNil ifTrue:[
+ listHolder removeDependent:self.
+ listHolder := nil.
+ ].
+ super release
! !
!ComboView methodsFor:'message delegation'!
@@ -641,5 +639,5 @@
!ComboView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.66 2002-08-19 15:58:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.67 2002-08-22 16:55:38 cg Exp $'
! !
--- a/DSVColumnView.st Thu Aug 22 18:53:28 2002 +0200
+++ b/DSVColumnView.st Thu Aug 22 18:55:47 2002 +0200
@@ -2431,21 +2431,6 @@
checkToggleForm := self imageOnDevice:checkToggleForm.
!
-destroy
- "remove dependencies
- "
- self columnHolder:nil.
-
- listHolder removeDependent:self.
-
- columnAdaptor isValueModel ifTrue:[
- columnAdaptor removeDependent:self
- ].
-
- self beDependentOfRows:false.
- super destroy
-!
-
initStyle
"setup colors
"
@@ -2593,6 +2578,21 @@
(idx := self firstIndexSelected) ~~ 0 ifTrue:[
self scrollToRowAt:idx colAt:0.
].
+!
+
+release
+ "remove dependencies
+ "
+ self columnHolder:nil.
+
+ listHolder removeDependent:self.
+
+ columnAdaptor isValueModel ifTrue:[
+ columnAdaptor removeDependent:self
+ ].
+
+ self beDependentOfRows:false.
+ super release
! !
!DSVColumnView methodsFor:'obsolete'!
@@ -3640,5 +3640,5 @@
!DSVColumnView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.143 2002-08-22 15:23:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.144 2002-08-22 16:55:22 cg Exp $'
! !
--- a/ExtendedComboBox.st Thu Aug 22 18:53:28 2002 +0200
+++ b/ExtendedComboBox.st Thu Aug 22 18:55:47 2002 +0200
@@ -1049,16 +1049,6 @@
!ExtendedComboBox methodsFor:'initialization'!
-destroy
- "destroy the menuWrapper and release dependencies
- "
- menuWidgetHolder notNil ifTrue:[
- menuWidgetHolder removeDependent:self
- ].
- self menuWidget:nil.
- super destroy.
-!
-
initialize
"setup defaults
"
@@ -1117,6 +1107,16 @@
self readOnly:true.
+!
+
+release
+ "release dependencies
+ "
+ menuWidgetHolder notNil ifTrue:[
+ menuWidgetHolder removeDependent:self
+ ].
+ self menuWidget:nil.
+ super release.
! !
!ExtendedComboBox methodsFor:'queries'!
@@ -1494,5 +1494,5 @@
!ExtendedComboBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.32 2002-08-02 12:01:13 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.33 2002-08-22 16:55:06 cg Exp $'
! !