--- a/DialogBox.st	Mon Dec 10 15:47:16 2001 +0100
+++ b/DialogBox.st	Tue Dec 11 11:19:22 2001 +0100
@@ -1129,6 +1129,24 @@
     "Modified: / 17.11.2001 / 23:06:06 / cg"
 !
 
+aboutClass:aClass
+    "opens astandard (simple) aboutBox for aClass."
+
+    |rev clsRev msg resources|
+
+    rev := ''.
+
+    (clsRev := aClass revision) notNil ifTrue: [rev := '  (rev: ', clsRev printString, ')'].
+    resources := aClass classResources.
+
+    msg := '\' withCRs , aClass name asBoldText, rev.
+
+    self
+        about:(resources string:msg)
+        label:(resources string:'About ' , aClass nameWithoutPrefix)
+        icon:aClass defaultIcon
+!
+
 informUser:aString during:aBlock
     "show a message-box while executing aBlock"
 
@@ -7341,6 +7359,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.182 2001-12-06 10:18:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.183 2001-12-11 10:19:22 cg Exp $'
 ! !
 DialogBox initialize!