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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 17 Dec 2003 11:13:24 +0100
changeset 5405 912cae319c4a
parent 5404 cc0458a59070
child 5406 abf2d30dfb17
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Mon Dec 15 12:22:17 2003 +0100
+++ b/NewSystemBrowser.st	Wed Dec 17 11:13:24 2003 +0100
@@ -29948,21 +29948,21 @@
     |code codeView|
 
     self codeAspect:#classComment.
+    self setAcceptActionForClassComment.
 "/    self selectedMethods value:nil.
 "/    self selectedProtocols value:nil.
-    self setAcceptActionForClassComment.
 
     aClass notNil ifTrue:[
-	aClass isLoaded ifFalse:[
-	    code := 'Class is not loaded.'.
-	] ifTrue:[
-	    code := aClass comment.
-	].
-
-	codeView := self codeView.
-	codeView contents:code.
-	codeView modified:false.
-	navigationState realModifiedState:false.
+        aClass isLoaded ifFalse:[
+            code := 'Class is not loaded.'.
+        ] ifTrue:[
+            code := aClass comment.
+        ].
+
+        codeView := self codeView.
+        codeView contents:code.
+        codeView modified:false.
+        navigationState realModifiedState:false.
     ]
 
     "Modified: / 8.11.2001 / 23:08:31 / cg"
@@ -29972,89 +29972,90 @@
     |definition highlighter m s isComment stream|
 
     self codeAspect:#classDefinition.
+    self setAcceptActionForClass.
 
     aClass notNil ifTrue:[
-	definition := self classDefinitionStringFor:aClass.
-
-	self doSyntaxColoring value ~~ false ifTrue:[
-	    highlighter := aClass syntaxHighlighterClass.
-	    highlighter notNil ifTrue:[
-		definition := highlighter formatExpression:definition in:nil.
-	    ]
-	].
-
-	self showCode:definition.
-	self normalLabel.
-
-	aClass isLoaded ifTrue:[
-	    "/ continue fetching the documentation,
-	    "/ which may take longer, if the source must be fetched
-	    "/ from the repository.
-
-	    "
-	     add documentation as a comment, if there is any
-	    "
-	    (aClass isJavaClass 
-	    or:[aClass isJavaScriptClass]) ifFalse:[
-		m := aClass theMetaclass compiledMethodAt:#documentation.
-		m notNil ifTrue:[
-		    s := m comment.
-		    isComment := false.
-		] ifFalse:[
-		    "try comment"
-		    s := aClass comment.
-		    s isString ifTrue:[
-			s isEmpty ifTrue:[
-			    s := nil
-			] ifFalse:[
-			    (s includes:$") ifTrue:[
-				s := s copyReplaceAll:$" with:$'.
-			    ].
-			    isComment := true.
-			    s size > 80 ifTrue:[
-				s := s asCollectionOfSubstringsSeparatedBy:$..
-				s := s asStringCollection.
-				s := s collect:[:each | (each startsWith:Character space) ifTrue:[
-							    each copyFrom:2  
-							] ifFalse:[
-							    each 
-							]
-					       ].
-				s := s asStringWith:('.' , Character cr).
-			    ].
-			]
-		    ] ifFalse:[
-			"/ class redefines comment ?
-			s := nil
-		    ].
-		].
-		stream := TextStream on:''.
-		stream cr; cr; cr.
-		stream emphasis:(UserPreferences current commentEmphasisAndColor).
-		s isNil ifTrue:[
-		    stream nextPut:$" ; cr; nextPutLine:' no comment or documentation method found'.
-		] ifFalse:[
-		    stream nextPut:$" ; cr; nextPutLine:' Documentation:'.
-		    stream cr; nextPutLine:s; cr.
-		    stream nextPutLine:' Notice: '.
-		    stream nextPutAll:'   the above text has been extracted from the classes '.
-		    stream nextPutLine:(isComment ifTrue:['comment.'] ifFalse:['documentation method.']).
-		    stream nextPutLine:'   Any change in it will be lost if you ''accept'' here.'.
-		    stream nextPutAll:'   To change the '.
-		    stream nextPutAll:(isComment ifTrue:['comment'] ifFalse:['documentation']).
-		    stream nextPutAll:', switch to the '.
-		    stream nextPutAll:(isComment ifTrue:['comment'] ifFalse:['documentation method']).
-		    stream nextPutLine:' and ''accept'' any changes there.'.
-		].
-		stream nextPut:$".
-		stream emphasis:nil.
-		definition := definition , stream contents.
-
-		self codeHolder setValue:definition.
-		self codeView notNil ifTrue:[self codeView setContents:definition].
-	    ].
-	].
-	self updatePackageInfoForClass:aClass.
+        definition := self classDefinitionStringFor:aClass.
+
+        self doSyntaxColoring value ~~ false ifTrue:[
+            highlighter := aClass syntaxHighlighterClass.
+            highlighter notNil ifTrue:[
+                definition := highlighter formatExpression:definition in:nil.
+            ]
+        ].
+
+        self showCode:definition.
+        self normalLabel.
+
+        aClass isLoaded ifTrue:[
+            "/ continue fetching the documentation,
+            "/ which may take longer, if the source must be fetched
+            "/ from the repository.
+
+            "
+             add documentation as a comment, if there is any
+            "
+            (aClass isJavaClass 
+            or:[aClass isJavaScriptClass]) ifFalse:[
+                m := aClass theMetaclass compiledMethodAt:#documentation.
+                m notNil ifTrue:[
+                    s := m comment.
+                    isComment := false.
+                ] ifFalse:[
+                    "try comment"
+                    s := aClass comment.
+                    s isString ifTrue:[
+                        s isEmpty ifTrue:[
+                            s := nil
+                        ] ifFalse:[
+                            (s includes:$") ifTrue:[
+                                s := s copyReplaceAll:$" with:$'.
+                            ].
+                            isComment := true.
+                            s size > 80 ifTrue:[
+                                s := s asCollectionOfSubstringsSeparatedBy:$..
+                                s := s asStringCollection.
+                                s := s collect:[:each | (each startsWith:Character space) ifTrue:[
+                                                            each copyFrom:2  
+                                                        ] ifFalse:[
+                                                            each 
+                                                        ]
+                                               ].
+                                s := s asStringWith:('.' , Character cr).
+                            ].
+                        ]
+                    ] ifFalse:[
+                        "/ class redefines comment ?
+                        s := nil
+                    ].
+                ].
+                stream := TextStream on:''.
+                stream cr; cr; cr.
+                stream emphasis:(UserPreferences current commentEmphasisAndColor).
+                s isNil ifTrue:[
+                    stream nextPut:$" ; cr; nextPutLine:' no comment or documentation method found'.
+                ] ifFalse:[
+                    stream nextPut:$" ; cr; nextPutLine:' Documentation:'.
+                    stream cr; nextPutLine:s; cr.
+                    stream nextPutLine:' Notice: '.
+                    stream nextPutAll:'   the above text has been extracted from the classes '.
+                    stream nextPutLine:(isComment ifTrue:['comment.'] ifFalse:['documentation method.']).
+                    stream nextPutLine:'   Any change in it will be lost if you ''accept'' here.'.
+                    stream nextPutAll:'   To change the '.
+                    stream nextPutAll:(isComment ifTrue:['comment'] ifFalse:['documentation']).
+                    stream nextPutAll:', switch to the '.
+                    stream nextPutAll:(isComment ifTrue:['comment'] ifFalse:['documentation method']).
+                    stream nextPutLine:' and ''accept'' any changes there.'.
+                ].
+                stream nextPut:$".
+                stream emphasis:nil.
+                definition := definition , stream contents.
+
+                self codeHolder setValue:definition.
+                self codeView notNil ifTrue:[self codeView setContents:definition].
+            ].
+        ].
+        self updatePackageInfoForClass:aClass.
     ].
 
     "Modified: / 15.11.2001 / 18:20:43 / cg"
