--- a/extensions.st	Tue Jun 28 23:00:57 2011 +0200
+++ b/extensions.st	Tue Jun 28 23:00:59 2011 +0200
@@ -0,0 +1,79 @@
+"{ 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 $'
+! !
\ No newline at end of file