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>
Thu, 24 Feb 2005 11:18:48 +0100
changeset 6203 4a4f81f4ec5a
parent 6202 f3c5c2808268
child 6204 b6f511980d0d
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Wed Feb 23 16:32:14 2005 +0100
+++ b/NewSystemBrowser.st	Thu Feb 24 11:18:48 2005 +0100
@@ -15,29 +15,29 @@
 "{ NameSpace: Tools }"
 
 SystemBrowser subclass:#NewSystemBrowser
-        instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
-                bufferUsageOrder browserCanvas immediateUpdate showClassPackages
-                lastMethodCategory lastMethodMoveClass browserCanvasType
-                syntaxColoringProcessRunning syntaxColoringProcess
-                methodInfoProcess'
-        classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
-                LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
-                LastNameSpaceMove LastMethodMoveOrCopyTargetClass
-                LastSearchPatterns LastCodeSearchArea LastClassFilterBlockString
-                LastMethodFilterBlockString LastBreakPointConditionString
-                LastIndividualChecks LastAcceptPackage LastVariableRenames
-                LastVisitorClassName LastTemporaryVariableName BookMarks
-                FindHistory CheckForInstancesWhenRemovingClasses
-                SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
-                ShowMethodTemplateWhenProtocolIsSelected
-                DefaultShowMethodTemplate DefaultShowMethodInheritance
-                DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
-                DefaultSyntaxColoring DefaultToolBarVisible
-                DefaultCodeInfoVisible DefaultShortNameInTabs
-                DefaultHideUnloadedClasses DefaultMarkApplications
-                DefaultAutoFormat'
-        poolDictionaries:''
-        category:'Interface-Browsers-New'
+	instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
+		bufferUsageOrder browserCanvas immediateUpdate showClassPackages
+		lastMethodCategory lastMethodMoveClass browserCanvasType
+		syntaxColoringProcessRunning syntaxColoringProcess
+		methodInfoProcess'
+	classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
+		LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
+		LastNameSpaceMove LastMethodMoveOrCopyTargetClass
+		LastSearchPatterns LastCodeSearchArea LastClassFilterBlockString
+		LastMethodFilterBlockString LastBreakPointConditionString
+		LastIndividualChecks LastAcceptPackage LastVariableRenames
+		LastVisitorClassName LastTemporaryVariableName BookMarks
+		FindHistory CheckForInstancesWhenRemovingClasses
+		SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
+		ShowMethodTemplateWhenProtocolIsSelected
+		DefaultShowMethodTemplate DefaultShowMethodInheritance
+		DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
+		DefaultSyntaxColoring DefaultToolBarVisible
+		DefaultCodeInfoVisible DefaultShortNameInTabs
+		DefaultHideUnloadedClasses DefaultMarkApplications
+		DefaultAutoFormat'
+	poolDictionaries:''
+	category:'Interface-Browsers-New'
 !
 
 !NewSystemBrowser class methodsFor:'documentation'!
@@ -338,7 +338,7 @@
      the UIHelpTool may not be able to read the specification."
 
     "
-     UIHelpTool openOnClass:NewSystemBrowser    
+     UIHelpTool openOnClass:Tools::NewSystemBrowser    
     "
 
     <resource: #help>
@@ -348,6 +348,9 @@
 #formatCode
 ''
 
+#removeBreakPoint
+''
+
 #showClassHierarchy
 ''
 
@@ -9562,8 +9565,8 @@
      the MenuEditor may not be able to read the specification."
 
     "
-     MenuEditor new openOnClass:NewSystemBrowser andSelector:#toolBarMenu
-     (Menu new fromLiteralArrayEncoding:(NewSystemBrowser toolBarMenu)) startUp
+     MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#toolBarMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser toolBarMenu)) startUp
     "
 
     <resource: #menu>
@@ -9598,7 +9601,6 @@
           )
          (MenuItem
             activeHelpKey: showClassHierarchy
-            "/ enabled: hasClassSelectedHolder
             label: 'ShowClassHierarchy'
             itemValue: switchToClassHierarchyView
             translateLabel: true
@@ -9694,6 +9696,7 @@
           )
          (MenuItem
             activeHelpKey: formatCode
+            enabled: hasMethodSelectedHolder
             label: 'Format'
             itemValue: codeMenuFormat
             translateLabel: true
@@ -9704,7 +9707,7 @@
           )
          (MenuItem
             activeHelpKey: addBreakPoint
-            enabled: hasMethodSelectedHolder
+            enabled: hasMethodWithoutBreakPointSelectedHolder
             label: 'Add BreakPoint'
             itemValue: debugMenuBreakPoint
             translateLabel: true
@@ -9714,7 +9717,7 @@
           )
          (MenuItem
             activeHelpKey: removeBreakPoint
-            enabled: hasMethodSelectedHolder
+            enabled: hasMethodWithBreakPointSelectedHolder
             label: 'Remove BreakPoint'
             itemValue: debugMenuRemoveBreakOrTrace
             translateLabel: true
@@ -11736,7 +11739,7 @@
 !
 
 hasMethodWithBreakPointSelectedHolder
-    ^ [ self hasMethodWithBreakPointSelected ]
+    ^ builder booleanValueAspectFor:#hasMethodWithBreakPointSelectedHolder.
 !
 
 hasMethodWithTracePointSelected
@@ -11757,6 +11760,15 @@
     ^ [ self hasMethodWithWrapSelected ]
 !
 
+hasMethodWithoutBreakPointSelected
+    ^ self selectedMethods value ? #()
+        contains:[:aMethod | aMethod isBreakpointed not ]
+!
+
+hasMethodWithoutBreakPointSelectedHolder
+    ^ builder booleanValueAspectFor:#hasMethodWithoutBreakPointSelectedHolder.
+!
+
 hasMethodsInList
     |app|
 
@@ -12725,6 +12737,9 @@
 
     self hasMethodSelectedHolder value:(self hasMethodSelected).
 
+    self hasMethodWithoutBreakPointSelectedHolder value:(self hasMethodWithoutBreakPointSelected).
+    self hasMethodWithBreakPointSelectedHolder value:(self hasMethodWithBreakPointSelected).
+
     "/ if showing history or log,
     "/ dont update codeView, as long as no protocol is selected
     ((codeAspect := self codeAspect) == #repositoryLog
@@ -36405,7 +36420,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.808 2005-02-16 17:23:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.809 2005-02-24 10:18:48 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Wed Feb 23 16:32:14 2005 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Feb 24 11:18:48 2005 +0100
@@ -15,29 +15,29 @@
 "{ NameSpace: Tools }"
 
 SystemBrowser subclass:#NewSystemBrowser
-        instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
-                bufferUsageOrder browserCanvas immediateUpdate showClassPackages
-                lastMethodCategory lastMethodMoveClass browserCanvasType
-                syntaxColoringProcessRunning syntaxColoringProcess
-                methodInfoProcess'
-        classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
-                LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
-                LastNameSpaceMove LastMethodMoveOrCopyTargetClass
-                LastSearchPatterns LastCodeSearchArea LastClassFilterBlockString
-                LastMethodFilterBlockString LastBreakPointConditionString
-                LastIndividualChecks LastAcceptPackage LastVariableRenames
-                LastVisitorClassName LastTemporaryVariableName BookMarks
-                FindHistory CheckForInstancesWhenRemovingClasses
-                SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
-                ShowMethodTemplateWhenProtocolIsSelected
-                DefaultShowMethodTemplate DefaultShowMethodInheritance
-                DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
-                DefaultSyntaxColoring DefaultToolBarVisible
-                DefaultCodeInfoVisible DefaultShortNameInTabs
-                DefaultHideUnloadedClasses DefaultMarkApplications
-                DefaultAutoFormat'
-        poolDictionaries:''
-        category:'Interface-Browsers-New'
+	instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
+		bufferUsageOrder browserCanvas immediateUpdate showClassPackages
+		lastMethodCategory lastMethodMoveClass browserCanvasType
+		syntaxColoringProcessRunning syntaxColoringProcess
+		methodInfoProcess'
+	classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
+		LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
+		LastNameSpaceMove LastMethodMoveOrCopyTargetClass
+		LastSearchPatterns LastCodeSearchArea LastClassFilterBlockString
+		LastMethodFilterBlockString LastBreakPointConditionString
+		LastIndividualChecks LastAcceptPackage LastVariableRenames
+		LastVisitorClassName LastTemporaryVariableName BookMarks
+		FindHistory CheckForInstancesWhenRemovingClasses
+		SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
+		ShowMethodTemplateWhenProtocolIsSelected
+		DefaultShowMethodTemplate DefaultShowMethodInheritance
+		DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
+		DefaultSyntaxColoring DefaultToolBarVisible
+		DefaultCodeInfoVisible DefaultShortNameInTabs
+		DefaultHideUnloadedClasses DefaultMarkApplications
+		DefaultAutoFormat'
+	poolDictionaries:''
+	category:'Interface-Browsers-New'
 !
 
 !NewSystemBrowser class methodsFor:'documentation'!
@@ -338,7 +338,7 @@
      the UIHelpTool may not be able to read the specification."
 
     "
-     UIHelpTool openOnClass:NewSystemBrowser    
+     UIHelpTool openOnClass:Tools::NewSystemBrowser    
     "
 
     <resource: #help>
@@ -348,6 +348,9 @@
 #formatCode
 ''
 
+#removeBreakPoint
+''
+
 #showClassHierarchy
 ''
 
@@ -9562,8 +9565,8 @@
      the MenuEditor may not be able to read the specification."
 
     "
-     MenuEditor new openOnClass:NewSystemBrowser andSelector:#toolBarMenu
-     (Menu new fromLiteralArrayEncoding:(NewSystemBrowser toolBarMenu)) startUp
+     MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#toolBarMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser toolBarMenu)) startUp
     "
 
     <resource: #menu>
@@ -9598,7 +9601,6 @@
           )
          (MenuItem
             activeHelpKey: showClassHierarchy
-            "/ enabled: hasClassSelectedHolder
             label: 'ShowClassHierarchy'
             itemValue: switchToClassHierarchyView
             translateLabel: true
@@ -9694,6 +9696,7 @@
           )
          (MenuItem
             activeHelpKey: formatCode
+            enabled: hasMethodSelectedHolder
             label: 'Format'
             itemValue: codeMenuFormat
             translateLabel: true
@@ -9704,7 +9707,7 @@
           )
          (MenuItem
             activeHelpKey: addBreakPoint
-            enabled: hasMethodSelectedHolder
+            enabled: hasMethodWithoutBreakPointSelectedHolder
             label: 'Add BreakPoint'
             itemValue: debugMenuBreakPoint
             translateLabel: true
@@ -9714,7 +9717,7 @@
           )
          (MenuItem
             activeHelpKey: removeBreakPoint
-            enabled: hasMethodSelectedHolder
+            enabled: hasMethodWithBreakPointSelectedHolder
             label: 'Remove BreakPoint'
             itemValue: debugMenuRemoveBreakOrTrace
             translateLabel: true
@@ -11736,7 +11739,7 @@
 !
 
 hasMethodWithBreakPointSelectedHolder
-    ^ [ self hasMethodWithBreakPointSelected ]
+    ^ builder booleanValueAspectFor:#hasMethodWithBreakPointSelectedHolder.
 !
 
 hasMethodWithTracePointSelected
@@ -11757,6 +11760,15 @@
     ^ [ self hasMethodWithWrapSelected ]
 !
 
+hasMethodWithoutBreakPointSelected
+    ^ self selectedMethods value ? #()
+        contains:[:aMethod | aMethod isBreakpointed not ]
+!
+
+hasMethodWithoutBreakPointSelectedHolder
+    ^ builder booleanValueAspectFor:#hasMethodWithoutBreakPointSelectedHolder.
+!
+
 hasMethodsInList
     |app|
 
@@ -12725,6 +12737,9 @@
 
     self hasMethodSelectedHolder value:(self hasMethodSelected).
 
+    self hasMethodWithoutBreakPointSelectedHolder value:(self hasMethodWithoutBreakPointSelected).
+    self hasMethodWithBreakPointSelectedHolder value:(self hasMethodWithBreakPointSelected).
+
     "/ if showing history or log,
     "/ dont update codeView, as long as no protocol is selected
     ((codeAspect := self codeAspect) == #repositoryLog
@@ -36405,7 +36420,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.808 2005-02-16 17:23:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.809 2005-02-24 10:18:48 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool