equal
deleted
inserted
replaced
35 |
35 |
36 "When window is closed, forget it (so subsequent call to |
36 "When window is closed, forget it (so subsequent call to |
37 `GDBDebugger >> #cli` opens a new CLI window):" |
37 `GDBDebugger >> #cli` opens a new CLI window):" |
38 win announcer when: WindowClosed do: [ :windowClosed | |
38 win announcer when: WindowClosed do: [ :windowClosed | |
39 windowClosed window == win ifTrue:[ |
39 windowClosed window == win ifTrue:[ |
40 aGDBDebugger propertyAt: #cli put: win. |
40 aGDBDebugger propertyAt: #cli put: nil. |
41 ] |
41 ] |
42 ]. |
42 ]. |
43 |
43 |
44 "When GDB terminates, close the CLI." |
44 "When GDB terminates, close the CLI." |
45 aGDBDebugger announcer when: GDBExitEvent do:[ :exit | |
45 aGDBDebugger announcer when: GDBExitEvent do:[ :exit | |