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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 20 Feb 1996 21:45:56 +0100
changeset 375 a82f2fe29802
parent 374 1b9bc0f019c9
child 376 1e23e215bf66
checkin from browser
SBrowser.st file | annotate | diff | comparison | revisions
SystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/SBrowser.st	Tue Feb 20 21:42:45 1996 +0100
+++ b/SBrowser.st	Tue Feb 20 21:45:56 1996 +0100
@@ -418,63 +418,63 @@
     |browser searchBlock sym|
 
     (aSymbol includesMatchCharacters) ifTrue:[
-	"a matchString"
-	searchBlock := [:c :m :s |
-			    |found lits|
+        "a matchString"
+        searchBlock := [:c :m :s |
+                            |found lits|
 
-			    lits := m literals.
-			    found := false.
-			    lits notNil ifTrue:[
-				lits do:[:aLiteral |
-				    found ifFalse:[
-					(aLiteral isMemberOf:Symbol) ifTrue:[
-					    found := (aSymbol match:aLiteral)
-					]
-				    ]
-				]
-			    ].
-			    found
-		       ].
+                            lits := m literals.
+                            found := false.
+                            lits notNil ifTrue:[
+                                lits do:[:aLiteral |
+                                    found ifFalse:[
+                                        (aLiteral isMemberOf:Symbol) ifTrue:[
+                                            found := (aSymbol match:aLiteral)
+                                        ]
+                                    ]
+                                ]
+                            ].
+                            found
+                       ].
     ] ifFalse:[
-	"
-	 can do a faster search
-	"
-	sym := aSymbol asSymbolIfInterned.
-	sym isNil ifTrue:[
-	    self showNoneFound:title.
-	    ^ nil
-	].
+        "
+         can do a faster search
+        "
+        sym := aSymbol asSymbolIfInterned.
+        sym isNil ifTrue:[
+            self showNoneFound:title.
+            ^ nil
+        ].
 
-	searchBlock := [:c :m :s |
-			    |found lits|
+        searchBlock := [:c :m :s |
+                            |found lits|
 
-			    lits := m literals.
-			    found := false.
-			    lits notNil ifTrue:[
-				lits do:[:aLiteral |
-				    found ifFalse:[
-					(aLiteral isMemberOf:Symbol) ifTrue:[
-					    found := (sym == aLiteral)
-					]
-				    ]
-				]
-			    ].
-			    found
-		       ].
+                            lits := m literals.
+                            found := false.
+                            lits notNil ifTrue:[
+                                lits do:[:aLiteral |
+                                    found ifFalse:[
+                                        (aLiteral isMemberOf:Symbol) ifTrue:[
+                                            found := (sym == aLiteral)
+                                        ]
+                                    ]
+                                ]
+                            ].
+                            found
+                       ].
     ].
     doWarn ifFalse:[
-	WarningSignal handle:[:ex |
-	    ex proceed
-	] do:[
-	    browser := self browseMethodsWhere:searchBlock title:title.
-	]
+        WarningSignal ignoreIn:[
+            browser := self browseMethodsWhere:searchBlock title:title.
+        ]
     ] ifTrue:[
-	browser := self browseMethodsWhere:searchBlock title:title.
+        browser := self browseMethodsWhere:searchBlock title:title.
     ].
     browser notNil ifTrue:[
-	browser autoSearch:aSymbol
+        browser autoSearch:aSymbol
     ].
     ^ browser
+
+    "Modified: 20.2.1996 / 20:25:42 / cg"
 !
 
 browseImplementorsOf:aSelectorString
@@ -1227,6 +1227,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.49 1995-12-12 15:54:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.50 1996-02-20 20:45:56 cg Exp $'
 ! !
 SystemBrowser initialize!
--- a/SystemBrowser.st	Tue Feb 20 21:42:45 1996 +0100
+++ b/SystemBrowser.st	Tue Feb 20 21:45:56 1996 +0100
@@ -418,63 +418,63 @@
     |browser searchBlock sym|
 
     (aSymbol includesMatchCharacters) ifTrue:[
-	"a matchString"
-	searchBlock := [:c :m :s |
-			    |found lits|
+        "a matchString"
+        searchBlock := [:c :m :s |
+                            |found lits|
 
-			    lits := m literals.
-			    found := false.
-			    lits notNil ifTrue:[
-				lits do:[:aLiteral |
-				    found ifFalse:[
-					(aLiteral isMemberOf:Symbol) ifTrue:[
-					    found := (aSymbol match:aLiteral)
-					]
-				    ]
-				]
-			    ].
-			    found
-		       ].
+                            lits := m literals.
+                            found := false.
+                            lits notNil ifTrue:[
+                                lits do:[:aLiteral |
+                                    found ifFalse:[
+                                        (aLiteral isMemberOf:Symbol) ifTrue:[
+                                            found := (aSymbol match:aLiteral)
+                                        ]
+                                    ]
+                                ]
+                            ].
+                            found
+                       ].
     ] ifFalse:[
-	"
-	 can do a faster search
-	"
-	sym := aSymbol asSymbolIfInterned.
-	sym isNil ifTrue:[
-	    self showNoneFound:title.
-	    ^ nil
-	].
+        "
+         can do a faster search
+        "
+        sym := aSymbol asSymbolIfInterned.
+        sym isNil ifTrue:[
+            self showNoneFound:title.
+            ^ nil
+        ].
 
-	searchBlock := [:c :m :s |
-			    |found lits|
+        searchBlock := [:c :m :s |
+                            |found lits|
 
-			    lits := m literals.
-			    found := false.
-			    lits notNil ifTrue:[
-				lits do:[:aLiteral |
-				    found ifFalse:[
-					(aLiteral isMemberOf:Symbol) ifTrue:[
-					    found := (sym == aLiteral)
-					]
-				    ]
-				]
-			    ].
-			    found
-		       ].
+                            lits := m literals.
+                            found := false.
+                            lits notNil ifTrue:[
+                                lits do:[:aLiteral |
+                                    found ifFalse:[
+                                        (aLiteral isMemberOf:Symbol) ifTrue:[
+                                            found := (sym == aLiteral)
+                                        ]
+                                    ]
+                                ]
+                            ].
+                            found
+                       ].
     ].
     doWarn ifFalse:[
-	WarningSignal handle:[:ex |
-	    ex proceed
-	] do:[
-	    browser := self browseMethodsWhere:searchBlock title:title.
-	]
+        WarningSignal ignoreIn:[
+            browser := self browseMethodsWhere:searchBlock title:title.
+        ]
     ] ifTrue:[
-	browser := self browseMethodsWhere:searchBlock title:title.
+        browser := self browseMethodsWhere:searchBlock title:title.
     ].
     browser notNil ifTrue:[
-	browser autoSearch:aSymbol
+        browser autoSearch:aSymbol
     ].
     ^ browser
+
+    "Modified: 20.2.1996 / 20:25:42 / cg"
 !
 
 browseImplementorsOf:aSelectorString
@@ -1227,6 +1227,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.49 1995-12-12 15:54:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.50 1996-02-20 20:45:56 cg Exp $'
 ! !
 SystemBrowser initialize!
hg/stx-libtool