@@ -57482,7 +57483,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.696 2003-12-09 14:28:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.697 2003-12-17 10:13:24 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Mon Dec 15 12:22:17 2003 +0100
+++ b/Tools__NewSystemBrowser.st	Wed Dec 17 11:13:24 2003 +0100
@@ -29948,21 +29948,21 @@
     |code codeView|
 
     self codeAspect:#classComment.
+    self setAcceptActionForClassComment.
 "/    self selectedMethods value:nil.
 "/    self selectedProtocols value:nil.
-    self setAcceptActionForClassComment.
 
     aClass notNil ifTrue:[
-	aClass isLoaded ifFalse:[
-	    code := 'Class is not loaded.'.
-	] ifTrue:[
-	    code := aClass comment.
-	].
-
-	codeView := self codeView.
-	codeView contents:code.
-	codeView modified:false.
-	navigationState realModifiedState:false.
+        aClass isLoaded ifFalse:[
+            code := 'Class is not loaded.'.
+        ] ifTrue:[
+            code := aClass comment.
+        ].
+
+        codeView := self codeView.
+        codeView contents:code.
+        codeView modified:false.
+        navigationState realModifiedState:false.
     ]
 
     "Modified: / 8.11.2001 / 23:08:31 / cg"
@@ -29972,89 +29972,90 @@
     |definition highlighter m s isComment stream|
 
     self codeAspect:#classDefinition.
