46 application: [ varObjApp new debugger: debugger; variableObjectList: (Array with: self); yourself ]; |
46 application: [ varObjApp new debugger: debugger; variableObjectList: (Array with: self); yourself ]; |
47 "/ text: [ ... ]; |
47 "/ text: [ ... ]; |
48 yourself |
48 yourself |
49 |
49 |
50 "Modified: / 03-02-2018 / 09:58:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
50 "Modified: / 03-02-2018 / 09:58:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
51 ! ! |
|
52 |
|
53 !UserPreferences methodsFor:'accessing-vdb'! |
|
54 |
|
55 vdbDebuggerLayout |
|
56 "Return default (initial) layout of debugger window." |
|
57 |
|
58 ^ self at: #vdbDebuggerLayout ifAbsent:[ nil ]. |
|
59 |
|
60 " |
|
61 UserPreferences current vdbDebuggerLayout. |
|
62 UserPreferences current vdbDebuggerLayout: #layoutSingleSpec. |
|
63 UserPreferences current vdbDebuggerLayout: nil. |
|
64 " |
|
65 |
|
66 "Created: / 04-10-2018 / 11:13:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
67 ! ! |
|
68 |
|
69 !UserPreferences methodsFor:'accessing-vdb'! |
|
70 |
|
71 vdbDebuggerLayout: aSymbol |
|
72 "Set default (initial) debugger window layout (as spec-selector). |
|
73 |
|
74 For set of supported layouts, see VDBDebuggerApplication class, |
|
75 protocol `interface specs-layouts`" |
|
76 |
|
77 ^ self at: #vdbDebuggerLayout put: aSymbol |
|
78 |
|
79 " |
|
80 UserPreferences current vdbDebuggerLayout. |
|
81 UserPreferences current vdbDebuggerLayout: #layoutSingleSpec. |
|
82 UserPreferences current vdbDebuggerLayout: nil. |
|
83 " |
|
84 |
|
85 "Created: / 04-10-2018 / 12:27:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
51 ! ! |
86 ! ! |
52 |
87 |
53 !UserPreferences methodsFor:'accessing-vdb'! |
88 !UserPreferences methodsFor:'accessing-vdb'! |
54 |
89 |
55 vdbFrameFiltersEnabled |
90 vdbFrameFiltersEnabled |