"

 COPYRIGHT (c) 2008 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

ApplicationModel subclass:#BreakpointBrowser

	instanceVariableNames:'updatingLabelShown breakpointList shownCopyOfBreakpointList

		selectionIndexHolder currentSortColumn currentSortIsReverse

		showHalts showAssertions showCodeBreakpoints

		showCodeBreakpointsFor showMethodBreakpoints codeView infoHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk-Breakpoints'

!

Object subclass:#BreakpointListEntry

	instanceVariableNames:'type arg className selector lineNumber info enabled'

	classVariableNames:''

	poolDictionaries:''

	privateIn:BreakpointBrowser

!

RBProgramNodeVisitor subclass:#MessageArgumentExtractor

	instanceVariableNames:'callBack selectorToSearch'

	classVariableNames:''

	poolDictionaries:''

	privateIn:BreakpointBrowser

!

!BreakpointBrowser class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2008 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    tool to list breakpoints (breakPoint/halt/assert)

    [author:]

	cg (cg@FUSI)

"

! !

!BreakpointBrowser class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Tools::BreakpointBrowser andSelector:#windowSpec

     Tools::BreakpointBrowser new openInterface:#windowSpec

     Tools::BreakpointBrowser open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Breakpoint Browser'

          name: 'Breakpoint Browser'

          min: (Point 10 10)

          max: (Point 1024 768)

          bounds: (Rectangle 0 0 680 691)

          menu: mainMenu

        )

        component: 

       (SpecCollection

          collection: (

           (MenuPanelSpec

              name: 'ToolBar1'

              layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)

              menu: toolBarMenu

              textDefault: true

            )

           (VariableVerticalPanelSpec

              name: 'VariableVerticalPanel1'

              layout: (LayoutFrame 0 0 40 0 0 1 0 1)

              snapMode: both

              component: 

             (SpecCollection

                collection: (

                 (DataSetSpec

                    name: 'Table'

                    model: selectionIndexHolder

                    menu: itemMenu

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    dataList: shownCopyOfBreakpointList

                    doubleClickSelector: itemDoubleClicked:

                    columnHolder: tableColumns

                  )

                 (TextEditorSpec

                    name: 'TextEditor1'

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    hasKeyboardFocusInitially: false

                    viewClassName: 'CodeView'

                    postBuildCallback: postBuildCodeView:

                  )

                 )

              )

              handles: (Any 0.5 1.0)

            )

           (LabelSpec

              label: 'Updating - Please Wait...'

              name: 'Label1'

              layout: (LayoutFrame 0 0 40 0 0 1 0 1)

              visibilityChannel: updatingLabelShown

              backgroundColor: (Color 100.0 49.999237048905 49.999237048905)

              translateLabel: true

            )

           (ViewSpec

              name: 'InfoBox'

              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)

              visibilityChannel: updatingLabelShown

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Label'

                    name: 'Label2'

                    layout: (LayoutFrame 2 0 2 0 680 0 30 0)

                    level: -1

                    translateLabel: true

                    labelChannel: infoHolder

                    adjust: left

                  )

                 )

              )

            )

           )

        )

      )

! !

!BreakpointBrowser class methodsFor:'menu specs'!

itemMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#itemMenu

     (Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser itemMenu)) startUp

    "

    <resource: #menu>

    ^

     #(Menu

        (

         (MenuItem

            label: 'Browse'

            itemValue: browseSelectedItem

            translateLabel: true

          )

         )

        nil

        nil

      )

!

mainMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser mainMenu)) startUp

    "

    <resource: #menu>

    ^

     #(Menu

        (

         (MenuItem

            label: 'File'

            translateLabel: true

            submenu:

           (Menu

              (

               (MenuItem

                  label: 'Exit'

                  itemValue: closeRequest

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

          (MenuItem

            label: 'Selection'

            translateLabel: true

            submenu:

           (Menu

              (

               (MenuItem

                  label: 'Browse'

                  itemValue: browseSelectedItem

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'View'

            translateLabel: true

            submenu:

           (Menu

              (

               (MenuItem

                  label: 'Update List'

                  itemValue: updateList

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Assertions'

                  itemValue: showAssertions:

                  translateLabel: true

                  hideMenuOnActivated: false

                  indication: showAssertions

                )

               (MenuItem

                  label: 'Halts'

                  itemValue: showHalts:

                  translateLabel: true

                  hideMenuOnActivated: false

                  indication: showHalts

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Code Breakpoints'

                  itemValue: showCodeBreakpoints:

                  translateLabel: true

                  hideMenuOnActivated: false

                  indication: showCodeBreakpoints

                )

               (MenuItem

                  enabled: showCodeBreakpoints

                  label: ' '

                  translateLabel: true

                  submenuChannel: codeBreakpointMenu

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Method Breakpoints'

                  itemValue: showMethodBreakpoints:

                  translateLabel: true

                  hideMenuOnActivated: false

                  indication: showMethodBreakpoints

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Enable'

            translateLabel: true

            submenu:

           (Menu

              (

               (MenuItem

                  label: 'Assertions'

                  itemValue: enableAssertions:

                  translateLabel: true

                  indication: enableAssertions

                )

               (MenuItem

                  label: 'Halts'

                  itemValue: enableHalts:

                  translateLabel: true

                  indication: enableHalts

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Code Breakpoints'

                  translateLabel: true

                  submenuChannel: enabledCodeBreakpointMenu

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Help'

            translateLabel: true

            startGroup: right

            submenu:

           (Menu

              (

               (MenuItem

                  label: 'Documentation'

                  itemValue: openDocumentation

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'About this Application...'

                  itemValue: openAboutThisApplication

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

!

toolBarMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#toolBarMenu

     (Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser toolBarMenu)) startUp

    "

    <resource: #menu>

    ^

     #(Menu

	(

	 (MenuItem

	    label: 'Update List'

	    itemValue: updateList

	    translateLabel: true

	    isButton: true

	    labelImage: (ResourceRetriever XPToolbarIconLibrary reloadIcon)

	  )

	 (MenuItem

	    label: '-'

	  )

	 (MenuItem

	    enabled: hasSelectionHolder

	    label: 'Browse Selected Method'

	    itemValue: browseSelectedItem

	    translateLabel: true

	    isButton: true

	    labelImage: (ResourceRetriever XPToolbarIconLibrary startNewSystemBrowserIcon)

	  )

	 )

	nil

	nil

      )

! !

!BreakpointBrowser class methodsFor:'tableColumns specs'!

tableColumns

    "This resource specification was automatically generated

     by the DataSetBuilder of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the DataSetBuilder may not be able to read the specification."

    "

     DataSetBuilder new openOnClass:Tools::BreakpointBrowser andSelector:#tableColumns

    "

    <resource: #tableColumns>

    ^#(

      (DataSetColumnSpec

         label: 'Type'

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         labelActionSelector: sortBy:

         labelActionArgument: 'type'

         width: 70

         model: type

         canSelect: false

       )

      (DataSetColumnSpec

         label: 'Arg'

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         labelActionSelector: sortBy:

         labelActionArgument: 'type'

         width: 50

         model: arg

         canSelect: false

       )

      (DataSetColumnSpec

         label: 'Class'

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         labelActionSelector: sortBy:

         labelActionArgument: 'className'

         width: 150

         model: className

         canSelect: false

       )

      (DataSetColumnSpec

         label: 'Method'

         labelAlignment: left

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         labelActionSelector: sortBy:

         labelActionArgument: 'selector'

         width: 200

         model: selector

         canSelect: false

       )

"/      (DataSetColumnSpec

"/         label: 'Line'

"/         labelAlignment: left

"/         activeHelpKey: ''

"/         activeHelpKeyForLabel: ''

"/         labelButtonType: Button

"/         labelActionSelector: sortBy:

"/         labelActionArgument: 'lineNumber'

"/         width: 35

"/         model: lineNumber

"/         canSelect: false

"/       )

      (DataSetColumnSpec

         label: 'Info'

         labelAlignment: left

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         labelActionSelector: sortBy:

         labelActionArgument: 'info'

         model: info

         canSelect: false

       )

      )

!

tableColumns_v1

    "This resource specification was automatically generated

     by the DataSetBuilder of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the DataSetBuilder may not be able to read the specification."