VDBDebuggerApplication.st
changeset 164 364ebdd1d42c
parent 156 6295a4afb286
child 171 39774c491dbf
equal deleted inserted replaced
163:05ff64275e04 164:364ebdd1d42c
  1491 doOpenToolDIsassembly
  1491 doOpenToolDIsassembly
  1492     | application |
  1492     | application |
  1493 
  1493 
  1494     application := VDBInstructionListApplication new
  1494     application := VDBInstructionListApplication new
  1495                     debuggerHolder: self debuggerHolder;  
  1495                     debuggerHolder: self debuggerHolder;  
  1496                     frameHolder: self selectedFrameHolder.
  1496                     disassemblableHolder: self selectedFrameHolder;
       
  1497                     frameHolder: self selectedFrameHolder;
       
  1498                     yourself.
  1497     self doOpenToolApplication: application.
  1499     self doOpenToolApplication: application.
  1498 
  1500 
  1499     "Modified: / 02-10-2018 / 10:15:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1501     "Modified: / 10-06-2019 / 12:47:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1500 !
  1502 !
  1501 
  1503 
  1502 doOpenToolRegisters
  1504 doOpenToolRegisters
  1503     | registers application |
  1505     | registers application |
  1504 
  1506 
  1799     ^ canExecTerminateHolder
  1801     ^ canExecTerminateHolder
  1800 
  1802 
  1801     "Modified: / 01-06-2017 / 23:16:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1803     "Modified: / 01-06-2017 / 23:16:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1802 ! !
  1804 ! !
  1803 
  1805 
       
  1806 
  1804 !VDBDebuggerApplication methodsFor:'startup & release'!
  1807 !VDBDebuggerApplication methodsFor:'startup & release'!
  1805 
  1808 
  1806 closeRequestFor:aTopView
  1809 closeRequestFor:aTopView
  1807     aTopView == self window ifTrue:[ 
  1810     aTopView == self window ifTrue:[ 
  1808         super closeRequestFor:aTopView
  1811         super closeRequestFor:aTopView