Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tools__NewSystemBrowser.st
branchjv
changeset 12432 f60cf9a3482b
parent 12406 1fbd331e4489
child 12434 bc21844a6b32 
--- a/Tools__NewSystemBrowser.st	Wed Feb 27 12:34:59 2013 +0000
+++ b/Tools__NewSystemBrowser.st	Wed Feb 27 23:57:04 2013 +0000
@@ -107,7 +107,6 @@
 "
 ! !
 
-
 !NewSystemBrowser class methodsFor:'initialization'!
 
 initialize
@@ -237,7 +236,6 @@
     ].
 ! !
 
-
 !NewSystemBrowser class methodsFor:'accessing-history'!
 
 addToBookMarks:aClass selector:aSelectorOrNil
@@ -319,7 +317,6 @@
     "Modified: / 13-09-2012 / 18:14:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'defaults'!
 
 synchronousUpdate
@@ -333,7 +330,6 @@
     "Modified (comment): / 24-08-2011 / 15:33:27 / cg"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'help specs'!
 
 flyByHelpSpec
@@ -502,7 +498,6 @@
 )
 ! !
 
-
 !NewSystemBrowser class methodsFor:'image specs'!
 
 defaultIcon
@@ -745,7 +740,6 @@
     ^ ToolbarIconLibrary startNewSystemBrowserIcon
 ! !
 
-
 !NewSystemBrowser class methodsFor:'interface specs'!
 
 browserPageSpec
@@ -5459,7 +5453,6 @@
     "Modified: / 07-06-2011 / 14:39:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'interface specs-dialogs'!
 
 repositoryConsistencyDialogSpec
@@ -5717,7 +5710,6 @@
       )
 ! !
 
-
 !NewSystemBrowser class methodsFor:'interface specs-message pane'!
 
 messageInfoSpec
@@ -5830,7 +5822,6 @@
       )
 ! !
 
-
 !NewSystemBrowser class methodsFor:'menu specs'!
 
 browseMenu
@@ -13022,7 +13013,6 @@
       )
 ! !
 
-
 !NewSystemBrowser class methodsFor:'menu specs-SCM-category'!
 
 categoryMenuSCMCommon
@@ -13407,7 +13397,6 @@
       )
 ! !
 
-
 !NewSystemBrowser class methodsFor:'menu specs-SCM-class'!
 
 classCVSMenu
@@ -15329,7 +15318,6 @@
     "Modified: / 28-10-2012 / 11:54:14 / cg"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'menu specs-SCM-project'!
 
 projectCVSMenu
@@ -16275,7 +16263,6 @@
     "Modified: / 24-07-2012 / 17:40:34 / cg"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'menu specs-SCM-selector'!
 
 selectorMenuCVS
@@ -16644,7 +16631,6 @@
       )
 ! !
 
-
 !NewSystemBrowser class methodsFor:'menu specs-dialogs'!
 
 classesWhichHaveBeenModifiedPopupMenu
@@ -16837,7 +16823,6 @@
     "Modified: / 29-09-2006 / 16:11:08 / cg"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'menu specs-popup'!
 
 categoryPopUpMenu
@@ -16983,7 +16968,6 @@
     "Created: / 18.2.2000 / 11:58:25 / cg"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'menu specs-subversion'!
 
 classSubversionMenu
@@ -17247,7 +17231,6 @@
       )
 ! !
 
-
 !NewSystemBrowser class methodsFor:'menu specs-toolbar'!
 
 toolBarMenu
@@ -17566,7 +17549,6 @@
       )
 ! !
 
-
 !NewSystemBrowser class methodsFor:'queries'!
 
 hasSubversionSupport
@@ -17576,7 +17558,6 @@
     "Modified: / 19-01-2012 / 10:46:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'startup'!
 
 browseClass:aClass
@@ -17796,7 +17777,6 @@
     "Created: / 06-07-2011 / 18:27:53 / cg"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'utilities'!
 
 enterBoxTitle:title okText:okText label:label
@@ -17815,7 +17795,6 @@
     "Created: / 6.2.2000 / 01:07:11 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'accessing'!
 
 isEmbeddedBrowser
