--- a/NewSystemBrowser.st Tue May 11 12:35:39 2010 +0200
+++ b/NewSystemBrowser.st Tue May 11 18:22:11 2010 +0200
@@ -4097,12 +4097,6 @@
translateLabel: true
showBusyCursorWhilePerforming: true
)
-"/ (MenuItem
-"/ label: 'With Extensions'
-"/ itemValue: browseMenuClassesWithExtensions
-"/ translateLabel: true
-"/ showBusyCursorWhilePerforming: true
-"/ )
(MenuItem
label: 'Which were Autoloaded'
itemValue: browseMenuAutoloadedClasses
@@ -4110,6 +4104,13 @@
showBusyCursorWhilePerforming: true
)
(MenuItem
+ label: 'With Extensions'
+ itemValue: browseMenuClassesWithExtensions
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ isVisible: false
+ )
+ (MenuItem
label: '-'
)
(MenuItem
@@ -4167,8 +4168,8 @@
label: 'Without SVN Repository Container'
itemValue: browseMenuClassesWithoutSVNRepositoryContainer
translateLabel: true
- showBusyCursorWhilePerforming: true
isVisible: hasSubversionSupport
+ showBusyCursorWhilePerforming: true
)
(MenuItem
label: '-'
@@ -4185,18 +4186,20 @@
translateLabel: true
showBusyCursorWhilePerforming: true
)
-"/ (MenuItem
-"/ label: 'With External Function Calls (FFI)'
-"/ itemValue: browseMenuClassesWithExternalFunctionCalls
-"/ translateLabel: true
-"/ showBusyCursorWhilePerforming: true
-"/ )
-"/ (MenuItem
-"/ label: 'With Primitive Code'
-"/ itemValue: browseMenuClassesWithPrimitiveCode
-"/ translateLabel: true
-"/ showBusyCursorWhilePerforming: true
-"/ )
+ (MenuItem
+ label: 'With External Function Calls (FFI)'
+ itemValue: browseMenuClassesWithExternalFunctionCalls
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ isVisible: false
+ )
+ (MenuItem
+ label: 'With Primitive Code'
+ itemValue: browseMenuClassesWithPrimitiveCode
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ isVisible: false
+ )
(MenuItem
label: '-'
)
@@ -4393,12 +4396,18 @@
(MenuItem
label: '-'
)
-"/ (MenuItem
-"/ label: 'With External Function Calls (FFI)'
-"/ itemValue: browseMenuMethodsWithExternalFunctionCalls
-"/ translateLabel: true
-"/ showBusyCursorWhilePerforming: true
-"/ )
+ (MenuItem
+ label: 'With Exception Handlers'
+ itemValue: browseMenuMethodsWithExceptionHandlers
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: 'With Exception Raisers'
+ itemValue: browseMenuMethodsWithExceptionRaisers
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
(MenuItem
label: 'With Primitive Code'
itemValue: browseMenuMethodsWithPrimitiveCode
@@ -4406,6 +4415,13 @@
showBusyCursorWhilePerforming: true
)
(MenuItem
+ label: 'With External Function Calls (FFI)'
+ itemValue: browseMenuMethodsWithExternalFunctionCalls
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ isVisible: false
+ )
+ (MenuItem
label: '-'
)
(MenuItem
@@ -4423,6 +4439,8 @@
nil
nil
)
+
+ "Modified: / 11-05-2010 / 18:21:14 / cg"
!
bufferBaseMenu
@@ -17100,6 +17118,48 @@
]
!
+browseMenuMethodsWithExceptionHandlers
+ "launch an enterBox for area to search for"
+
+ |whereDefault|
+
+ whereDefault := SearchDialog lastCodeSearchArea ? #everywhere.
+
+ self
+ askForMethodAndSpawnSearchTitle:'Search Exception Raisers:'
+ browserLabel:'Methods containing Exception Raisers'
+ searchWith:#( #'findExceptionHandlersIn:' #'findExceptionHandlersInMethods:' )
+ searchWhat:nil
+ searchArea:whereDefault
+ withCaseIgnore:false
+ withTextEntry:false
+ withMethodList:true
+ setSearchPattern:[:brwsr :codePattern :isMethodSearch :doMatch | ]
+
+ "Created: / 11-05-2010 / 14:19:27 / cg"
+!
+
+browseMenuMethodsWithExceptionRaisers
+ "launch an enterBox for area to search for"
+
+ |whereDefault|
+
+ whereDefault := SearchDialog lastCodeSearchArea ? #everywhere.
+
+ self
+ askForMethodAndSpawnSearchTitle:'Search Exception Raisers:'
+ browserLabel:'Methods containing Exception Raisers'
+ searchWith:#( #'findExceptionRaisersIn:' #'findExceptionRaisersInMethods:' )
+ searchWhat:nil
+ searchArea:whereDefault
+ withCaseIgnore:false
+ withTextEntry:false
+ withMethodList:true
+ setSearchPattern:[:brwsr :codePattern :isMethodSearch :doMatch | ]
+
+ "Created: / 11-05-2010 / 14:19:14 / cg"
+!
+
browseMenuMethodsWithExternalFunctionCalls
|whereDefault|
@@ -37228,21 +37288,17 @@
!
autoSearchCodePattern:codePattern
- |searchAction|
+ |searchAction codeView|
codePattern notNil ifTrue:[
+ codeView := self codeView.
searchAction :=
[:direction :startLine :startCol :foundBlock :notFoundBlock|
- |codeView|
-
- codeView := self codeView.
self
searchForCodePattern:codePattern direction:direction
startLine:(codeView cursorLine ? startLine) startCol:(codeView cursorCol ? startCol)
- ifFound:
- [:charPos1 :charPos2 |
-
+ ifFound:[:charPos1 :charPos2 |
codeView
cursorToCharacterPosition:charPos1;
selectFromCharacterPosition:charPos1 to:charPos2
@@ -37251,9 +37307,11 @@
].
navigationState autoSearchAction:searchAction.
- self codeView clearSearchAction. "/ searchAction
- self codeView setSearchPattern:nil.
- ]
+ codeView clearSearchAction. "/ searchAction
+ codeView setSearchPattern:nil.
+ ]
+
+ "Modified: / 11-05-2010 / 14:13:34 / cg"
!
autoSearchPattern
@@ -38212,12 +38270,18 @@
].
numArgs := aSelectorOrBlock numArgs.
].
-
- arguments := (Array
- with:string
- with:entities
- with:((selector notNil and:[selector endsWith:'isMethod:']) ifTrue:[isMethod] ifFalse:[ignoreCase])
- with:match) copyTo:numArgs.
+ (selector notNil
+ and:[ (selector numArgs == 1)
+ and:[ (selector endsWith:'In:') or:[ selector endsWith:'inMethods:' ]]]) ifTrue:[
+ arguments := Array with:entities
+ ] ifFalse:[
+ arguments := (Array
+ with:string
+ with:entities
+ with:((selector notNil and:[selector endsWith:'isMethod:']) ifTrue:[isMethod] ifFalse:[ignoreCase])
+ with:match
+ ) copyTo:numArgs.
+ ].
selector notNil ifTrue:[
initialList := self class perform:selector withArguments:arguments.
@@ -38313,7 +38377,7 @@
].
].
- "Modified: / 13-09-2006 / 18:13:10 / cg"
+ "Modified: / 11-05-2010 / 16:51:50 / cg"
!
askForMethodAndSpawnSearchTitle:title browserLabel:labelHolderOrBlock searchWith:aSelectorOrBlock searchWhat:searchWhat searchArea:whereDefault
@@ -44410,11 +44474,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1459 2010-05-07 18:08:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1460 2010-05-11 16:22:11 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1459 2010-05-07 18:08:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1460 2010-05-11 16:22:11 cg Exp $'
! !
NewSystemBrowser initialize!