"

 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'

	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...'

	      name: 'Label1'

	      layout: (LayoutFrame 0 0 32 0 0 1 0 1)

	      visibilityChannel: updatingLabelShown

	      translateLabel: true

	    )

	   )

	)

      )

! !

!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: browseItem

	    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

      )

!

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

       )

      (DataSetColumnSpec

       )

      (DataSetColumnSpec

       )

      (DataSetColumnSpec

       )

      (DataSetColumnSpec

       )

      )

!

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."

    "

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

    "

    <resource: #tableColumns>

    ^#(

      (DataSetColumnSpec

	 label: 'Enabled'

	 activeHelpKey: ''

	 activeHelpKeyForLabel: ''

	 labelButtonType: Button

	 width: 50

	 editorType: CheckToggle

	 rendererType: CheckToggle

	 model: enabled

       )

      (DataSetColumnSpec

	 label: 'Type'

	 activeHelpKey: ''

	 activeHelpKeyForLabel: ''

	 labelButtonType: Button