8 " |
8 " |
9 "{ Package: 'jv:vdb' }" |
9 "{ Package: 'jv:vdb' }" |
10 |
10 |
11 "{ NameSpace: Smalltalk }" |
11 "{ NameSpace: Smalltalk }" |
12 |
12 |
13 VDBModelPresenter subclass:#VDBBreakpointPresenter |
13 VDBAbstractPresenter subclass:#VDBBreakpointPresenter |
14 instanceVariableNames:'breakpoint' |
14 instanceVariableNames:'breakpoint' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'VDB-Presentation' |
17 category:'VDB-Presentation' |
18 ! |
18 ! |
26 |
26 |
27 This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License' |
27 This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License' |
28 |
28 |
29 You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/ |
29 You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/ |
30 " |
30 " |
|
31 ! ! |
|
32 |
|
33 !VDBBreakpointPresenter class methodsFor:'menu specs'! |
|
34 |
|
35 contextMenu |
|
36 "This resource specification was automatically generated |
|
37 by the MenuEditor of ST/X." |
|
38 |
|
39 "Do not manually edit this!! If it is corrupted, |
|
40 the MenuEditor may not be able to read the specification." |
|
41 |
|
42 |
|
43 " |
|
44 MenuEditor new openOnClass:VDBBreakpointPresenter andSelector:#contextMenu |
|
45 (Menu new fromLiteralArrayEncoding:(VDBBreakpointPresenter contextMenu)) startUp |
|
46 " |
|
47 |
|
48 <resource: #menu> |
|
49 |
|
50 ^ |
|
51 #(Menu |
|
52 ( |
|
53 (MenuItem |
|
54 label: 'Enable' |
|
55 itemValue: doEnable |
|
56 isVisible: canEnable |
|
57 ) |
|
58 (MenuItem |
|
59 label: 'Disable' |
|
60 itemValue: doDisable |
|
61 isVisible: canDisable |
|
62 ) |
|
63 ) |
|
64 nil |
|
65 nil |
|
66 ) |
31 ! ! |
67 ! ! |
32 |
68 |
33 !VDBBreakpointPresenter methodsFor:'accessing'! |
69 !VDBBreakpointPresenter methodsFor:'accessing'! |
34 |
70 |
35 breakpoint |
71 breakpoint |
56 ]. |
92 ]. |
57 ]. |
93 ]. |
58 |
94 |
59 "Created: / 10-07-2017 / 13:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
95 "Created: / 10-07-2017 / 13:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
60 "Modified: / 11-07-2017 / 12:13:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
96 "Modified: / 11-07-2017 / 12:13:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
97 ! |
|
98 |
|
99 subject |
|
100 "Return an instance of GDB object that this presenter displays." |
|
101 |
|
102 ^ breakpoint |
|
103 |
|
104 "Modified: / 05-02-2018 / 13:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61 ! ! |
105 ! ! |
62 |
106 |
63 !VDBBreakpointPresenter methodsFor:'initialization'! |
107 !VDBBreakpointPresenter methodsFor:'initialization'! |
64 |
108 |
65 setBreakpoint: aGDBBreakpoint |
109 setBreakpoint: aGDBBreakpoint |
66 breakpoint := aGDBBreakpoint |
110 breakpoint := aGDBBreakpoint |
67 |
111 |
68 "Created: / 10-07-2017 / 13:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
112 "Created: / 10-07-2017 / 13:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69 ! ! |
113 ! ! |
70 |
114 |
|
115 !VDBBreakpointPresenter methodsFor:'menu-actions'! |
|
116 |
|
117 doDisable |
|
118 breakpoint enabled: false |
|
119 |
|
120 "Created: / 05-02-2018 / 12:25:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
121 ! |
|
122 |
|
123 doEnable |
|
124 breakpoint enabled: true |
|
125 |
|
126 "Created: / 05-02-2018 / 12:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
127 ! ! |
|
128 |
|
129 !VDBBreakpointPresenter methodsFor:'menu-queries'! |
|
130 |
|
131 canDisable |
|
132 ^ breakpoint enabled |
|
133 |
|
134 "Created: / 05-02-2018 / 12:27:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
135 ! |
|
136 |
|
137 canEnable |
|
138 ^ breakpoint enabled not |
|
139 |
|
140 "Created: / 05-02-2018 / 12:26:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
141 ! ! |
|
142 |
71 !VDBBreakpointPresenter methodsFor:'testing'! |
143 !VDBBreakpointPresenter methodsFor:'testing'! |
72 |
144 |
73 isBreakpointPresenter |
145 isBreakpointPresenter |
74 ^ true |
146 ^ true |
75 |
147 |