"{ Package: 'stx:goodies/xmlsuite/xquery' }"

"{ NameSpace: XQuery }"

Perseus::Debugger subclass:#Debugger
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'XQuery-Debugging-UI'
!


!Debugger class methodsFor:'interface specs'!

variablePaneSpec
    "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:XQuery::Debugger andSelector:#variablePaneSpec
     XQuery::Debugger new openInterface:#variablePaneSpec
    "

    <resource: #canvas>

    ^ 
     #(FullSpec
        name: variablePaneSpec
        window: 
       (WindowSpec
          label: 'Variables'
          name: 'Variables'
          min: (Point 10 10)
          bounds: (Rectangle 0 0 300 300)
        )
        component: 
       (SpecCollection
          collection: (
           (VariableHorizontalPanelSpec
              name: 'Panel'
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
              showHandle: true
              snapMode: both
              component: 
             (SpecCollection
                collection: (
                 (DataSetSpec
                    name: 'List'
                    model: variableHolder
                    menu: variableMenu
                    hasHorizontalScrollBar: true
                    hasVerticalScrollBar: true
                    dataList: variableListAspect
                    useIndex: false
                    has3Dseparators: true
                    doubleClickSelector: variableInspect
                    columnHolder: variableListColumns
                  )
                 (TransparentBoxSpec
                    name: 'InspectorBox'
                    component: 
                   (SpecCollection
                      collection: (
                       (SubCanvasSpec
                          name: 'Inspector'
                          layout: (LayoutFrame 0 0 30 0 0 1 0 1)
                          hasHorizontalScrollBar: false
                          hasVerticalScrollBar: false
                          miniScrollerVertical: false
                          majorKey: #'XMLv2::DOM3Inspector'
                          subAspectHolders: 
                         (Array
                            
                           (SubChannelInfoSpec
                              subAspect: modelHolder
                              aspect: variableAsDocumentFragmentAspect
                            )
                          )
                          createNewApplication: true
                          createNewBuilder: true
                        )
                       )
                     
                    )
                  )
                 )
               
              )
              handles: (Any 0.5 1.0)
            )
           )
         
        )
      )
! !

!Debugger class methodsFor:'menu specs'!

variableMenu
    "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:XQuery::Debugger andSelector:#variableMenu
     (Menu new fromLiteralArrayEncoding:(XQuery::Debugger variableMenu)) startUp
    "

    <resource: #menu>

    ^ 
     #(Menu
        (
         (MenuItem
            enabled: hasVariableSelected
            label: 'Inspect'
            itemValue: variableInspect
            translateLabel: true
          )
         )
        nil
        nil
      )

    "Modified: / 23-04-2010 / 10:43:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!Debugger class methodsFor:'tableColumns specs'!

variableListColumns
    "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:XQuery::Debugger andSelector:#variableListColumns
    "

    <resource: #tableColumns>

    ^#(
      (DataSetColumnSpec
         label: 'Name'
         labelButtonType: Button
         width: 0.25
         printSelector: name
         canSelect: false
         showRowSeparator: false
       )
      (DataSetColumnSpec
         label: 'Type'
         labelButtonType: Button
         width: 0.25
         printSelector: typeName
         canSelect: false
         showRowSeparator: false
       )
      (DataSetColumnSpec
         label: 'Value'
         labelButtonType: Button
         width: 0.49
         printSelector: valueString
         canSelect: false
         showRowSeparator: false
         showColSeparator: false
       )
      )

    "Modified: / 20-04-2010 / 21:01:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!Debugger methodsFor:'aspects'!

variableAsDocumentFragmentAspect

    ^(AspectAdaptor forAspect:#asDocumentFragment)
        subjectChannel: self variableHolder

    "Created: / 23-04-2010 / 11:27:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!Debugger methodsFor:'menu actions'!

variableInspect

    | variable |
    (variable := self variableHolder value)
        ifNotNil:[variable value inspect]

    "Modified: / 23-04-2010 / 10:44:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!Debugger class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !