VDBDebuggerApplication.st
changeset 111 a70313e80780
parent 110 7150377a44e1
child 113 1a40f33af921
equal deleted inserted replaced
110:7150377a44e1 111:a70313e80780
   558                   label: 'Registers'
   558                   label: 'Registers'
   559                   itemValue: doOpenToolRegisters
   559                   itemValue: doOpenToolRegisters
   560                   isVisible: true
   560                   isVisible: true
   561                 )
   561                 )
   562                (MenuItem
   562                (MenuItem
       
   563                   label: 'Disassembly'
       
   564                   itemValue: doOpenToolDIsassembly
       
   565                   isVisible: true
       
   566                 )
       
   567                (MenuItem
   563                   label: 'Breakpoints'
   568                   label: 'Breakpoints'
   564                   itemValue: doOpenToolApplicationClass:
   569                   itemValue: doOpenToolApplicationClass:
   565                   isVisible: true
   570                   isVisible: true
   566                   argument: VDBBreakpointListApplication
   571                   argument: VDBBreakpointListApplication
   567                 )
   572                 )
  1213 
  1218 
  1214     "Modified: / 12-06-2014 / 01:12:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1219     "Modified: / 12-06-2014 / 01:12:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1215     "Modified (format): / 08-03-2015 / 15:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1220     "Modified (format): / 08-03-2015 / 15:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1216 !
  1221 !
  1217 
  1222 
       
  1223 doOpenToolDIsassembly
       
  1224     | application |
       
  1225 
       
  1226     application := VDBInstructionListApplication new
       
  1227                     frameHolder: self selectedFrameHolder.
       
  1228     self doOpenToolApplication: application.
       
  1229 
       
  1230     "Modified: / 28-09-2018 / 06:58:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
  1231 !
       
  1232 
  1218 doOpenToolRegisters
  1233 doOpenToolRegisters
  1219     | registers application |
  1234     | registers application |
  1220 
  1235 
  1221     registers := (AspectAdaptor forAspect:#registers)
  1236     registers := (AspectAdaptor forAspect:#registers)
  1222                     subjectChannel: self selectedFrameHolder.
  1237                     subjectChannel: self selectedFrameHolder.