14 "{ NameSpace: Tools }" |
14 "{ NameSpace: Tools }" |
15 |
15 |
16 SimpleDialog subclass:#CheckinInfoDialog |
16 SimpleDialog subclass:#CheckinInfoDialog |
17 instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder |
17 instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder |
18 quickCheckInHolder quickCheckInVisibleHolder allowEmptyLogMessage |
18 quickCheckInHolder quickCheckInVisibleHolder allowEmptyLogMessage |
19 warningMessageHolder logHistory logHistoryHeadLineSelectionHolder' |
19 warningMessageHolder logHistory logHistoryHeadLineSelectionHolder |
|
20 validateConsistencyHolder validateConsistencyVisibleHolder' |
20 classVariableNames:'' |
21 classVariableNames:'' |
21 poolDictionaries:'' |
22 poolDictionaries:'' |
22 category:'System-SourceCodeManagement' |
23 category:'System-SourceCodeManagement' |
23 ! |
24 ! |
24 |
25 |
51 [instance variables:] |
52 [instance variables:] |
52 |
53 |
53 [class variables:] |
54 [class variables:] |
54 " |
55 " |
55 ! ! |
56 ! ! |
|
57 |
|
58 |
|
59 !CheckinInfoDialog class methodsFor:'help specs'! |
|
60 |
|
61 flyByHelpSpec |
|
62 "This resource specification was automatically generated |
|
63 by the UIHelpTool of ST/X." |
|
64 |
|
65 "Do not manually edit this!! If it is corrupted, |
|
66 the UIHelpTool may not be able to read the specification." |
|
67 |
|
68 " |
|
69 UIHelpTool openOnClass:Tools::CheckinInfoDialog |
|
70 " |
|
71 |
|
72 <resource: #help> |
|
73 |
|
74 ^ super flyByHelpSpec addPairsFrom:#( |
|
75 |
|
76 #logMessage |
|
77 'This message is added as a check-in log message. |
|
78 It can later be retrieved via the browser''s revision info menu function' |
|
79 |
|
80 #markAsStable |
|
81 'Mark this as a stable version (i.e. give it a stable tag)' |
|
82 |
|
83 #quickCheckin |
|
84 'Only checkin classes which have been vreated or changed during this session' |
|
85 |
|
86 #tag |
|
87 'Mark this version with a tag' |
|
88 |
|
89 #validateConsistency |
|
90 'Perform some consistency checks before checking in. |
|
91 Especially checks the correctness of the ProjectDefinition vs. the actual set of classes in the image' |
|
92 |
|
93 ) |
|
94 ! ! |
|
95 |
56 |
96 |
57 !CheckinInfoDialog class methodsFor:'interface specs'! |
97 !CheckinInfoDialog class methodsFor:'interface specs'! |
58 |
98 |
59 windowSpec |
99 windowSpec |
60 "This resource specification was automatically generated |
100 "This resource specification was automatically generated |
82 bounds: (Rectangle 0 0 563 327) |
122 bounds: (Rectangle 0 0 563 327) |
83 ) |
123 ) |
84 component: |
124 component: |
85 (SpecCollection |
125 (SpecCollection |
86 collection: ( |
126 collection: ( |
87 (ComboListSpec |
|
88 name: 'ComboList1' |
|
89 layout: (LayoutFrame 180 0.0 38 0 0 1.0 58 0) |
|
90 model: logHistoryHeadLineSelectionHolder |
|
91 comboList: logHistoryHeadLines |
|
92 useIndex: true |
|
93 ) |
|
94 (HorizontalPanelViewSpec |
127 (HorizontalPanelViewSpec |
95 name: 'HorizontalPanel2' |
128 name: 'HorizontalPanel2' |
96 layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0) |
129 layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0) |
97 horizontalLayout: left |
130 horizontalLayout: left |
98 verticalLayout: center |
131 verticalLayout: center |
116 ) |
149 ) |
117 ) |
150 ) |
118 |
151 |
119 ) |
152 ) |
120 ) |
153 ) |
|
154 (LabelSpec |
|
155 label: 'Previous Log Messages:' |
|
156 name: 'Label5' |
|
157 layout: (LayoutFrame 0 0 37 0 180 0 59 0) |
|
158 translateLabel: true |
|
159 adjust: right |
|
160 ) |
|
161 (ComboListSpec |
|
162 name: 'ComboList1' |
|
163 layout: (LayoutFrame 180 0.0 38 0 0 1.0 58 0) |
|
164 model: logHistoryHeadLineSelectionHolder |
|
165 comboList: logHistoryHeadLines |
|
166 useIndex: true |
|
167 ) |
121 (TextEditorSpec |
168 (TextEditorSpec |
122 name: 'TextEditor1' |
169 name: 'TextEditor1' |
123 layout: (LayoutFrame 2 0.0 68 0 -2 1 -125 1) |
170 layout: (LayoutFrame 2 0.0 68 0 -2 1 -152 1) |
|
171 activeHelpKey: logMessage |
124 model: logMessageHolder |
172 model: logMessageHolder |
125 hasHorizontalScrollBar: true |
173 hasHorizontalScrollBar: true |
126 hasVerticalScrollBar: true |
174 hasVerticalScrollBar: true |
127 hasKeyboardFocusInitially: false |
175 hasKeyboardFocusInitially: false |
128 ) |
176 ) |
129 (LabelSpec |
177 (LabelSpec |
130 name: 'Label4' |
178 name: 'Label4' |
131 layout: (LayoutFrame 0 0.0 -119 1 0 1.0 -97 1) |
179 layout: (LayoutFrame 0 0.0 -147 1 0 1.0 -125 1) |
132 translateLabel: true |
180 translateLabel: true |
133 labelChannel: warningMessageHolder |
181 labelChannel: warningMessageHolder |
|
182 ) |
|
183 (CheckBoxSpec |
|
184 label: 'Validate Package Consistency' |
|
185 name: 'CheckBox1' |
|
186 layout: (LayoutFrame 3 0 -122 1 -3 1 -100 1) |
|
187 activeHelpKey: validateConsistency |
|
188 visibilityChannel: validateConsistencyVisibleHolder |
|
189 model: validateConsistencyHolder |
|
190 translateLabel: true |
134 ) |
191 ) |
135 (CheckBoxSpec |
192 (CheckBoxSpec |
136 label: 'Quick Checkin (Only Classes in ChangeSet)' |
193 label: 'Quick Checkin (Only Classes in ChangeSet)' |
137 name: 'CheckInChangedOnlyCheckbox' |
194 name: 'CheckInChangedOnlyCheckbox' |
138 layout: (LayoutFrame 3 0 -95 1 -3 1 -73 1) |
195 layout: (LayoutFrame 3 0 -95 1 -3 1 -73 1) |
|
196 activeHelpKey: quickCheckin |
139 visibilityChannel: quickCheckInVisibleHolder |
197 visibilityChannel: quickCheckInVisibleHolder |
140 model: quickCheckInHolder |
198 model: quickCheckInHolder |
141 translateLabel: true |
199 translateLabel: true |
142 ) |
200 ) |
143 (CheckBoxSpec |
201 (CheckBoxSpec |
144 label: 'Mark as Stable' |
202 label: 'Mark as Stable' |
145 name: 'MarkStableCheckBox' |
203 name: 'MarkStableCheckBox' |
146 layout: (LayoutFrame 3 0 -68 1 -3 1 -46 1) |
204 layout: (LayoutFrame 3 0 -68 1 -3 1 -46 1) |
|
205 activeHelpKey: markAsStable |
147 model: isStableHolder |
206 model: isStableHolder |
148 translateLabel: true |
207 translateLabel: true |
149 ) |
208 ) |
150 (LabelSpec |
209 (LabelSpec |
151 label: 'Tag:' |
210 label: 'Tag:' |
152 name: 'Label3' |
211 name: 'Label3' |
153 layout: (LayoutFrame -40 0.5 -67 1 0 0.5 -45 1) |
212 layout: (LayoutFrame -40 0.5 -67 1 0 0.5 -45 1) |
|
213 activeHelpKey: tag |
154 translateLabel: true |
214 translateLabel: true |
155 adjust: right |
215 adjust: right |
156 ) |
216 ) |
157 (InputFieldSpec |
217 (InputFieldSpec |
158 name: 'TagEntryField' |
218 name: 'TagEntryField' |
234 |
289 |
235 "Modified: / 12-03-2012 / 12:39:00 / cg" |
290 "Modified: / 12-03-2012 / 12:39:00 / cg" |
236 ! |
291 ! |
237 |
292 |
238 getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withQuickOption:withQuickOption logHistory:logHistoryArg |
293 getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withQuickOption:withQuickOption logHistory:logHistoryArg |
|
294 ^ self |
|
295 getCheckinInfoFor:aClassNameOrPackageNameString |
|
296 initialAnswer:initialAnswer |
|
297 withQuickOption:withQuickOption |
|
298 logHistory:logHistoryArg |
|
299 withValidateConsistencyOption:false |
|
300 |
|
301 " |
|
302 self getCheckinInfoFor:'hello' initialAnswer:'bla' |
|
303 self getCheckinInfoFor:'hello' initialAnswer:'bla' withQuickOption:true |
|
304 self getCheckinInfoFor:'hello' initialAnswer:'bla' withQuickOption:true logHistory:nil withConsistencyCheckOption:true |
|
305 " |
|
306 |
|
307 "Created: / 12-03-2012 / 12:36:26 / cg" |
|
308 ! |
|
309 |
|
310 getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withQuickOption:withQuickOption logHistory:logHistoryArg withValidateConsistencyOption:withValidateConsistencyOption |
239 |dialog warnMessage| |
311 |dialog warnMessage| |
240 |
312 |
241 warnMessage := nil. |
313 warnMessage := nil. |
242 |
314 |
243 [ |
315 [ |
244 dialog := self new. |
316 dialog := self new. |
245 dialog |
317 dialog |
246 description:aClassNameOrPackageNameString; |
318 description:aClassNameOrPackageNameString; |
247 logMessage:initialAnswer; |
319 logMessage:initialAnswer; |
248 withQuickOption:withQuickOption; |
320 withQuickOption:withQuickOption; |
|
321 withValidateConsistencyOption:withValidateConsistencyOption; |
249 logHistory:logHistoryArg. |
322 logHistory:logHistoryArg. |
250 |
323 |
251 dialog warningMessageHolder value:warnMessage. |
324 dialog warningMessageHolder value:warnMessage. |
252 dialog open. |
325 dialog open. |
253 dialog accepted ifFalse:[ ^ nil ]. |
326 dialog accepted ifFalse:[ ^ nil ]. |
337 ^ self tag notEmptyOrNil |
411 ^ self tag notEmptyOrNil |
338 |
412 |
339 "Created: / 12-09-2006 / 13:06:49 / cg" |
413 "Created: / 12-09-2006 / 13:06:49 / cg" |
340 ! |
414 ! |
341 |
415 |
|
416 validateConsistency |
|
417 ^ self validateConsistencyHolder value |
|
418 ! |
|
419 |
342 withQuickOption:aBoolean |
420 withQuickOption:aBoolean |
343 ^ self quickCheckInVisibleHolder value:aBoolean |
421 ^ self quickCheckInVisibleHolder value:aBoolean |
344 ! ! |
422 ! |
|
423 |
|
424 withValidateConsistencyOption:aBoolean |
|
425 ^ self validateConsistencyVisibleHolder value:aBoolean |
|
426 ! ! |
|
427 |
345 |
428 |
346 !CheckinInfoDialog methodsFor:'aspects'! |
429 !CheckinInfoDialog methodsFor:'aspects'! |
347 |
430 |
348 descriptionHolder |
431 descriptionHolder |
349 descriptionHolder isNil ifTrue:[ |
432 descriptionHolder isNil ifTrue:[ |
412 tagHolder := '' asValue. |
495 tagHolder := '' asValue. |
413 ]. |
496 ]. |
414 ^ tagHolder |
497 ^ tagHolder |
415 ! |
498 ! |
416 |
499 |
|
500 validateConsistencyHolder |
|
501 validateConsistencyHolder isNil ifTrue:[ |
|
502 validateConsistencyHolder := true asValue. |
|
503 ]. |
|
504 ^ validateConsistencyHolder |
|
505 ! |
|
506 |
|
507 validateConsistencyVisibleHolder |
|
508 validateConsistencyVisibleHolder isNil ifTrue:[ |
|
509 validateConsistencyVisibleHolder := false asValue. |
|
510 ]. |
|
511 ^ validateConsistencyVisibleHolder |
|
512 ! |
|
513 |
417 warningMessageHolder |
514 warningMessageHolder |
418 warningMessageHolder isNil ifTrue:[ |
515 warningMessageHolder isNil ifTrue:[ |
419 warningMessageHolder := nil asValue. |
516 warningMessageHolder := nil asValue. |
420 ]. |
517 ]. |
421 ^ warningMessageHolder. |
518 ^ warningMessageHolder. |
422 |
519 |
423 "Created: / 06-07-2010 / 11:30:29 / cg" |
520 "Created: / 06-07-2010 / 11:30:29 / cg" |
424 ! ! |
521 ! ! |
425 |
522 |
|
523 |
426 !CheckinInfoDialog class methodsFor:'documentation'! |
524 !CheckinInfoDialog class methodsFor:'documentation'! |
427 |
525 |
428 version |
526 version |
429 ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.15 2012-03-12 12:13:08 cg Exp $' |
527 ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.17 2013-03-28 00:14:16 cg Exp $' |
430 ! |
528 ! |
431 |
529 |
432 version_CVS |
530 version_CVS |
433 ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.15 2012-03-12 12:13:08 cg Exp $' |
531 ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.17 2013-03-28 00:14:16 cg Exp $' |
434 ! |
532 ! |
435 |
533 |
436 version_HG |
534 version_HG |
437 |
535 |
438 ^ '$Changeset: <not expanded> $' |
536 ^ '$Changeset: <not expanded> $' |