--- a/WarningBox.st	Thu Mar 01 10:44:11 2018 +0100
+++ b/WarningBox.st	Thu Mar 01 22:53:52 2018 +0100
@@ -145,6 +145,14 @@
 "
 ! !
 
+!WarningBox class methodsFor:'defaults'!
+
+defaultLabel
+    ^ 'Warning'
+
+    "Created: / 01-03-2018 / 22:44:19 / mawalch"
+! !
+
 !WarningBox class methodsFor:'icon bitmap'!
 
 errorIconBitmap
@@ -242,13 +250,6 @@
     "Modified: / 16.11.2001 / 15:00:43 / cg"
 ! !
 
-!WarningBox methodsFor:'initialization'!
-
-initialize
-    super initialize.
-    label := 'Warning'
-! !
-
 !WarningBox methodsFor:'queries'!
 
 beepWhenOpening
@@ -259,5 +260,9 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !