--- a/Tools__CheckinInfoDialog.st	Mon Mar 12 12:13:34 2012 +0100
+++ b/Tools__CheckinInfoDialog.st	Mon Mar 12 12:52:16 2012 +0100
@@ -16,8 +16,8 @@
 SimpleDialog subclass:#CheckinInfoDialog
 	instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder
 		quickCheckInHolder quickCheckInVisibleHolder allowEmptyLogMessage
-		warningMessageHolder'
-	classVariableNames:'LastSourceLogMessage'
+		warningMessageHolder logHistory logHistoryHeadLineSelectionHolder'
+	classVariableNames:''
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
 !
@@ -84,6 +84,12 @@
         component: 
        (SpecCollection
           collection: (
+           (ComboListSpec
+              name: 'ComboList1'
+              layout: (LayoutFrame 180 0.0 38 0 0 1.0 58 0)
+              comboList: logHistoryHeadLines
+              useIndex: true
+            )
            (HorizontalPanelViewSpec
               name: 'HorizontalPanel2'
               layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
@@ -113,7 +119,7 @@
             )
            (TextEditorSpec
               name: 'TextEditor1'
-              layout: (LayoutFrame 2 0.0 38 0 -2 1 -125 1)
+              layout: (LayoutFrame 2 0.0 68 0 -2 1 -125 1)
               model: logMessageHolder
               hasHorizontalScrollBar: true
               hasVerticalScrollBar: true
@@ -186,6 +192,13 @@
                
               )
             )
+           (LabelSpec
+              label: 'Previous Log Messages:'
+              name: 'Label5'
+              layout: (LayoutFrame 0 0 37 0 180 0 59 0)
+              translateLabel: true
+              adjust: right
+            )
            )
          
         )
@@ -195,14 +208,33 @@
 !CheckinInfoDialog class methodsFor:'opening'!
 
 getCheckinInfoFor:aString initialAnswer:initialAnswer
-    ^ self getCheckinInfoFor:aString initialAnswer:initialAnswer withQuickOption:false
+    ^ self 
+        getCheckinInfoFor:aString 
+        initialAnswer:initialAnswer 
+        withQuickOption:false
 
     "
       self getCheckinInfoFor:'hello' initialAnswer:'bla'
     "
+
+    "Modified (format): / 12-03-2012 / 12:38:48 / cg"
 !
 
 getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withQuickOption:withQuickOption
+    ^ self
+        getCheckinInfoFor:aClassNameOrPackageNameString 
+        initialAnswer:initialAnswer 
+        withQuickOption:withQuickOption
+        logHistory:#()
+
+    "
+     self getCheckinInfoFor:'hello' initialAnswer:'bla'
+    "
+
+    "Modified: / 12-03-2012 / 12:39:00 / cg"
+!
+
+getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withQuickOption:withQuickOption logHistory:logHistory
     |dialog warnMessage|
 
     warnMessage := nil.
@@ -237,6 +269,7 @@
     "
 
     "Modified: / 06-07-2010 / 11:40:00 / cg"
+    "Created: / 12-03-2012 / 12:36:26 / cg"
 ! !
 
 !CheckinInfoDialog methodsFor:'accessing'!
@@ -323,11 +356,36 @@
     "Modified: / 16-01-2007 / 16:00:26 / cg"
 !
 
+logHistoryHeadLineSelectionHolder
+    logHistoryHeadLineSelectionHolder isNil ifTrue:[
+        logHistoryHeadLineSelectionHolder := nil asValue.
+        logHistoryHeadLineSelectionHolder 
+            onChangeEvaluate:
+                [
+                    self logMessageHolder value:(logHistory at:logHistoryHeadLineSelectionHolder value)
+                ].
+    ].
+    ^ logHistoryHeadLineSelectionHolder
+
+    "Created: / 12-03-2012 / 12:40:36 / cg"
+!
+
+logHistoryHeadLines
+    ^ (logHistory ? #())
+        collect:[:msg |
+            msg withoutLeadingSeparators asCollectionOfLines first , '...'
+        ]
+
+    "Created: / 12-03-2012 / 12:39:35 / cg"
+!
+
 logMessageHolder
     logMessageHolder isNil ifTrue:[
-        logMessageHolder := LastSourceLogMessage asValue.
+        logMessageHolder := '' asValue.
     ].
     ^ logMessageHolder.
+
+    "Modified: / 12-03-2012 / 12:34:13 / cg"
 !
 
 quickCheckInHolder
@@ -363,5 +421,5 @@
 !CheckinInfoDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.13 2011-06-29 14:11:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.14 2012-03-12 11:52:16 cg Exp $'
 ! !