--- a/PopUpList.st	Thu Sep 03 11:44:51 2015 +0200
+++ b/PopUpList.st	Tue Sep 08 17:38:28 2015 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg' }"
 
+"{ NameSpace: Smalltalk }"
+
 Button subclass:#PopUpList
 	instanceVariableNames:'menu menuAction values useIndex listMsg defaultLabel listHolder
 		showHandle ignoreReselect'
@@ -1081,6 +1083,12 @@
     "Modified: / 31.10.1997 / 19:48:02 / cg"
 ! !
 
+!PopUpList methodsFor:'testing'!
+
+isPopUpList
+    ^ true
+! !
+
 !PopUpList methodsFor:'user actions'!
 
 select:anIndex
@@ -1145,10 +1153,10 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.83 2014-02-18 15:03:42 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.83 2014-02-18 15:03:42 stefan Exp $'
+    ^ '$Header$'
 ! !