--- a/LabelAndIcon.st	Wed Sep 18 21:32:35 2002 +0200
+++ b/LabelAndIcon.st	Wed Sep 18 21:33:10 2002 +0200
@@ -13,8 +13,8 @@
 
 "{ Package: 'stx:libwidg2' }"
 
-ListEntry subclass:#LabelAndIcon
-	instanceVariableNames:'icon gap string image offset'
+ModelListEntry subclass:#LabelAndIcon
+	instanceVariableNames:'icon gap image offset'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-Support'
@@ -294,20 +294,6 @@
     offset := pixels.
 
     "Created: / 21.6.1998 / 03:11:03 / cg"
-!
-
-string
-    "return my string part"
-
-    ^ string
-!
-
-string:aString
-    "set the labelString"
-
-    string := aString
-
-    "Created: 12.5.1996 / 20:00:52 / cg"
 ! !
 
 !LabelAndIcon methodsFor:'comparing'!
@@ -325,16 +311,6 @@
     ^ false
 ! !
 
-!LabelAndIcon methodsFor:'conversion'!
-
-asString
-    "return my string part"
-
-    ^ string
-
-    "Created: 12.5.1996 / 21:26:47 / cg"
-! !
-
 !LabelAndIcon methodsFor:'displaying'!
 
 displayOn:aGC x:x y:y opaque:opaque
@@ -464,5 +440,5 @@
 !LabelAndIcon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.30 2001-07-13 12:55:05 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.31 2002-09-18 19:33:10 stefan Exp $'
 ! !