@@ -17830,7 +17809,6 @@
     isEmbedded := aBoolean.
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects'!
 
 bookmarkHolder
@@ -18136,7 +18114,6 @@
     builder aspectAt:#suppressChangeSetUpdate put:aBoolean
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects-environment'!
 
 selectedCategoriesAsEnvironment
@@ -18264,7 +18241,6 @@
     "Modified: / 28-02-2012 / 16:28:38 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects-kludges'!
 
 metaToggle
@@ -18278,7 +18254,6 @@
 
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects-menus'!
 
 categoryMenu
@@ -18476,7 +18451,6 @@
     ^ self class visitedClassNamesHistory
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects-navigation'!
 
 categoryList
@@ -18698,6 +18672,7 @@
 ! !
 
 
+
 !NewSystemBrowser methodsFor:'aspects-organization'!
 
 categoryMenuVisible
@@ -19171,7 +19146,6 @@
     "Modified: / 18.8.2000 / 19:03:48 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects-presentation'!
 
 bookmarkBarVisibleHolder
@@ -19629,7 +19603,6 @@
     "Created: / 02-07-2011 / 18:27:29 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects-queries'!
 
 anyBreakOrTracePointsAreSet
@@ -23471,7 +23444,6 @@
     self navigationState versionDiffApplication:diffApp.
 ! !
 
-
 !NewSystemBrowser methodsFor:'help specs'!
 
 flyByHelpSpec
@@ -23499,7 +23471,6 @@
     ^ super flyByHelpTextFor:aComponent
 ! !
 
-
 !NewSystemBrowser methodsFor:'history'!
 
 addToHistory: class
@@ -23518,7 +23489,6 @@
     "Modified: / 02-07-2011 / 18:33:22 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-browse'!
 
 browseImplementorsOf
@@ -25813,7 +25783,6 @@
 viewMenuSelectAllClasses
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-buffers'!
 
 bufferMenuCreateBuffer
@@ -25978,7 +25947,6 @@
     "Modified: / 28-02-2012 / 10:22:24 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-category'!
 
 categoryMenuCheckInEach
@@ -26787,7 +26755,6 @@
     self spawnCategoryBrowserFor:(self selectedCategoriesValue) in:where
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-checks-lint'!
 
 foo
@@ -26930,15 +26897,25 @@
 !
 
 smalllintRulesFromUser
-    |dlg|
+    | dlg rules |
 
     self loadSmalllint.
     dlg := Tools::LintRuleSelectionDialog new.
 
