--- a/ChangesBrowser.st Sat Aug 26 12:56:40 2006 +0200
+++ b/ChangesBrowser.st Sat Aug 26 12:56:50 2006 +0200
@@ -1471,21 +1471,6 @@
"opens an about box for this application."
DialogBox aboutClass:self class.
-"/ |rev myClass clsRev msg|
-"/
-"/ rev := ''.
-"/ myClass := self class.
-"/
-"/ (clsRev := myClass revision) notNil ifTrue: [rev := ' (rev: ', clsRev printString, ')'].
-"/
-"/ msg := '\' withCRs , myClass name asBoldText, rev.
-"/
-"/ Dialog
-"/ about:(resources string:msg)
-"/ label:(resources string:'About ChangesBrowser')
-"/ icon:self class defaultIcon
-"/
-"/ "Modified: / 17.11.2001 / 23:07:33 / cg"
!
openHTMLDocument:relativeDocPath
@@ -5836,5 +5821,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.351 2006-08-24 21:13:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.352 2006-08-26 10:56:50 cg Exp $'
! !