VDBDebuggerApplication.st
changeset 110 7150377a44e1
parent 109 8cd32ab019a4
child 111 a70313e80780
equal deleted inserted replaced
109:8cd32ab019a4 110:7150377a44e1
   553                   label: 'Variables'
   553                   label: 'Variables'
   554                   itemValue: doOpenToolVariables
   554                   itemValue: doOpenToolVariables
   555                   isVisible: true
   555                   isVisible: true
   556                 )
   556                 )
   557                (MenuItem
   557                (MenuItem
       
   558                   label: 'Registers'
       
   559                   itemValue: doOpenToolRegisters
       
   560                   isVisible: true
       
   561                 )
       
   562                (MenuItem
   558                   label: 'Breakpoints'
   563                   label: 'Breakpoints'
   559                   itemValue: doOpenToolApplicationClass:
   564                   itemValue: doOpenToolApplicationClass:
   560                   isVisible: true
   565                   isVisible: true
   561                   argument: VDBBreakpointListApplication
   566                   argument: VDBBreakpointListApplication
   562                 )
   567                 )
  1208 
  1213 
  1209     "Modified: / 12-06-2014 / 01:12:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1214     "Modified: / 12-06-2014 / 01:12:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1210     "Modified (format): / 08-03-2015 / 15:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1215     "Modified (format): / 08-03-2015 / 15:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1211 !
  1216 !
  1212 
  1217 
       
  1218 doOpenToolRegisters
       
  1219     | registers application |
       
  1220 
       
  1221     registers := (AspectAdaptor forAspect:#registers)
       
  1222                     subjectChannel: self selectedFrameHolder.
       
  1223     application := VDBRegisterListApplication new
       
  1224                     registerListHolder: registers.
       
  1225     self doOpenToolApplication: application.
       
  1226 
       
  1227     "Created: / 27-09-2018 / 21:01:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
  1228 !
       
  1229 
  1213 doOpenToolVariables
  1230 doOpenToolVariables
  1214     | variables application |
  1231     | variables application |
  1215 
  1232 
  1216     variables := (AspectAdaptor forAspect:#variables)
  1233     variables := (AspectAdaptor forAspect:#variables)
  1217                     subjectChannel: self selectedFrameHolder.
  1234                     subjectChannel: self selectedFrameHolder.