hg/stx-libtool: comparison Tools_

equal deleted inserted replaced

-:005d6c483bfa
+:00d7a229b2f0
+"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 2005 eXept Software AG
 All Rights Reserved
 This software is furnished under a license and may be used
 [class variables:]
 "
 ! !
+!CheckinInfoDialog class methodsFor:'constants'!
+reasonBugfix
+^ #reasonBugfix
+!
+reasonDocumentation
+^ #reasonDocumentation
+!
+reasonFeature
+^ #reasonFeature
+!
+reasonOther
+^ #reasonOther
+!
+reasonRefactoring
+^ #reasonRefactoring
+! !
 !CheckinInfoDialog class methodsFor:'help specs'!
 flyByHelpSpec
 "This resource specification was automatically generated
 by the UIHelpTool of ST/X."
 'Perform some consistency checks before checking in.
 Especially checks the correctness of the ProjectDefinition vs. the actual set of classes in the image'
 #checkinReason
 'Adds a keyword to the checkin info, to allow automatic generation of revision information from the log later'
+#checkinReasonDocumentation
+'Only documentation, comments etc. were added/changed.\Tells others, that there is no need to test/verify/review the changes'
+#checkinReasonBugfix
+'Some bug was fixed.\Please describe what was changed and\if possible, add a bug identifier (issue-ID) to the checkin info'
+#checkinReasonFeature
+'A new feature was added.\Please describe what was changed and\if possible, add a requirement identifier (issue-ID) to the checkin info'
+#checkinReasonRefactoring
+'The code was refactored/improved for better structure or maintainability'
+#checkinReasonOther
+'Some other change, which does not fit into one of the above.\Please describe in detail what you did in the checkin info'
 )
 ! !
 !CheckinInfoDialog class methodsFor:'interface specs'!
 name: windowSpec
 window:
 (WindowSpec
 label: 'Enter Log Message'
 name: 'Enter Log Message'
-min: (Point 10 10)
+min: (Point 538 387)
-bounds: (Rectangle 0 0 574 456)
+bounds: (Rectangle 0 0 579 506)
 )
 component:
 (SpecCollection
 collection: (
 (HorizontalPanelViewSpec
 comboList: logHistoryHeadLines
 useIndex: true
 )
 (TextEditorSpec
 name: 'TextEditor1'
-layout: (LayoutFrame 2 0.0 68 0 -2 1 -250 1)
+layout: (LayoutFrame 2 0.0 68 0 -2 1 -275 1)
 activeHelpKey: logMessage
 model: logMessageHolder
 hasHorizontalScrollBar: true
 hasVerticalScrollBar: true
 hasKeyboardFocusInitially: false
 )
 (LabelSpec
 name: 'Label4'
-layout: (LayoutFrame 0 0.0 -245 1 0 1.0 -223 1)
+layout: (LayoutFrame 0 0.0 -269 1 0 1.0 -247 1)
 translateLabel: true
 labelChannel: warningMessageHolder
 )
 (CheckBoxSpec
 label: 'Quick Checkin (Only Classes in ChangeSet)'
 name: 'CheckInChangedOnlyCheckbox'
-layout: (LayoutFrame 3 0 -220 1 -3 1 -198 1)
+layout: (LayoutFrame 3 0 -244 1 -3 1 -222 1)
 activeHelpKey: quickCheckin
 visibilityChannel: quickCheckInVisibleHolder
 enableChannel: quickCheckInEnabledHolder
 model: quickCheckInHolder
 translateLabel: true
 )
 (CheckBoxSpec
 label: 'Validate Package Consistency'
 name: 'CheckBox1'
-layout: (LayoutFrame 3 0 -193 1 -3 1 -171 1)
+layout: (LayoutFrame 3 0 -217 1 -3 1 -195 1)
 activeHelpKey: validateConsistency
 visibilityChannel: validateConsistencyVisibleHolder
 enableChannel: validateConsistencyEnabledHolder
 model: validateConsistencyHolder
 translateLabel: true
 )
 (CheckBoxSpec
 label: 'Mark as Stable'
 name: 'MarkStableCheckBox'
-layout: (LayoutFrame 3 0 -166 1 -3 1 -144 1)
+layout: (LayoutFrame 3 0 -190 1 -3 1 -168 1)
 activeHelpKey: markAsStable
 model: isStableHolder
 translateLabel: true
 )
 (LabelSpec
 label: 'Tag:'
 name: 'Label3'
-layout: (LayoutFrame -40 0.5 -165 1 0 0.5 -143 1)
+layout: (LayoutFrame -40 0.5 -189 1 0 0.5 -167 1)
 activeHelpKey: tag
 translateLabel: true
 adjust: right
 )
 (ComboBoxSpec
 name: 'ComboBox1'
-layout: (LayoutFrame 0 0.5 -166 1 -3 1 -144 1)
+layout: (LayoutFrame 0 0.5 -190 1 -3 1 -168 1)
 activeHelpKey: tag
 enableChannel: notMarkAsStableHolder
 model: tagHolder
 acceptOnReturn: true
 acceptOnTab: true
 comboList: recentTagsList
 )
 (LabelSpec
 label: 'Reason for Checkin:'
 name: 'Label6'
-layout: (AlignmentOrigin -126 0.5 -122 1 1 0.5)
+layout: (AlignmentOrigin -126 0.5 -146 1 1 0.5)
 activeHelpKey: checkinReason
 translateLabel: true
 resizeForLabel: true
 adjust: right
 )
 (RadioButtonSpec
 label: 'Bugfix'
 name: 'RadioButton1'
-layout: (LayoutFrame -123 0.5 -133 1 -126 1 -111 1)
+layout: (LayoutFrame -123 0.5 -157 1 -126 1 -135 1)
-activeHelpKey: checkinReason
+activeHelpKey: checkinReasonBugfix
 translateLabel: true
 model: checkinReasonHolder
 isTriggerOnDown: true
 select: 'reasonBugfix'
 )
 (RadioButtonSpec
 label: 'Feature / Enhancement'
 name: 'RadioButton2'
-layout: (LayoutFrame -123 0.5 -109 1 -126 1 -87 1)
+layout: (LayoutFrame -123 0.5 -133 1 -126 1 -111 1)
-activeHelpKey: checkinReason
+activeHelpKey: checkinReasonFeature
 translateLabel: true
 model: checkinReasonHolder
 isTriggerOnDown: true
 select: reasonFeature
 )
 (RadioButtonSpec
 label: 'Refactoring / Code Cleanup'
 name: 'RadioButton3'
-layout: (LayoutFrame -123 0.5 -85 1 -126 1 -63 1)
+layout: (LayoutFrame -123 0.5 -109 1 -126 1 -87 1)
-activeHelpKey: checkinReason
+activeHelpKey: checkinReasonRefactoring
 translateLabel: true
 model: checkinReasonHolder
 isTriggerOnDown: true
 select: reasonRefactoring
+)
+(RadioButtonSpec
+label: 'Documentation / Comment Only'
+name: 'RadioButton5'
+layout: (LayoutFrame -123 0.5 -85 1 -126 1 -63 1)
+activeHelpKey: checkinReasonDocumentation
+translateLabel: true
+model: checkinReasonHolder
+isTriggerOnDown: true
+select: reasonDocumentation
 )
 (RadioButtonSpec
 label: 'None of the Above'
 name: 'RadioButton4'
 layout: (LayoutFrame -123 0.5 -61 1 -126 1 -39 1)
-activeHelpKey: checkinReason
+activeHelpKey: checkinReasonOther
 translateLabel: true
 model: checkinReasonHolder
 isTriggerOnDown: true
 select: reasonOther
 )
 (ActionButtonSpec
 label: 'Cancel'
 name: 'Button2'
 translateLabel: true
 model: doCancel
-extent: (Point 274 22)
+extent: (Point 277 22)
 )
 (ActionButtonSpec
 label: 'OK'
 name: 'Button1'
 translateLabel: true
 model: doAccept
-extent: (Point 275 22)
+extent: (Point 277 22)
 )
 )
 )
 keepSpaceForOSXResizeHandleH: true
 "
 self getCheckinInfoFor:'hello' initialAnswer:'bla'
 "
 "Created: / 12-03-2012 / 12:36:26 / cg"
-!
-reasonBugfix
-^ #reasonBugfix
-!
-reasonFeature
-^ #reasonFeature
-!
-reasonOther
-^ #reasonOther
-!
-reasonRefactoring
-^ #reasonRefactoring
 ! !
 !CheckinInfoDialog methodsFor:'accessing'!
 allowEmptyLogMessage
 "Created: / 06-07-2010 / 11:23:31 / cg"
 !
 checkinReason
-"returns one of: #(reasonBugfix reasonFeature reasonRefactoring reasonOther)"
+"returns one of: #(reasonBugfix reasonFeature reasonRefactoring reasonDocumentation reasonOther)"
 ^ self checkinReasonHolder value
 !
 checkinReason:aSymbolicReason
-self assert:( #(reasonBugfix reasonFeature reasonRefactoring reasonOther) includes:aSymbolicReason).
+self assert:( #(reasonBugfix reasonFeature reasonRefactoring reasonDocumentation reasonOther) includes:aSymbolicReason).
 self checkinReasonHolder value:aSymbolicReason
 !
 description
 ^ self descriptionHolder value

changeset 15853	00d7a229b2f0
parent 15849	9e9179e9f829
child 15854	2a3fc1ba9489
child 15873	45119443a715