equal
deleted
inserted
replaced
49 |
49 |
50 ^ |
50 ^ |
51 #(Menu |
51 #(Menu |
52 ( |
52 ( |
53 (MenuItem |
53 (MenuItem |
|
54 label: 'Disassemble' |
|
55 itemValue: doDisassemble |
|
56 isVisible: true |
|
57 ) |
|
58 (MenuItem |
54 enabled: canCopyFunctionName |
59 enabled: canCopyFunctionName |
55 label: 'Copy Function Name' |
60 label: 'Copy Function Name' |
56 itemValue: doCopyFunctionName |
61 itemValue: doCopyFunctionName |
|
62 isVisible: true |
57 ) |
63 ) |
58 ) |
64 ) |
59 nil |
65 nil |
60 nil |
66 nil |
61 ) |
67 ) |
103 <resource: #uiCallback> |
109 <resource: #uiCallback> |
104 |
110 |
105 self doCopy: frame func. |
111 self doCopy: frame func. |
106 |
112 |
107 "Modified: / 16-01-2018 / 22:36:37 / jv" |
113 "Modified: / 16-01-2018 / 22:36:37 / jv" |
|
114 ! |
|
115 |
|
116 doDisassemble |
|
117 | disassembly | |
|
118 |
|
119 disassembly := frame disassemble. |
|
120 VDBInstructionListApplication new |
|
121 debugger: frame debugger; |
|
122 instructionList: disassembly; |
|
123 open. |
|
124 |
|
125 "Modified: / 22-06-2018 / 15:13:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
108 ! ! |
126 ! ! |
109 |
127 |
110 !VDBFramePresenter methodsFor:'menu-queries'! |
128 !VDBFramePresenter methodsFor:'menu-queries'! |
111 |
129 |
112 canCopyFunctionName |
130 canCopyFunctionName |