# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1156453996 -7200
# Node ID 048fb7930a2844e9ba4bbcff0142a0c45c918333
# Parent  6d2a2365dde8380d55e549b4a1ed9cc5318c08a1
*** empty log message ***

diff -r 6d2a2365dde8 -r 048fb7930a28 Tools__CheckinInfoDialog.st
--- a/Tools__CheckinInfoDialog.st	Thu Aug 24 23:13:13 2006 +0200
+++ b/Tools__CheckinInfoDialog.st	Thu Aug 24 23:13:16 2006 +0200
@@ -15,7 +15,8 @@
 "{ NameSpace: Tools }"
 
 SimpleDialog subclass:#CheckinInfoDialog
-	instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder'
+	instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder
+		tagItHolder quickCheckInHolder quickCheckInVisibleHolder'
 	classVariableNames:'LastSourceLogMessage'
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -63,9 +64,9 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:SourceCodeManagerUtilities::CheckinInfoDialog andSelector:#windowSpec
-     SourceCodeManagerUtilities::CheckinInfoDialog new openInterface:#windowSpec
-     SourceCodeManagerUtilities::CheckinInfoDialog open
+     UIPainter new openOnClass:Tools::CheckinInfoDialog andSelector:#windowSpec
+     Tools::CheckinInfoDialog new openInterface:#windowSpec
+     Tools::CheckinInfoDialog open
     "
 
     <resource: #canvas>
@@ -78,7 +79,7 @@
           label: 'Enter Log Message'
           name: 'Enter Log Message'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 563 290)
+          bounds: (Rectangle 0 0 563 327)
         )
         component: 
        (SpecCollection
@@ -88,13 +89,13 @@
               layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
               horizontalLayout: left
               verticalLayout: center
-              horizontalSpace: 3
+              horizontalSpace: 0
               verticalSpace: 3
               component: 
              (SpecCollection
                 collection: (
                  (LabelSpec
-                    label: 'Enter log message for: '
+                    label: 'Enter checkIn log-message for: '
                     name: 'Label1'
                     translateLabel: true
                     resizeForLabel: true
@@ -112,25 +113,57 @@
             )
            (TextEditorSpec
               name: 'TextEditor1'
-              layout: (LayoutFrame 2 0.0 38 0 -2 1 -76 1)
+              layout: (LayoutFrame 2 0.0 38 0 -2 1 -119 1)
               model: logMessageHolder
               hasHorizontalScrollBar: true
               hasVerticalScrollBar: true
             )
            (CheckBoxSpec
-              label: 'Mark as stable'
-              name: 'CheckBox1'
-              layout: (AlignmentOrigin 3 0 -65 1 0 0)
+              label: 'Quick Checkin (Only Classes in ChangeSet)'
+              name: 'CheckInChangedOnlyCheckbox'
+              layout: (LayoutFrame 3 0 -114 1 -3 1 -92 1)
+              visibilityChannel: quickCheckInVisibleHolder
+              model: quickCheckInHolder
+              translateLabel: true
+            )
+           (CheckBoxSpec
+              label: 'Mark as Stable'
+              name: 'MarkStableCheckBox'
+              layout: (LayoutFrame 3 0 -87 1 -3 1 -65 1)
               model: isStableHolder
               translateLabel: true
             )
+           (CheckBoxSpec
+              label: 'Tag It'
+              name: 'TagItCheckBox'
+              layout: (LayoutFrame 3 0 -60 1 0 0.5 -38 1)
+              model: tagItHolder
+              translateLabel: true
+            )
+           (LabelSpec
+              label: 'Tag:'
+              name: 'TagLabel'
+              layout: (LayoutFrame 1 0.25 265 0 0 0.5 287 0)
+              translateLabel: true
+              adjust: right
+            )
+           (InputFieldSpec
+              name: 'TagEntryField'
+              layout: (LayoutFrame 0 0.5 265 0 -3 1 287 0)
+              enableChannel: tagItInHolder
+              model: tagHolder
+              acceptOnReturn: true
+              acceptOnTab: true
+              acceptOnLostFocus: true
+              acceptOnPointerLeave: false
+            )
            (HorizontalPanelViewSpec
               name: 'HorizontalPanel1'
-              layout: (LayoutFrame 0 0.0 -42 1 0 1.0 0 1.0)
+              layout: (LayoutFrame 0 0.0 -40 1 0 1.0 0 1.0)
               horizontalLayout: fitSpace
               verticalLayout: center
               horizontalSpace: 3
-              verticalSpace: 3
+              verticalSpace: 2
               component: 
              (SpecCollection
                 collection: (
@@ -161,10 +194,21 @@
 !CheckinInfoDialog class methodsFor:'opening'!
 
 getCheckinInfoFor:aString initialAnswer:initialAnswer
+    ^ self getCheckinInfoFor:aString initialAnswer:initialAnswer withQuickOption:false
+
+    "
+      self getCheckinInfoFor:'hello' initialAnswer:'bla'
+    "
+!
+
+getCheckinInfoFor:aString initialAnswer:initialAnswer withQuickOption:withQuickOption
     |dialog|
 
     dialog := self new.
-    dialog description:aString; logMessage:initialAnswer.
+    dialog 
+        description:aString; 
+        logMessage:initialAnswer;
+        withQuickOption:withQuickOption.
 
     dialog open.
     dialog accepted ifFalse:[
@@ -203,13 +247,39 @@
 
 logMessage:aString
     self logMessageHolder value:aString
+!
+
+quickCheckIn
+    ^ self quickCheckInHolder value
+!
+
+quickCheckIn:aBoolean
+    self quickCheckInHolder value:aBoolean
+!
+
+tag
+    ^ self tagHolder value
+!
+
+tag:aString
+    self tagHolder value:aString
+!
+
+tagIt
+    ^ self tagItHolder value
+!
+
+tagIt:aBoolean
+    self tagItHolder value:aBoolean
+!
+
+withQuickOption:aBoolean
+    ^ self quickCheckInVisibleHolder value:aBoolean
 ! !
 
 !CheckinInfoDialog methodsFor:'aspects'!
 
 descriptionHolder
-    "return/create the 'descriptionHolder' value holder (automatically generated)"
-
     descriptionHolder isNil ifTrue:[
         descriptionHolder := ValueHolder new.
     ].
@@ -228,10 +298,38 @@
         logMessageHolder := LastSourceLogMessage asValue.
     ].
     ^ logMessageHolder.
+!
+
+quickCheckInHolder
+    quickCheckInHolder isNil ifTrue:[
+        quickCheckInHolder := true asValue.
+    ].
+    ^ quickCheckInHolder
+!
+
+quickCheckInVisibleHolder
+    quickCheckInVisibleHolder isNil ifTrue:[
+        quickCheckInVisibleHolder := false asValue.
+    ].
+    ^ quickCheckInVisibleHolder
+!
+
+tagHolder
+    tagHolder isNil ifTrue:[
+        tagHolder := '' asValue.
+    ].
+    ^ tagHolder
+!
+
+tagItHolder
+    tagItHolder isNil ifTrue:[
+        tagItHolder := false asValue.
+    ].
+    ^ tagItHolder
 ! !
 
 !CheckinInfoDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.1 2006-06-22 10:52:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.2 2006-08-24 21:13:16 cg Exp $'
 ! !