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

!UserPreferences methodsFor:'accessing - history manager'!

historyManagerModificationLimit

    ^self 
        at: #'history-manager.modification-limit'
        ifAbsentPut: 3600 "/one hour"

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

!UserPreferences methodsFor:'accessing - history manager'!

historyManagerModificationLimit: sec

    ^self 
        at: #'history-manager.modification-limit'
        put: sec

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

!UserPreferences methodsFor:'accessing - history manager'!

historyManagerSignature

    ^self historyManagerSignatures
        at: (Array with: OperatingSystem getHostName with: OperatingSystem getLoginName)
        ifAbsent:
            [HistoryManager askForSignature]

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

!UserPreferences methodsFor:'accessing - history manager'!

historyManagerSignature: aString

    ^self historyManagerSignatures
        at: (Array with: OperatingSystem getHostName with: OperatingSystem getLoginName)
        put: aString

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

!UserPreferences methodsFor:'accessing - history manager'!

historyManagerSignatures

    ^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>"
! !

!UserPreferences methodsFor:'accessing - history manager'!

historyManagerSignatures: aDictionary

    ^self 
        at: #'history-manager.signatures'
        ifAbsentPut: aDictionary

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

!stx_libbasic3 class methodsFor:'documentation'!

extensionsVersion_CVS
    ^ '$Header: /cvs/stx/stx/libbasic3/extensions.st,v 1.2 2011-06-28 21:00:59 vrany Exp $'
! !