13 VDBAbstractApplication subclass:#VDBSimpleDebuggerConsoleApplication

    13 VDBAbstractConsoleApplication subclass:#VDBSimpleDebuggerConsoleApplication

    14 	instanceVariableNames:'consoleView consoleInput consoleOutput consoleOutputLock

    14 	instanceVariableNames:'consoleInput consoleOutput consoleOutputLock consoleProcess

    15 		consoleProcess consolePrompt consolePromptPrinted

    15 		consolePrompt consolePromptPrinted outstandingCommand

    16 		outstandingCommand outstandingCommandToken

    16 		outstandingCommandToken outstandingCommandBlocker

    17 		outstandingCommandBlocker ignoreNextLogStreamEvent running'

    17 		ignoreNextLogStreamEvent running'

    49 !VDBSimpleDebuggerConsoleApplication class methodsFor:'interface specs'!

    49 !VDBSimpleDebuggerConsoleApplication class methodsFor:'startup-web applications'!

    50 

    50 

    51 windowSpec

    51 initialPageSpec

    52     "This resource specification was automatically generated

    52     "this is only required for web-applications"

    53      by the UIPainter of ST/X."

    53 

    54 

    54     ^ self shouldImplement

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

    55 !

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

    56 

    57 

    57 pageSpecs

    58     "

    58     "this is only required for web-applications"

    59      UIPainter new openOnClass:VDBSimpleDebuggerConsoleApplication andSelector:#windowSpec

    59 

    60      VDBSimpleDebuggerConsoleApplication new openInterface:#windowSpec

    60     ^ self shouldImplement

    61      VDBSimpleDebuggerConsoleApplication open

    61 ! !

    62     "

    62 

    63 

    63 !VDBSimpleDebuggerConsoleApplication methodsFor:'accessing'!

    64     <resource: #canvas>

    64 

    65 

    65 consoleInput

    66     ^ 

    66     ^ consoleInput

    67     #(FullSpec

    67 

    68        name: windowSpec

    68     "Created: / 21-01-2019 / 14:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    69        uuid: '28fb22b0-fe61-11e8-90a6-606720e43e2c'

    69 !

    70        window: 

    70 

    71       (WindowSpec

    71 consoleOutput

    72          label: 'Debugger Console'

    72     ^ consoleOutput

    73          name: 'Debugger Console'

    73 

    74          uuid: '28fb22b1-fe61-11e8-90a6-606720e43e2c'

    74     "Created: / 21-01-2019 / 14:18:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    75          min: (Point 10 10)

    76          bounds: (Rectangle 0 0 782 332)

    77        )

    78        component: 

    79       (SpecCollection

    80          collection: (

    81           (ArbitraryComponentSpec

    82              name: 'Console'

    83              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

    84              uuid: '28fb22b2-fe61-11e8-90a6-606720e43e2c'

    85              hasHorizontalScrollBar: true

    86              hasVerticalScrollBar: true

    87              miniScrollerHorizontal: true

    88              autoHideScrollBars: true

    89              hasBorder: false

    90              component: consoleView

    91            )

    92           )

    93         

    94        )

    95      )

    96 ! !

    97 

    98 !VDBSimpleDebuggerConsoleApplication class methodsFor:'plugIn spec'!

    99 

   100 aspectSelectors

   101     "This resource specification was automatically generated

   102      by the UIPainter of ST/X."

   103 

   104     "Do not manually edit this. If it is corrupted,

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

   106 

   107     "Return a description of exported aspects;

   108      these can be connected to aspects of an embedding application

   109      (if this app is embedded in a subCanvas)."

   110 

   111     ^ #(

   112         #debuggerHolder

   113       ).

   114 

   148 consoleView

   108 consoleViewClass

   149     consoleView isNil ifTrue:[

   109     ^ VDBSimpleDebuggerConsoleView

   150         consoleView := VDBSimpleDebuggerConsoleView new.

   110 

   151         consoleView

   111     "Modified: / 21-01-2019 / 14:22:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   152             font:self textFont;

   153             foregroundColor:Color white backgroundColor:Color black;

   154             cursorForegroundColor:Color white backgroundColor:Color white.

   155         consoleView localEcho:true.

   156         consoleView inputTranslateCRToNL:true.

   157         consoleView lineEditMode:true.

   158         consoleView inStream:consoleInput.

   159         consoleView outStream:consoleOutput.

   160         consoleView startReaderProcessWhenVisible.

   161         self initializeCompletion

   162     ].

   163     ^ consoleView

   164 

   165     "Created: / 09-06-2014 / 10:11:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   166     "Modified: / 04-04-2018 / 22:40:59 / jv"

   167     "Modified: / 16-01-2019 / 14:43:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   296     consolePrompt := '(vdb) '.

   240     consolePrompt := '(gdb) '.

   304     "Modified: / 19-01-2019 / 23:55:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   248     "Modified: / 21-01-2019 / 15:37:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   305 !

   249 !

   306 

   250 

   307 initializeCompletion

   251 initializeConsoleView: aTerminalView

   308     consoleView isNil ifTrue:[ ^ self ].

   252     super initializeConsoleView: aTerminalView.

   309     (debugger notNil and:[debugger hasCommand:'-complete']) ifTrue:[ 

   253     aTerminalView localEcho:true.

   310         consoleView completionBlock: [ :prefix | self doComplete: prefix ]

   254     aTerminalView inputTranslateCRToNL:true.

   255     aTerminalView lineEditMode:true.

   256 

   257     "Created: / 21-01-2019 / 14:13:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   258     "Modified: / 21-01-2019 / 15:33:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   259 !

   260 

   261 initializeConsoleView: aTerminalView forDebugger: aGDBDebugger

   262     super initializeConsoleView: aTerminalView forDebugger: aGDBDebugger.

   263     (aGDBDebugger notNil and:[aGDBDebugger hasCommand:'-complete']) ifTrue:[ 

   264         consoleView completionBlock: [ :prefix | self doComplete: prefix ].

   265         consolePrompt := debugger getParameter: 'prompt'.

   312         consoleView completionBlock: nil

   267         consoleView completionBlock: nil.

   313     ].

   268         consolePrompt := '(gdb) '

   314 

   269     ].

   315     "Created: / 16-01-2019 / 14:42:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   270 

   271     "Created: / 21-01-2019 / 15:33:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   272     "Modified: / 21-01-2019 / 17:49:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   350     "Modified: / 19-01-2019 / 23:51:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   304     "Modified: / 21-01-2019 / 15:37:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"