--- a/PopUpList.st	Sat Mar 01 01:54:01 1997 +0100
+++ b/PopUpList.st	Sat Mar 01 02:14:09 1997 +0100
@@ -424,6 +424,16 @@
     defaultLabel := aString
 !
 
+label:aString
+    self defaultLabel:aString.
+    model isNil ifTrue:[
+        super label:aString
+    ].
+
+    "Created: 1.3.1997 / 02:09:02 / cg"
+    "Modified: 1.3.1997 / 02:11:03 / cg"
+!
+
 list
     "return the list - i.e. the values shown in the pop-up list"
 
@@ -466,13 +476,13 @@
         "/ index := menu indexOf:indexOrString.
     ].
     index == 0 ifTrue:[
-        self label:defaultLabel.
+        super label:defaultLabel.
         ^ self
     ].
 
     "kludge: dont want label to resize ..."
     wasFix := fixSize. fixSize := true.
-    self label:(menu labels at:index) printString.
+    super label:(menu labels at:index) printString.
     fixSize := wasFix
 
     "
@@ -496,7 +506,7 @@
      p open
     "
 
-    "Modified: 28.2.1997 / 15:29:40 / cg"
+    "Modified: 1.3.1997 / 02:12:24 / cg"
 !
 
 values:aList
@@ -716,13 +726,13 @@
     self adjust:#left.
     useIndex := false.
     defaultLabel := 'popup'.
-    self label:defaultLabel.
+    super label:defaultLabel.
 
     listMsg := self class defaultListMessage.
 
     onLevel := offLevel.
 
-    "Modified: 26.2.1997 / 18:23:43 / cg"
+    "Modified: 1.3.1997 / 02:12:55 / cg"
 ! !
 
 !PopUpList methodsFor:'private'!
@@ -873,7 +883,7 @@
 
         self sizeFixed:true.
         label := menu labels at:anIndex.
-        self label:label printString.
+        super label:label printString.
     ].
 
     (model notNil and:[changeMsg notNil]) ifTrue:[
@@ -904,11 +914,11 @@
         menuAction value:value.
     ].
 
-    "Modified: 28.2.1997 / 13:49:55 / cg"
+    "Modified: 1.3.1997 / 02:13:07 / cg"
 ! !
 
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.46 1997-02-28 18:54:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.47 1997-03-01 01:14:09 cg Exp $'
 ! !