VDBDebuggerApplication.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sat, 07 Jun 2014 11:21:59 +0100
changeset 0 33a652015a1a
child 2 9741a7683808
permissions -rw-r--r--
Initial commit. Visual Debugger window contains only dumb, console-like pane to enter GDB CLI commands. No completion, no history, no error handling. Does not handle properly inferior's stdin/stdout/stderr (need to allocate pty for that)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'jv:vdb' }"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
VDBAbstractApplication subclass:#VDBDebuggerApplication
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
	instanceVariableNames:''
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
	classVariableNames:''
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	poolDictionaries:''
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	category:'VGB-UI'
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!VDBDebuggerApplication class methodsFor:'interface specs'!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
windowSpec
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
    "This resource specification was automatically generated
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
     by the UIPainter of ST/X."
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
    "Do not manually edit this!! If it is corrupted,
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
     the UIPainter may not be able to read the specification."
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
    "
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
     UIPainter new openOnClass:VDBDebuggerApplication andSelector:#windowSpec
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
     VDBDebuggerApplication new openInterface:#windowSpec
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
     VDBDebuggerApplication open
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
    "
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
    <resource: #canvas>
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
    ^ 
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
    #(FullSpec
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
       name: windowSpec
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
       window: 
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
      (WindowSpec
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
         label: 'Visual Debugger'
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
         name: 'Visual Debugger'
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
         min: (Point 10 10)
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
         bounds: (Rectangle 0 0 718 390)
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
       )
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
       component: 
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
      (SpecCollection
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
         collection: (
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
          (SubCanvasSpec
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
             name: 'SubCanvas1'
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
             level: 0
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
             hasHorizontalScrollBar: false
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
             hasVerticalScrollBar: false
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
             majorKey: VDBConsoleApplication
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
             subAspectHolders: 
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
            (Array
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
               
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
              (SubChannelInfoSpec
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
                 subAspect: debuggerHolder
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
                 aspect: debuggerHolder
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
               )
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
             )
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
             createNewApplication: true
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
             createNewBuilder: true
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
           )
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
          )
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
        
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
       )
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
     )
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
! !
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
!VDBDebuggerApplication class methodsFor:'plugIn spec'!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
aspectSelectors
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
    "This resource specification was automatically generated
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
     by the UIPainter of ST/X."
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
    "Do not manually edit this. If it is corrupted,
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
     the UIPainter may not be able to read the specification."
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
    "Return a description of exported aspects;
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
     these can be connected to aspects of an embedding application
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
     (if this app is embedded in a subCanvas)."
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    76
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
    ^ #(
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
        #debuggerHolder
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
      ).
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
! !
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82