-    dlg selection: (LastLintRules ifNil:[nil"self smalllintRulesAll flattened"] ifNotNil:[LastLintRules flattened]).
+    LastLintRules notNil ifTrue:[
+        rules := LastLintRules
+    ] ifFalse:[
+        RBCompositeLintRule rulesets size > 0 ifTrue:[
+            rules := RBCompositeLintRule rulesets detect:[:e|e name = #Default] ifNone:[ RBCompositeLintRule rulesets first]
+        ] ifFalse:[
+            rules := RBCompositeLintRule allRules 
+        ].
+    ].
+
+    dlg ruleset: rules.
     ^ (dlg open; accepted)
-	    ifTrue:[ LastLintRules := dlg selectionAsRule ]
-	    ifFalse:[ nil ].
+            ifTrue:[ LastLintRules := dlg selectionAsRule ]
+            ifFalse:[ nil ].
 
     "
      LastLintRules := nil.
@@ -26948,6 +26925,7 @@
     "Created: / 17-04-2010 / 09:41:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 25-08-2010 / 15:35:16 / Jan Vrany <enter your email here>"
     "Modified (format): / 06-03-2012 / 18:55:09 / cg"
+    "Modified: / 27-02-2013 / 23:50:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 smalllintRulesOrAll
@@ -27159,7 +27137,6 @@
     "Modified: / 01-03-2012 / 19:52:57 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-checks-old'!
 
 classMenuCheck
@@ -27321,7 +27298,6 @@
     "Modified (comment): / 01-03-2012 / 14:10:43 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-class'!
 
 addClassesToRemoveForClass:aClass to:classesToRemove removingSubclasses:removingSubclasses withCancel:withCancel
@@ -32069,7 +32045,6 @@
     self classMenuGenerateMultiSetterMethod
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-class hierarchy'!
 
 classHierarchyMenuSelectWithAllSubclasses
@@ -32122,7 +32097,6 @@
     ^ self selectedClasses
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-class packaging'!
 
 excludeClasses: toExclude fromProject:aDefinitionClass using:generator
@@ -32154,7 +32128,6 @@
     aDefinitionClass makeClassesAutoloaded:toMakeAutoloaded usingCompiler:generator
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-class repository'!
 
 allKnownTagsInClasses:aCollectionOfClasses
@@ -34784,7 +34757,6 @@
     "Created: / 21-12-2011 / 20:11:25 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-code'!
 
 codeMenuAddClassVariable:newName inClass:aClass asValueHolder:asValueHolder
@@ -36666,7 +36638,6 @@
     aTwoArgBlock value:cls value:selector.
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-debug'!
 
 classMenuClearCoverageInfo
@@ -37266,7 +37237,6 @@
     "Modified: / 28-02-2012 / 16:52:45 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-help'!
 
 openClassDocumentation
@@ -37300,7 +37270,6 @@
     self updateSpecialCodeEditorVisibility
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-methodList'!
 
 methodListMenuCheckInClass
@@ -37529,7 +37498,6 @@
     "Modified: / 28-02-2012 / 16:27:44 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut
@@ -37655,7 +37623,6 @@
     "Modified: / 28-02-2012 / 16:53:04 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-other'!
 
 editModeInsert
@@ -37721,7 +37688,6 @@
     "Created: / 15-10-2011 / 12:02:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-project'!
 
 classMenuCheckInBuildSupportFiles
@@ -41108,7 +41074,6 @@
     "Modified: / 23-10-2006 / 11:01:42 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-project-monticello'!
 
 projectMenuMonticelloBrowseRepositories
@@ -41117,7 +41082,6 @@
     "Created: / 01-12-2011 / 21:47:24 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-protocol'!
 
 doMoveSelectedProtocolsToProject:newProject
@@ -41852,7 +41816,6 @@
     "Modified: / 28-02-2012 / 16:34:54 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-searching'!
 
 askForClassToSearch:doWhatByDefault single:singleClass msgTail:msgTail resources:resourcesOrNil thenDo:aBlock
@@ -42503,7 +42466,6 @@
     "Modified: / 02-06-2011 / 11:35:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-selector'!
 
 askForClassToMoveOrCopy:doWhat
@@ -46426,7 +46388,6 @@
     "Modified: / 28-02-2012 / 16:36:22 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-subversion'!
 
 commonMenuSubversionOpenSettings
@@ -46436,7 +46397,6 @@
     "Modified: / 26-03-2010 / 20:01:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-subversion-class'!
 
 classMenuSubversionShowRevisionLog
@@ -47828,7 +47788,6 @@
     aBlock value:selectedVariable value:isClassVar
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu-actions-other'!
 
 goBack
@@ -47855,7 +47814,6 @@
     "Modified: / 22-02-2008 / 17:18:56 / janfrog"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menus-dynamic'!
 
 boockmarksMenu
@@ -49080,7 +49038,6 @@
     "Modified: / 09-09-2012 / 13:24:04 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menus-dynamic-SCM'!
 
 categoryMenuSCMFor: sourceCodeManagerClassName
@@ -49562,7 +49519,6 @@
     "Created: / 12-10-2011 / 20:28:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menus-dynamic-subversion'!
 
 commonSubversionBranchMenu
@@ -49595,7 +49551,6 @@
     "Modified (format): / 01-12-2011 / 21:06:52 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'navigation'!
 
 askForClassNameMatching:matchStringArg
@@ -50413,7 +50368,6 @@
     "Modified: / 5.2.2000 / 23:07:10 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-buffers'!
 
 removeBuffer:nr
@@ -50465,7 +50419,6 @@
     self removeBuffer:(selectedBuffer value)
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-checks'!
 
 anySpecialEditorModified
@@ -50603,7 +50556,6 @@
     ^ true
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-code update'!
 
 autoSearch:aString
@@ -51652,7 +51604,6 @@
     "Modified: / 01-12-2011 / 14:26:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-dialogs'!
 
 askForDirectoryToFileOut:title default:defaultDirOrNil
@@ -52722,7 +52673,6 @@
 	    cancel: [nil]
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-helpers'!
 
 anySelectedClass
@@ -53844,7 +53794,6 @@
       and:[ (view isSameOrComponentOf:appView) ]
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-helpers-subApps'!
 
 categoryListApp
@@ -53926,7 +53875,6 @@
     "Modified: / 14-02-2012 / 14:00:36 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-presentation'!
 
 asyncShowMethodInfo
@@ -54570,7 +54518,6 @@
     ]
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-searching'!
 
 searchCompletionBlock
@@ -54703,7 +54650,6 @@
     "Created: / 06-04-2012 / 12:56:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass
@@ -55034,7 +54980,6 @@
     ^ nil.
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-smalllint'!
 
 smalllintRulesAll
@@ -55069,7 +55014,6 @@
     "Created: / 06-09-2012 / 14:49:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-syntax coloring'!
 
 startSyntaxHighlightProcess
@@ -55362,7 +55306,6 @@
     "Modified: / 08-08-2011 / 15:09:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'setup'!
 
 browserCanvas
@@ -55670,7 +55613,6 @@
     self normalLabel.
 ! !
 
-
 !NewSystemBrowser methodsFor:'special editors'!
 
 specialEditorCanvasForMethod:aMethod
@@ -55917,7 +55859,6 @@
     "Modified: / 28-02-2012 / 17:02:07 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'startup & release'!
 
 closeRequest
@@ -55981,7 +55922,6 @@
     "Modified: / 20-11-2006 / 12:16:37 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'string search tool'!
 
 hideSearchBar
@@ -56060,7 +56000,6 @@
     ].
 ! !
 
-
 !NewSystemBrowser methodsFor:'user actions'!
 
 backToLastClass
@@ -56859,7 +56798,6 @@
     "Modified: / 28-02-2012 / 16:51:54 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'user actions-accepting'!
 
 acceptMethod:codeArg inClass:cls language: languageOrNil check:doCheck
@@ -57962,7 +57900,6 @@
     self setAcceptAction:[:code | self codeView flash].
 ! !
 
-
 !NewSystemBrowser methodsFor:'user actions-class'!
 
 classLoad
@@ -58110,7 +58047,6 @@
     "Modified: / 12-09-2006 / 13:48:12 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'user actions-comparing'!
 
 doCompareIn:aNavigationState
@@ -58181,7 +58117,6 @@
     "Modified: / 27-07-2012 / 22:25:17 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'user actions-events'!
 
 keyInCategoryListView:key rawKey:rawKey
@@ -58552,7 +58487,6 @@
     "Modified: / 17-08-2011 / 13:29:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'user actions-helpers'!
 
 hideMessagePane
@@ -58719,7 +58653,6 @@
     "Modified: / 15-05-2012 / 10:46:06 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'user actions-profiler'!
 
 spawnProfilerStatistics:statistics in: where
@@ -58736,7 +58669,6 @@
     "Modified (format): / 29-11-2011 / 14:49:08 / cg"
 ! !
 
-
 !NewSystemBrowser::ClassCompletionEntry methodsFor:'accessing'!
 
 klass
@@ -58755,7 +58687,6 @@
     showPrefix := something.
 ! !
 
-
 !NewSystemBrowser::ClassCompletionEntry methodsFor:'converting'!
 
 asString
@@ -58768,7 +58699,6 @@
     "Created: / 04-04-2012 / 13:00:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser::ClassCompletionEntry methodsFor:'displaying'!
 
 displayOn:aGC x:x y:y opaque:opaque
@@ -58819,7 +58749,6 @@
     "Created: / 20-04-2012 / 18:19:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser::ClassCompletionEntry methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -58833,7 +58762,6 @@
     "Modified: / 06-04-2012 / 13:30:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
hg/stx-libtool