"
jv:vdb - Visual / VM Debugger
Copyright (C) 2015-now Jan Vrany

This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'

You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/
"
"{ Package: 'jv:vdb' }"

"{ NameSpace: Smalltalk }"

VDBAbstractApplication subclass:#VDBBreakpointApplication
	instanceVariableNames:'breakpointHolder enabledHolder'
	classVariableNames:''
	poolDictionaries:''
	category:'VDB-UI-Others'
!

!VDBBreakpointApplication class methodsFor:'documentation'!

copyright
"
jv:vdb - Visual / VM Debugger
Copyright (C) 2015-now Jan Vrany

This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'

You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/
"
! !

!VDBBreakpointApplication 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:VDBBreakpointApplication andSelector:#windowSpec
     VDBBreakpointApplication new openInterface:#windowSpec
     VDBBreakpointApplication open
    "

    <resource: #canvas>

    ^ 
    #(FullSpec
       name: windowSpec
       window: 
      (WindowSpec
         label: 'Breakpoint'
         name: 'Breakpoint'
         labelChannel: titleHolder
         min: (Point 10 10)
         bounds: (Rectangle 0 0 300 300)
       )
       component: 
      (SpecCollection
         collection: (
          (VerticalPanelViewSpec
             name: 'Controls'
             layout: (LayoutFrame 5 0 5 0 -5 1 -5 1)
             horizontalLayout: fit
             verticalLayout: topSpaceFit
             horizontalSpace: 3
             verticalSpace: 3
             component: 
            (SpecCollection
               collection: (
                (LabelSpec
                   label: 'Condition'
                   name: 'ConditionLabel'
                   translateLabel: true
                   adjust: left
                   enableDisableColorChannel: enabledHolder
                   useDefaultExtent: true
                 )
                (ComboBoxSpec
                   name: 'Condition'
                   enableChannel: enabledHolder
                   model: breakpointConditionHolder
                   acceptOnPointerLeave: false
                   useDefaultExtent: true
                 )
                (LabelSpec
                   label: 'Script'
                   name: 'ScriptLabel'
                   translateLabel: true
                   adjust: left
                   enableDisableColorChannel: enabledHolder
                   useDefaultExtent: true
                 )
                (TextEditorSpec
                   name: 'TextEditor1'
                   enableChannel: enabledHolder
                   model: breakpointScriptHolder
                   hasHorizontalScrollBar: true
                   hasVerticalScrollBar: true
                   hasKeyboardFocusInitially: false
                   extent: (Point 290 198)
                   useDynamicPreferredHeight: true
                 )
                )
              
             )
           )
          )
        
       )
     )
! !

!VDBBreakpointApplication class methodsFor:'plugIn spec'!

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

    "Return a description of exported aspects;
     these can be connected to aspects of an embedding application
     (if this app is embedded in a subCanvas)."

    ^ #(
        #breakpointHolder
        #debuggerHolder
      ).

! !

!VDBBreakpointApplication methodsFor:'aspects'!

breakpointConditionHolder
    ^ (AspectAdaptor forAspect: #condition) subjectChannel: self breakpointHolder

    "Created: / 12-07-2017 / 11:06:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

breakpointHolder
    "return/create the 'breakpointHolder' value holder (automatically generated)"

    breakpointHolder isNil ifTrue:[
        breakpointHolder := ValueHolder new.
    ].
    ^ breakpointHolder
!

breakpointHolder:aValueModel
    "set the 'breakpointHolder' value holder (automatically generated)"

    breakpointHolder := aValueModel.
!

breakpointScriptHolder
    ^ (AspectAdaptor forAspect: #script) subjectChannel: self breakpointHolder

    "Created: / 12-07-2017 / 11:07:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

enabledHolder
    "return/create the 'breakpointHolder' value holder (automatically generated)"

    enabledHolder isNil ifTrue:[
        enabledHolder := (AspectAdaptor forAspect: #notNil) subjectChannel: self breakpointHolder
    ].
    ^ enabledHolder

    "Created: / 14-07-2017 / 10:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!VDBBreakpointApplication class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !