Tools__BreakpointBrowser.st
changeset 12016 3e3d4015fd7b
parent 12012 d9e1b1a352b6
child 12017 72e015bfb176
equal deleted inserted replaced
12015:46ef5b716f88 12016:3e3d4015fd7b
   298             label: 'View'
   298             label: 'View'
   299             submenu: 
   299             submenu: 
   300            (Menu
   300            (Menu
   301               (
   301               (
   302                (MenuItem
   302                (MenuItem
   303                   label: 'Update List'
   303                   label: 'Toggle all'
   304                   itemValue: updateList
   304                   itemValue: toggleAllShownTypes
       
   305                   hideMenuOnActivated: false
   305                 )
   306                 )
   306                (MenuItem
   307                (MenuItem
   307                   label: '-'
   308                   label: '-'
   308                 )
   309                 )
   309                (MenuItem
   310                (MenuItem
   382                (MenuItem
   383                (MenuItem
   383                   label: 'Line Breakpoints'
   384                   label: 'Line Breakpoints'
   384                   itemValue: showLineBreakpoints:
   385                   itemValue: showLineBreakpoints:
   385                   hideMenuOnActivated: false
   386                   hideMenuOnActivated: false
   386                   indication: showLineBreakpoints
   387                   indication: showLineBreakpoints
       
   388                 )
       
   389                (MenuItem
       
   390                   label: '-'
       
   391                 )
       
   392                (MenuItem
       
   393                   label: 'Update List'
       
   394                   itemValue: updateList
   387                 )
   395                 )
   388                )
   396                )
   389               nil
   397               nil
   390               nil
   398               nil
   391             )
   399             )
  1304 
  1312 
  1305 !BreakpointBrowser methodsFor:'initialization & release'!
  1313 !BreakpointBrowser methodsFor:'initialization & release'!
  1306 
  1314 
  1307 codeViewClass
  1315 codeViewClass
  1308     ^ UserPreferences current useCodeView2
  1316     ^ UserPreferences current useCodeView2
  1309         ifTrue:[ Tools::CodeView2c ]
  1317         ifTrue:[ Tools::CodeView2 ]
  1310         ifFalse:[ CodeView ]
  1318         ifFalse:[ CodeView ]
  1311 !
  1319 !
  1312 
  1320 
  1313 initialize
  1321 initialize
  1314     super initialize.
  1322     super initialize.
  1341         updateProcess := nil.
  1349         updateProcess := nil.
  1342         p terminate
  1350         p terminate
  1343     ].
  1351     ].
  1344     Smalltalk removeDependent:self.
  1352     Smalltalk removeDependent:self.
  1345     super release
  1353     super release
  1346 ! !
       
  1347 
       
  1348 !BreakpointBrowser methodsFor:'menu actions'!
       
  1349 
       
  1350 openDocumentation
       
  1351     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#BREAKPOINTLIST'.
       
  1352 
       
  1353     "/ add application-specific help files under the 'doc/online/<language>/help/appName'
       
  1354     "/ directory, and open a viewer with:
       
  1355     "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
       
  1356 ! !
  1354 ! !
  1357 
  1355 
  1358 !BreakpointBrowser methodsFor:'menu actions-item'!
  1356 !BreakpointBrowser methodsFor:'menu actions-item'!
  1359 
  1357 
  1360 browseItem
  1358 browseItem
  1573 itemDoubleClicked:itemIndex
  1571 itemDoubleClicked:itemIndex
  1574     self browseSelectedItem
  1572     self browseSelectedItem
  1575 
  1573 
  1576     "Created: / 22-10-2006 / 01:49:13 / cg"
  1574     "Created: / 22-10-2006 / 01:49:13 / cg"
  1577     "Modified: / 18-02-2007 / 12:56:30 / cg"
  1575     "Modified: / 18-02-2007 / 12:56:30 / cg"
       
  1576 !
       
  1577 
       
  1578 openDocumentation
       
  1579     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#BREAKPOINTLIST'.
  1578 !
  1580 !
  1579 
  1581 
  1580 resort
  1582 resort
  1581     |sortBlock sortBlock1|
  1583     |sortBlock sortBlock1|
  1582 
  1584 
  1645 	]
  1647 	]
  1646     ].
  1648     ].
  1647     self resort.
  1649     self resort.
  1648 
  1650 
  1649     "Created: / 25-10-2006 / 00:54:59 / cg"
  1651     "Created: / 25-10-2006 / 00:54:59 / cg"
       
  1652 !
       
  1653 
       
  1654 toggleAllShownTypes
       
  1655     self showAssertions:(self showAssertions not).
       
  1656     self showHalts:(self showHalts not).
       
  1657     self showCodeBreakpoints:(self showCodeBreakpoints not).
       
  1658     self showDebugCode:(self showDebugCode not).
       
  1659     self showLineBreakpoints:(self showLineBreakpoints not).
       
  1660     self showMethodBreakpoints:(self showMethodBreakpoints not).
       
  1661     self showOthers:(self showOthers not).
  1650 ! !
  1662 ! !
  1651 
  1663 
  1652 !BreakpointBrowser::BreakpointListEntry methodsFor:'accessing'!
  1664 !BreakpointBrowser::BreakpointListEntry methodsFor:'accessing'!
  1653 
  1665 
  1654 arg
  1666 arg
  1817 ! !
  1829 ! !
  1818 
  1830 
  1819 !BreakpointBrowser class methodsFor:'documentation'!
  1831 !BreakpointBrowser class methodsFor:'documentation'!
  1820 
  1832 
  1821 version
  1833 version
  1822     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.32 2012-11-03 18:01:21 cg Exp $'
  1834     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.33 2012-11-04 13:05:47 cg Exp $'
  1823 !
  1835 !
  1824 
  1836 
  1825 version_CVS
  1837 version_CVS
  1826     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.32 2012-11-03 18:01:21 cg Exp $'
  1838     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.33 2012-11-04 13:05:47 cg Exp $'
  1827 ! !
  1839 ! !
  1828 
  1840 
  1829 BreakpointBrowser initialize!
  1841 BreakpointBrowser initialize!