"{ Package: 'stx:libbasic3' }"!

!CompiledCode methodsFor:'debugging'!

setTracelog

    "Arrange for a trace logging - enter/leave of the method will be logged using

     current Logger"

    MessageTracer tracelogMethod:self

    "Created: / 15-03-2013 / 11:10:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 25-01-2018 / 19:10:31 / mawalch"

! !

!ConfigurableFeatures class methodsFor:'queries-features'!

hasProjectChecker

    ^true

    "

     ConfigurableFeatures includesFeature:#ProjectChecker

    "

    "Created: / 03-04-2012 / 17:58:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ExecutableFunction methodsFor:'queries'!

isMocked

    "Return true, if the method has been mocked (by means of MessageTracer>>mockMethod:do:"

    ^ false

    "Created: / 29-07-2014 / 09:48:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-prefs-changes & history'!

historyManagerAllowEditOfHistory

    "useful if you have 'beginner students', to prevent them from changing the history"

    ^self 

        at: #'history-manager.allow-edit-of-history'

        ifAbsent:false

    "Modified (Format): / 30-06-2011 / 17:07:33 / cg"

    "Modified (Comment): / 30-06-2011 / 17:09:24 / cg"

! !

!UserPreferences methodsFor:'accessing-prefs-changes & history'!

historyManagerModificationLimit

    "the time-delta within which the history manager does not treat a change as a new one"

    ^self 

        at: #'history-manager.modification-limit'

        ifAbsent: 3600 "/one hour"

    "Created: / 04-10-2008 / 11:55:56 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified (Comment): / 30-06-2011 / 17:25:09 / cg"

! !

!UserPreferences methodsFor:'accessing-prefs-changes & history'!

historyManagerModificationLimit: sec

    "the time-delta within which the history manager does not treat a change as a new one"

    ^self 

        at: #'history-manager.modification-limit'

        put: sec

    "Created: / 04-10-2008 / 11:56:23 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified (Comment): / 30-06-2011 / 17:25:13 / cg"

! !

!UserPreferences methodsFor:'accessing-prefs-changes & history'!

historyManagerSignature

    "the signature added by the history manager"

    ^ (self historyManagerSignatures

            at:{OperatingSystem getHostName. OperatingSystem getLoginName}

            ifAbsent:nil) ? OperatingSystem getFullUserName.

    "Created: / 04-10-2008 / 12:06:58 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 08-07-2011 / 10:24:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 04-08-2011 / 17:24:21 / cg"

    "Modified: / 16-05-2018 / 14:21:34 / Stefan Vogel"

! !

!UserPreferences methodsFor:'accessing-prefs-changes & history'!

historyManagerSignature: aString

    "the signature added by the history manager"

    aString isEmptyOrNil ifTrue:[

        self historyManagerSignatures 

                removeKey:{OperatingSystem getHostName. OperatingSystem getLoginName}

                ifAbsent:[].

        ^ aString.

    ].

    ^ self historyManagerSignatures

        at:{OperatingSystem getHostName. OperatingSystem getLoginName}

        put:aString

    "Created: / 04-10-2008 / 11:54:53 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-05-2018 / 14:18:41 / Stefan Vogel"

! !

!UserPreferences methodsFor:'accessing-prefs-changes & history'!

historyManagerSignatures

    "the signatures added by the history manager"

    ^self 

        at: #'history-manager.signatures'

        ifAbsentPut: [Dictionary new]

    "

     UserPreferences current historyManagerSignatures

    "

    "Created: / 04-10-2008 / 11:52:40 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 22-08-2009 / 11:00:12 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified (Comment): / 30-06-2011 / 17:27:14 / cg"

! !

!UserPreferences methodsFor:'accessing-prefs-changes & history'!

historyManagerSignatures: aDictionary

    "the signatures added by the history manager"

    self 

        at: #'history-manager.signatures'

        put: aDictionary

    "Created: / 04-10-2008 / 11:52:58 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified (Comment): / 30-06-2011 / 17:26:48 / cg"

! !

!UserPreferences methodsFor:'accessing-scm'!

managerPerMatchingModuleDefinitions

    | defs |

    defs := (self at: #'managerPerMatchingModuleDefinitionsKey' ifAbsent:[#()]).

    ^(defs collect:[:e|e decodeAsLiteralArray]) asOrderedCollection

    "

        UserPreferences current managerPerMatchingModuleDefinitions

        UserPreferences current managerPerMatchingModuleDefinitions: #().

    "

    "Created: / 09-07-2011 / 13:33:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-scm'!

managerPerMatchingModuleDefinitions: defs

    self at: #'managerPerMatchingModuleDefinitionsKey' 

        put: (defs collect:[:e| e literalArrayEncoding]) asArray.

    AbstractSourceCodeManager managerPerMatchingModuleDefinitions == defs ifFalse:[

        AbstractSourceCodeManager managerPerMatchingModuleDefinitions: defs.

    ]

    "Created: / 09-07-2011 / 13:35:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!stx_libbasic3 class methodsFor:'documentation'!

extensionsVersion_CVS

    ^ '$Header$'

! !