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