--- 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 $'
! !