Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use common about dialog
authorClaus Gittinger <cg@exept.de>
Tue, 11 Dec 2001 11:20:56 +0100
changeset 3503 925fce9419c2
parent 3502 f79d22a471ef
child 3504 1de0c4005d45
use common about dialog
ChangesBrowser.st file | annotate | diff | comparison | revisions
DebugView.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/ChangesBrowser.st	Tue Dec 11 11:19:50 2001 +0100
+++ b/ChangesBrowser.st	Tue Dec 11 11:20:56 2001 +0100
@@ -1219,21 +1219,22 @@
 openAboutThisApplication
     "opens an about box for this application."
 
-    |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"
+    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
@@ -4789,5 +4790,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.251 2001-12-07 01:06:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.252 2001-12-11 10:20:56 cg Exp $'
 ! !
--- a/DebugView.st	Tue Dec 11 11:19:50 2001 +0100
+++ b/DebugView.st	Tue Dec 11 11:20:56 2001 +0100
@@ -3797,21 +3797,22 @@
 openAboutThisApplication
     "opens an about box for this application."
 
-    |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 DebugView')
-        icon:self class defaultIcon
-
-    "Created: / 17.11.2001 / 23:08:22 / cg"
+    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 DebugView')
+"/        icon:self class defaultIcon
+"/
+"/    "Created: / 17.11.2001 / 23:08:22 / cg"
 !
 
 quickTerminate
@@ -5617,6 +5618,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.304 2001-12-04 09:38:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.305 2001-12-11 10:20:43 cg Exp $'
 ! !
 DebugView initialize!
--- a/FileBrowser.st	Tue Dec 11 11:19:50 2001 +0100
+++ b/FileBrowser.st	Tue Dec 11 11:20:56 2001 +0100
@@ -4278,28 +4278,29 @@
 openAboutThisApplication
     "opens an about box for this application."
 
-    |rev myClass clsRev msg|
-
-    rev := ''.
-    myClass := self class.
-
-    (clsRev := myClass revision) notNil ifTrue: [rev := '  (rev: ', clsRev printString, ')'].
-
-    msg := '\' withCRs , myClass name asBoldText, rev.
-
-    AboutBox isNil ifTrue:[
-        "/ this handles bad installations of ST/X,
-        "/ where the AboutBox is missing.
-        "/ (May vanish in the future)
-        ^ self information:msg
-    ].
-
-    Dialog
-        about:(resources string:msg)
-        label:(resources string:'About FileBrowser')
-        icon:self class defaultIcon
-
-    "Modified: / 17.11.2001 / 23:07:25 / cg"
+    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.
+"/
+"/    AboutBox isNil ifTrue:[
+"/        "/ this handles bad installations of ST/X,
+"/        "/ where the AboutBox is missing.
+"/        "/ (May vanish in the future)
+"/        ^ self information:msg
+"/    ].
+"/
+"/    Dialog
+"/        about:(resources string:msg)
+"/        label:(resources string:'About FileBrowser')
+"/        icon:self class defaultIcon
+"/
+"/    "Modified: / 17.11.2001 / 23:07:25 / cg"
 !
 
 openHTMLDocument:relativeDocPath
@@ -7696,5 +7697,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.450 2001-12-11 09:47:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.451 2001-12-11 10:20:14 cg Exp $'
 ! !
hg/stx-libtool