+    self setAcceptActionForClass.
 
     aClass notNil ifTrue:[
-	definition := self classDefinitionStringFor:aClass.
-
-	self doSyntaxColoring value ~~ false ifTrue:[
-	    highlighter := aClass syntaxHighlighterClass.
-	    highlighter notNil ifTrue:[
-		definition := highlighter formatExpression:definition in:nil.
-	    ]
-	].
-
-	self showCode:definition.
-	self normalLabel.
-
-	aClass isLoaded ifTrue:[
-	    "/ continue fetching the documentation,
-	    "/ which may take longer, if the source must be fetched
-	    "/ from the repository.
-
-	    "
-	     add documentation as a comment, if there is any
-	    "
-	    (aClass isJavaClass 
-	    or:[aClass isJavaScriptClass]) ifFalse:[
-		m := aClass theMetaclass compiledMethodAt:#documentation.
-		m notNil ifTrue:[
-		    s := m comment.
-		    isComment := false.
-		] ifFalse:[
-		    "try comment"
-		    s := aClass comment.
-		    s isString ifTrue:[
-			s isEmpty ifTrue:[
-			    s := nil
-			] ifFalse:[
-			    (s includes:$") ifTrue:[
-				s := s copyReplaceAll:$" with:$'.
-			    ].
-			    isComment := true.
-			    s size > 80 ifTrue:[
-				s := s asCollectionOfSubstringsSeparatedBy:$..
-				s := s asStringCollection.
-				s := s collect:[:each | (each startsWith:Character space) ifTrue:[
-							    each copyFrom:2  
-							] ifFalse:[
-							    each 
-							]
-					       ].
-				s := s asStringWith:('.' , Character cr).
-			    ].
-			]
-		    ] ifFalse:[
-			"/ class redefines comment ?
-			s := nil
-		    ].
-		].
-		stream := TextStream on:''.
-		stream cr; cr; cr.
-		stream emphasis:(UserPreferences current commentEmphasisAndColor).
-		s isNil ifTrue:[
-		    stream nextPut:$" ; cr; nextPutLine:' no comment or documentation method found'.
-		] ifFalse:[
-		    stream nextPut:$" ; cr; nextPutLine:' Documentation:'.
-		    stream cr; nextPutLine:s; cr.
-		    stream nextPutLine:' Notice: '.
-		    stream nextPutAll:'   the above text has been extracted from the classes '.
-		    stream nextPutLine:(isComment ifTrue:['comment.'] ifFalse:['documentation method.']).
-		    stream nextPutLine:'   Any change in it will be lost if you ''accept'' here.'.
-		    stream nextPutAll:'   To change the '.
-		    stream nextPutAll:(isComment ifTrue:['comment'] ifFalse:['documentation']).
-		    stream nextPutAll:', switch to the '.
-		    stream nextPutAll:(isComment ifTrue:['comment'] ifFalse:['documentation method']).
-		    stream nextPutLine:' and ''accept'' any changes there.'.
-		].
-		stream nextPut:$".
-		stream emphasis:nil.
-		definition := definition , stream contents.
-
-		self codeHolder setValue:definition.
-		self codeView notNil ifTrue:[self codeView setContents:definition].
-	    ].
-	].
-	self updatePackageInfoForClass:aClass.
+        definition := self classDefinitionStringFor:aClass.
+
+        self doSyntaxColoring value ~~ false ifTrue:[
+            highlighter := aClass syntaxHighlighterClass.
+            highlighter notNil ifTrue:[
+                definition := highlighter formatExpression:definition in:nil.
+            ]
+        ].
+
+        self showCode:definition.
+        self normalLabel.
+
+        aClass isLoaded ifTrue:[
+            "/ continue fetching the documentation,
+            "/ which may take longer, if the source must be fetched
+            "/ from the repository.
+
+            "
+             add documentation as a comment, if there is any
+            "
+            (aClass isJavaClass 
+            or:[aClass isJavaScriptClass]) ifFalse:[
+                m := aClass theMetaclass compiledMethodAt:#documentation.
+                m notNil ifTrue:[
+                    s := m comment.
+                    isComment := false.
+                ] ifFalse:[
+                    "try comment"
+                    s := aClass comment.
+                    s isString ifTrue:[
+                        s isEmpty ifTrue:[
+                            s := nil
+                        ] ifFalse:[
+                            (s includes:$") ifTrue:[
+                                s := s copyReplaceAll:$" with:$'.
+                            ].
+                            isComment := true.
+                            s size > 80 ifTrue:[
+                                s := s asCollectionOfSubstringsSeparatedBy:$..
+                                s := s asStringCollection.
+                                s := s collect:[:each | (each startsWith:Character space) ifTrue:[
+                                                            each copyFrom:2  
+                                                        ] ifFalse:[
+                                                            each 
+                                                        ]
+                                               ].
+                                s := s asStringWith:('.' , Character cr).
+                            ].
+                        ]
+                    ] ifFalse:[
+                        "/ class redefines comment ?
+                        s := nil
+                    ].
+                ].
+                stream := TextStream on:''.
+                stream cr; cr; cr.
+                stream emphasis:(UserPreferences current commentEmphasisAndColor).
+                s isNil ifTrue:[
+                    stream nextPut:$" ; cr; nextPutLine:' no comment or documentation method found'.
+                ] ifFalse:[
+                    stream nextPut:$" ; cr; nextPutLine:' Documentation:'.
+                    stream cr; nextPutLine:s; cr.
+                    stream nextPutLine:' Notice: '.
+                    stream nextPutAll:'   the above text has been extracted from the classes '.
+                    stream nextPutLine:(isComment ifTrue:['comment.'] ifFalse:['documentation method.']).
+                    stream nextPutLine:'   Any change in it will be lost if you ''accept'' here.'.
+                    stream nextPutAll:'   To change the '.
+                    stream nextPutAll:(isComment ifTrue:['comment'] ifFalse:['documentation']).
+                    stream nextPutAll:', switch to the '.
+                    stream nextPutAll:(isComment ifTrue:['comment'] ifFalse:['documentation method']).
+                    stream nextPutLine:' and ''accept'' any changes there.'.
+                ].
+                stream nextPut:$".
+                stream emphasis:nil.
+                definition := definition , stream contents.
+
+                self codeHolder setValue:definition.
+                self codeView notNil ifTrue:[self codeView setContents:definition].
+            ].
+        ].
+        self updatePackageInfoForClass:aClass.
     ].
 
     "Modified: / 15.11.2001 / 18:20:43 / cg"
@@ -57482,7 +57483,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.696 2003-12-09 14:28:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.697 2003-12-17 10:13:24 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool