author | mawalch |
Thu, 25 Jan 2018 19:13:26 +0100 | |
changeset 4300 | 561289c7eb79 |
parent 3966 | 799c9a320a5d |
child 4319 | eeb5234bc6c9 |
permissions | -rw-r--r-- |
2375 | 1 |
"{ Package: 'stx:libbasic3' }"! |
2 |
||
3482 | 3 |
!CompiledCode methodsFor:'debugging'! |
4 |
||
5 |
setTracelog |
|
6 |
"Arrange for a trace logging - enter/leave of the method will be logged using |
|
4300 | 7 |
current Logger" |
3482 | 8 |
|
9 |
MessageTracer tracelogMethod:self |
|
10 |
||
11 |
"Created: / 15-03-2013 / 11:10:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
4300 | 12 |
"Modified (comment): / 25-01-2018 / 19:10:31 / mawalch" |
3482 | 13 |
! ! |
14 |
||
15 |
!ConfigurableFeatures class methodsFor:'queries-features'! |
|
16 |
||
17 |
hasProjectChecker |
|
18 |
^true |
|
19 |
||
20 |
" |
|
21 |
ConfigurableFeatures includesFeature:#ProjectChecker |
|
22 |
" |
|
23 |
||
24 |
"Created: / 03-04-2012 / 17:58:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
25 |
! ! |
|
26 |
||
3608
56b9a5667fda
Initial support for simple method mocking (for tests, mainly)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3561
diff
changeset
|
27 |
!ExecutableFunction methodsFor:'queries'! |
56b9a5667fda
Initial support for simple method mocking (for tests, mainly)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3561
diff
changeset
|
28 |
|
56b9a5667fda
Initial support for simple method mocking (for tests, mainly)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3561
diff
changeset
|
29 |
isMocked |
56b9a5667fda
Initial support for simple method mocking (for tests, mainly)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3561
diff
changeset
|
30 |
"Return true, if the method has been mocked (by means of MessageTracer>>mockMethod:do:" |
56b9a5667fda
Initial support for simple method mocking (for tests, mainly)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3561
diff
changeset
|
31 |
|
56b9a5667fda
Initial support for simple method mocking (for tests, mainly)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3561
diff
changeset
|
32 |
^ false |
56b9a5667fda
Initial support for simple method mocking (for tests, mainly)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3561
diff
changeset
|
33 |
|
56b9a5667fda
Initial support for simple method mocking (for tests, mainly)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3561
diff
changeset
|
34 |
"Created: / 29-07-2014 / 09:48:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
56b9a5667fda
Initial support for simple method mocking (for tests, mainly)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3561
diff
changeset
|
35 |
! ! |
56b9a5667fda
Initial support for simple method mocking (for tests, mainly)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3561
diff
changeset
|
36 |
|
3966 | 37 |
!UserPreferences methodsFor:'accessing-prefs-changes & history'! |
2375 | 38 |
|
2393 | 39 |
historyManagerAllowEditOfHistory |
40 |
"useful if you have 'beginner students', to prevent them from changing the history" |
|
41 |
||
42 |
^self |
|
43 |
at: #'history-manager.allow-edit-of-history' |
|
3925 | 44 |
ifAbsent:false |
2393 | 45 |
|
46 |
"Modified (Format): / 30-06-2011 / 17:07:33 / cg" |
|
47 |
"Modified (Comment): / 30-06-2011 / 17:09:24 / cg" |
|
48 |
! ! |
|
49 |
||
3966 | 50 |
!UserPreferences methodsFor:'accessing-prefs-changes & history'! |
2393 | 51 |
|
2375 | 52 |
historyManagerModificationLimit |
2393 | 53 |
"the time-delta within which the history manager does not treat a change as a new one" |
2375 | 54 |
|
55 |
^self |
|
56 |
at: #'history-manager.modification-limit' |
|
3925 | 57 |
ifAbsent: 3600 "/one hour" |
2375 | 58 |
|
59 |
"Created: / 04-10-2008 / 11:55:56 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
2393 | 60 |
"Modified (Comment): / 30-06-2011 / 17:25:09 / cg" |
2375 | 61 |
! ! |
62 |
||
3966 | 63 |
!UserPreferences methodsFor:'accessing-prefs-changes & history'! |
2375 | 64 |
|
65 |
historyManagerModificationLimit: sec |
|
2393 | 66 |
"the time-delta within which the history manager does not treat a change as a new one" |
2375 | 67 |
|
68 |
^self |
|
69 |
at: #'history-manager.modification-limit' |
|
70 |
put: sec |
|
71 |
||
72 |
"Created: / 04-10-2008 / 11:56:23 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
2393 | 73 |
"Modified (Comment): / 30-06-2011 / 17:25:13 / cg" |
2375 | 74 |
! ! |
75 |
||
3966 | 76 |
!UserPreferences methodsFor:'accessing-prefs-changes & history'! |
2375 | 77 |
|
78 |
historyManagerSignature |
|
2393 | 79 |
"the signature added by the history manager" |
2375 | 80 |
|
81 |
^self historyManagerSignatures |
|
82 |
at: (Array with: OperatingSystem getHostName with: OperatingSystem getLoginName) |
|
2472
032f30308ef1
changed: #historyManagerSignature
Claus Gittinger <cg@exept.de>
parents:
2460
diff
changeset
|
83 |
ifAbsent: [OperatingSystem getLoginName] |
2375 | 84 |
|
85 |
"Created: / 04-10-2008 / 12:06:58 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
2434
62bd7a13939b
HistoryManager fixes (takes user signature from preferences)
vrany
parents:
2393
diff
changeset
|
86 |
"Modified: / 08-07-2011 / 10:24:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2472
032f30308ef1
changed: #historyManagerSignature
Claus Gittinger <cg@exept.de>
parents:
2460
diff
changeset
|
87 |
"Modified: / 04-08-2011 / 17:24:21 / cg" |
2375 | 88 |
! ! |
89 |
||
3966 | 90 |
!UserPreferences methodsFor:'accessing-prefs-changes & history'! |
2375 | 91 |
|
92 |
historyManagerSignature: aString |
|
2393 | 93 |
"the signature added by the history manager" |
2375 | 94 |
|
95 |
^self historyManagerSignatures |
|
96 |
at: (Array with: OperatingSystem getHostName with: OperatingSystem getLoginName) |
|
97 |
put: aString |
|
98 |
||
99 |
"Created: / 04-10-2008 / 11:54:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
2393 | 100 |
"Modified (Comment): / 30-06-2011 / 17:25:31 / cg" |
2375 | 101 |
! ! |
102 |
||
3966 | 103 |
!UserPreferences methodsFor:'accessing-prefs-changes & history'! |
2375 | 104 |
|
105 |
historyManagerSignatures |
|
2393 | 106 |
"the signatures added by the history manager" |
2375 | 107 |
|
108 |
^self |
|
109 |
at: #'history-manager.signatures' |
|
110 |
ifAbsentPut: [Dictionary new] |
|
111 |
||
112 |
" |
|
2393 | 113 |
UserPreferences current historyManagerSignatures |
2375 | 114 |
" |
115 |
||
116 |
"Created: / 04-10-2008 / 11:52:40 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
117 |
"Modified: / 22-08-2009 / 11:00:12 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
2393 | 118 |
"Modified (Comment): / 30-06-2011 / 17:27:14 / cg" |
2375 | 119 |
! ! |
120 |
||
3966 | 121 |
!UserPreferences methodsFor:'accessing-prefs-changes & history'! |
2375 | 122 |
|
123 |
historyManagerSignatures: aDictionary |
|
2393 | 124 |
"the signatures added by the history manager" |
2375 | 125 |
|
3925 | 126 |
self |
2375 | 127 |
at: #'history-manager.signatures' |
3925 | 128 |
put: aDictionary |
2375 | 129 |
|
130 |
"Created: / 04-10-2008 / 11:52:58 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
2393 | 131 |
"Modified (Comment): / 30-06-2011 / 17:26:48 / cg" |
2375 | 132 |
! ! |
133 |
||
2727 | 134 |
!UserPreferences methodsFor:'accessing-scm'! |
2444
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
135 |
|
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
136 |
managerPerMatchingModuleDefinitions |
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
137 |
|
2447 | 138 |
| defs | |
139 |
||
2450 | 140 |
defs := (self at: #'managerPerMatchingModuleDefinitionsKey' ifAbsent:[#()]). |
2448 | 141 |
^(defs collect:[:e|e decodeAsLiteralArray]) asOrderedCollection |
2447 | 142 |
|
143 |
" |
|
144 |
UserPreferences current managerPerMatchingModuleDefinitions |
|
145 |
UserPreferences current managerPerMatchingModuleDefinitions: #(). |
|
146 |
" |
|
2444
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
147 |
|
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
148 |
"Created: / 09-07-2011 / 13:33:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
149 |
! ! |
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
150 |
|
2727 | 151 |
!UserPreferences methodsFor:'accessing-scm'! |
2444
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
152 |
|
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
153 |
managerPerMatchingModuleDefinitions: defs |
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
154 |
|
2450 | 155 |
self at: #'managerPerMatchingModuleDefinitionsKey' |
2448 | 156 |
put: (defs collect:[:e| e literalArrayEncoding]) asArray. |
2444
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
157 |
AbstractSourceCodeManager managerPerMatchingModuleDefinitions == defs ifFalse:[ |
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
158 |
AbstractSourceCodeManager managerPerMatchingModuleDefinitions: defs. |
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
159 |
] |
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
160 |
|
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
161 |
"Created: / 09-07-2011 / 13:35:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
162 |
! ! |
e5686290211f
per-package manager settings are now saved with preferences
vrany
parents:
2434
diff
changeset
|
163 |
|
2375 | 164 |
!stx_libbasic3 class methodsFor:'documentation'! |
165 |
||
166 |
extensionsVersion_CVS |
|
3925 | 167 |
^ '$Header$' |
3482 | 168 |
! ! |
169 |