author | Claus Gittinger <cg@exept.de> |
Tue, 16 Jan 2018 22:26:58 +0100 | |
changeset 1183 | 8af078552bae |
parent 1108 | 7cfaa82d275f |
permissions | -rw-r--r-- |
660 | 1 |
" |
2 |
Copyright (c) 2007-2010 Jan Vrany |
|
3 |
Copyright (c) 2009-2010 eXept Software AG |
|
4 |
||
5 |
Permission is hereby granted, free of charge, to any person |
|
6 |
obtaining a copy of this software and associated documentation |
|
7 |
files (the 'Software'), to deal in the Software without |
|
8 |
restriction, including without limitation the rights to use, |
|
9 |
copy, modify, merge, publish, distribute, sublicense, and/or sell |
|
10 |
copies of the Software, and to permit persons to whom the |
|
11 |
Software is furnished to do so, subject to the following |
|
12 |
conditions: |
|
13 |
||
14 |
The above copyright notice and this permission notice shall be |
|
15 |
included in all copies or substantial portions of the Software. |
|
16 |
||
17 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, |
|
18 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES |
|
19 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
|
20 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT |
|
21 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, |
|
22 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
|
23 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR |
|
24 |
OTHER DEALINGS IN THE SOFTWARE. |
|
25 |
" |
|
26 |
"{ Package: 'stx:libsvn' }" |
|
27 |
||
28 |
"{ NameSpace: SVN }" |
|
29 |
||
30 |
Dialog subclass:#BranchAndRevisionSelectionDialog |
|
31 |
instanceVariableNames:'repositoryHolder pathHolder branchHolder revisionHolder |
|
32 |
revisionNumberHolder revisionDateHolder revisionKindHolder' |
|
33 |
classVariableNames:'' |
|
34 |
poolDictionaries:'' |
|
35 |
category:'SVN-UI-Dialogs' |
|
36 |
! |
|
37 |
||
38 |
!BranchAndRevisionSelectionDialog class methodsFor:'documentation'! |
|
39 |
||
40 |
copyright |
|
41 |
" |
|
42 |
Copyright (c) 2007-2010 Jan Vrany |
|
43 |
Copyright (c) 2009-2010 eXept Software AG |
|
44 |
||
45 |
Permission is hereby granted, free of charge, to any person |
|
46 |
obtaining a copy of this software and associated documentation |
|
47 |
files (the 'Software'), to deal in the Software without |
|
48 |
restriction, including without limitation the rights to use, |
|
49 |
copy, modify, merge, publish, distribute, sublicense, and/or sell |
|
50 |
copies of the Software, and to permit persons to whom the |
|
51 |
Software is furnished to do so, subject to the following |
|
52 |
conditions: |
|
53 |
||
54 |
The above copyright notice and this permission notice shall be |
|
55 |
included in all copies or substantial portions of the Software. |
|
56 |
||
57 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, |
|
58 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES |
|
59 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
|
60 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT |
|
61 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, |
|
62 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
|
63 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR |
|
64 |
OTHER DEALINGS IN THE SOFTWARE. |
|
65 |
||
66 |
" |
|
67 |
! |
|
68 |
||
69 |
example1 |
|
70 |
||
71 |
||
72 |
||
73 |
(SVN::BranchAndRevisionSelectionDialog new) |
|
74 |
repository: self svnRepository; |
|
75 |
onCancel:[:dialog| self]; |
|
76 |
onAccept:[:dialog| |
|
77 |
Transcript |
|
78 |
showCR:'You have selected:'; |
|
79 |
show: ' Branch: '; show: dialog branch printString; cr; |
|
80 |
show: ' Rev: '; show: dialog revision printString]; |
|
81 |
open |
|
82 |
! ! |
|
83 |
||
84 |
!BranchAndRevisionSelectionDialog class methodsFor:'interface specs'! |
|
85 |
||
86 |
contentSpec |
|
87 |
"This resource specification was automatically generated |
|
88 |
by the UIPainter of ST/X." |
|
89 |
||
90 |
"Do not manually edit this!! If it is corrupted, |
|
91 |
the UIPainter may not be able to read the specification." |
|
92 |
||
93 |
" |
|
94 |
UIPainter new openOnClass:SVN::BranchAndRevisionSelectionDialog andSelector:#contentSpec |
|
95 |
SVN::BranchAndRevisionSelectionDialog new openInterface:#contentSpec |
|
96 |
" |
|
97 |
||
98 |
<resource: #canvas> |
|
99 |
||
100 |
^ |
|
101 |
#(FullSpec |
|
102 |
name: contentSpec |
|
103 |
window: |
|
104 |
(WindowSpec |
|
105 |
label: 'Select branch & revision' |
|
106 |
name: 'Select branch & revision' |
|
107 |
min: (Point 10 10) |
|
108 |
bounds: (Rectangle 0 0 556 300) |
|
109 |
) |
|
110 |
component: |
|
111 |
(SpecCollection |
|
112 |
collection: ( |
|
113 |
(VerticalPanelViewSpec |
|
114 |
name: 'ContentPanel' |
|
115 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
116 |
horizontalLayout: fit |
|
117 |
verticalLayout: topSpaceFit |
|
118 |
horizontalSpace: 3 |
|
119 |
verticalSpace: 3 |
|
120 |
ignoreInvisibleComponents: false |
|
121 |
component: |
|
122 |
(SpecCollection |
|
123 |
collection: ( |
|
124 |
(TransparentBoxSpec |
|
125 |
name: 'BranchBox' |
|
126 |
component: |
|
127 |
(SpecCollection |
|
128 |
collection: ( |
|
129 |
(LabelSpec |
|
130 |
label: 'Branch:' |
|
131 |
name: 'BranchLabel' |
|
132 |
layout: (LayoutFrame 0 0 0 0 100 0 25 0) |
|
133 |
translateLabel: true |
|
134 |
adjust: left |
|
135 |
) |
|
136 |
(ComboListSpec |
|
137 |
name: 'Branch' |
|
138 |
layout: (LayoutFrame 100 0 0 0 0 1 25 0) |
|
139 |
model: branchHolder |
|
140 |
comboList: branchListHolder |
|
141 |
useIndex: false |
|
142 |
) |
|
143 |
) |
|
144 |
||
145 |
) |
|
146 |
extent: (Point 556 25) |
|
147 |
) |
|
148 |
(TransparentBoxSpec |
|
149 |
name: 'RevisionBox' |
|
150 |
component: |
|
151 |
(SpecCollection |
|
152 |
collection: ( |
|
153 |
(LabelSpec |
|
154 |
label: 'Revision:' |
|
155 |
name: 'RevisionLabel' |
|
156 |
layout: (LayoutFrame 0 0 0 0 100 0 22 0) |
|
157 |
translateLabel: true |
|
158 |
adjust: left |
|
159 |
) |
|
160 |
(RadioButtonSpec |
|
161 |
label: 'HEAD' |
|
162 |
name: 'RevKindHEAD' |
|
163 |
layout: (LayoutFrame 100 0.0 0 0 0 1 25 0) |
|
164 |
translateLabel: true |
|
165 |
model: revisionKindHolder |
|
166 |
isTriggerOnDown: true |
|
167 |
select: head |
|
168 |
) |
|
169 |
(RadioButtonSpec |
|
170 |
label: 'Number' |
|
171 |
name: 'RevKindNumber' |
|
172 |
layout: (LayoutFrame 100 0.0 25 0 200 1 50 0) |
|
173 |
translateLabel: true |
|
174 |
model: revisionKindHolder |
|
175 |
isTriggerOnDown: true |
|
176 |
select: number: |
|
177 |
) |
|
178 |
(InputFieldSpec |
|
179 |
name: 'RevisionNumber' |
|
180 |
layout: (LayoutFrame 200 0 25 0 0 1 48 0) |
|
181 |
enableChannel: revisionNumberEnabledHolder |
|
182 |
model: revisionNumberHolder |
|
183 |
type: numberInRange |
|
184 |
immediateAccept: true |
|
185 |
acceptOnReturn: true |
|
186 |
acceptOnTab: true |
|
187 |
minValue: 0 |
|
188 |
acceptOnPointerLeave: true |
|
189 |
emptyFieldReplacementText: 'Revision number' |
|
190 |
) |
|
191 |
(RadioButtonSpec |
|
192 |
label: 'Date' |
|
193 |
name: 'RevKindDate' |
|
194 |
layout: (LayoutFrame 100 0.0 50 0 0 1 75 0) |
|
195 |
translateLabel: true |
|
196 |
model: revisionKindHolder |
|
197 |
isTriggerOnDown: true |
|
198 |
select: date: |
|
199 |
) |
|
200 |
(InputFieldSpec |
|
201 |
name: 'EntryField1' |
|
202 |
layout: (LayoutFrame 200 0 50 0 0 1 73 0) |
|
203 |
enableChannel: revisionDateEnabledHolder |
|
204 |
model: revisionDateHolder |
|
205 |
type: dateOrNil |
|
206 |
immediateAccept: true |
|
207 |
acceptOnReturn: true |
|
208 |
acceptOnTab: true |
|
209 |
acceptOnPointerLeave: true |
|
210 |
emptyFieldReplacementText: 'Date (DD-MM-YYYY)' |
|
211 |
) |
|
212 |
(ToggleSpec |
|
213 |
label: 'Toggle' |
|
214 |
name: 'Toggle1' |
|
215 |
layout: (LayoutFrame 368 0 84 0 504 0 106 0) |
|
216 |
translateLabel: true |
|
217 |
isTriggerOnDown: true |
|
218 |
lampColor: (Color 100.0 100.0 0.0) |
|
219 |
) |
|
220 |
) |
|
221 |
||
222 |
) |
|
223 |
extent: (Point 556 75) |
|
224 |
) |
|
225 |
(SubCanvasSpec |
|
226 |
name: 'RevisionLogBrowser' |
|
227 |
hasHorizontalScrollBar: false |
|
228 |
hasVerticalScrollBar: false |
|
229 |
autoHideScrollBars: false |
|
230 |
majorKey: #'SVN::RevisionLogBrowser' |
|
231 |
subAspectHolders: |
|
232 |
(Array |
|
233 |
||
234 |
(SubChannelInfoSpec |
|
235 |
subAspect: branchHolder |
|
236 |
aspect: branchHolder |
|
237 |
) |
|
238 |
(SubChannelInfoSpec |
|
239 |
subAspect: pathHolder |
|
240 |
aspect: pathHolder |
|
241 |
) |
|
242 |
) |
|
243 |
createNewApplication: true |
|
244 |
createNewBuilder: true |
|
1108
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
245 |
extent: (Point 556 188) |
660 | 246 |
) |
247 |
) |
|
248 |
||
249 |
) |
|
250 |
) |
|
251 |
) |
|
252 |
||
253 |
) |
|
254 |
) |
|
255 |
! ! |
|
256 |
||
776 | 257 |
!BranchAndRevisionSelectionDialog class methodsFor:'others'! |
258 |
||
259 |
version_CVS |
|
822
f551995b29c0
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
776
diff
changeset
|
260 |
^ '$Header$' |
776 | 261 |
! ! |
262 |
||
660 | 263 |
!BranchAndRevisionSelectionDialog class methodsFor:'plugIn spec'! |
264 |
||
265 |
aspectSelectors |
|
266 |
"This resource specification was automatically generated |
|
267 |
by the UIPainter of ST/X." |
|
268 |
||
269 |
"Do not manually edit this. If it is corrupted, |
|
270 |
the UIPainter may not be able to read the specification." |
|
271 |
||
272 |
"Return a description of exported aspects; |
|
273 |
these can be connected to aspects of an embedding application |
|
274 |
(if this app is embedded in a subCanvas)." |
|
275 |
||
276 |
^ #( |
|
277 |
#modelHolder |
|
278 |
#revisionHolder |
|
279 |
). |
|
280 |
||
281 |
! ! |
|
282 |
||
283 |
!BranchAndRevisionSelectionDialog methodsFor:'accessing'! |
|
284 |
||
285 |
branch |
|
286 |
||
287 |
^self branchHolder value |
|
288 |
||
289 |
"Created: / 19-04-2008 / 13:20:43 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
290 |
"Modified: / 23-06-2009 / 23:43:54 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
291 |
! |
|
292 |
||
293 |
branch: aSVNBranch |
|
294 |
||
295 |
self branchHolder value: aSVNBranch |
|
296 |
! |
|
297 |
||
298 |
defaultTitle |
|
299 |
"Superclass SVN::Dialog says that I am responsible to implement this method" |
|
300 |
||
301 |
^ 'Select branch & revision ' |
|
302 |
"/ , self model package allItalic |
|
303 |
||
304 |
"Created: / 03-10-2008 / 13:58:40 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
305 |
! |
|
306 |
||
307 |
path: path |
|
308 |
||
309 |
self pathHolder value: path |
|
310 |
! |
|
311 |
||
312 |
repository: aSVNRepository |
|
313 |
||
314 |
self repositoryHolder value: aSVNRepository |
|
315 |
! |
|
316 |
||
317 |
revision |
|
318 |
||
319 |
^self revisionHolder value |
|
320 |
||
321 |
"Created: / 19-04-2008 / 13:20:43 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
322 |
"Modified: / 23-06-2009 / 23:43:54 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
323 |
! ! |
|
324 |
||
1108
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
325 |
!BranchAndRevisionSelectionDialog methodsFor:'actions'! |
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
326 |
|
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
327 |
fetchRevisionLog |
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
328 |
self revisionLogVisibleHolder value: true |
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
329 |
|
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
330 |
"Modified: / 10-07-2012 / 16:15:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
331 |
! ! |
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
332 |
|
660 | 333 |
!BranchAndRevisionSelectionDialog methodsFor:'aspects'! |
334 |
||
335 |
branchHolder |
|
336 |
<resource: #uiAspect> |
|
337 |
||
338 |
branchHolder isNil ifTrue:[ |
|
339 |
branchHolder := ValueHolder with: |
|
340 |
(self repositoryHolder value |
|
341 |
ifNotNil:[self repositoryHolder value branch] |
|
342 |
ifNil:[nil]). |
|
343 |
branchHolder onChangeSend: #branchOrRevisionChanged to: self |
|
344 |
]. |
|
345 |
^ branchHolder. |
|
346 |
! |
|
347 |
||
348 |
pathHolder |
|
349 |
"return/create the 'pathHolder' value holder (automatically generated)" |
|
350 |
||
351 |
pathHolder isNil ifTrue:[ |
|
352 |
pathHolder := ValueHolder new. |
|
353 |
]. |
|
354 |
^ pathHolder |
|
355 |
! |
|
356 |
||
357 |
repositoryHolder |
|
358 |
"return/create the 'repositoryHolder' value holder (automatically generated)" |
|
359 |
||
360 |
repositoryHolder isNil ifTrue:[ |
|
361 |
repositoryHolder := ValueHolder new. |
|
362 |
revisionHolder onChangeSend: #repositoryChanged to: self |
|
363 |
]. |
|
364 |
^ repositoryHolder |
|
365 |
! |
|
366 |
||
367 |
revisionHolder |
|
368 |
||
369 |
revisionHolder ifNil:[ |
|
370 |
revisionHolder := ValueHolder with: SVN::Revision head. |
|
371 |
revisionHolder onChangeSend: #branchOrRevisionChanged to: self |
|
372 |
]. |
|
373 |
^revisionHolder |
|
374 |
||
375 |
"Created: / 24-03-2009 / 14:51:16 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
376 |
! ! |
|
377 |
||
378 |
!BranchAndRevisionSelectionDialog methodsFor:'aspects - aux'! |
|
379 |
||
380 |
branchListHolder |
|
381 |
<resource: #uiAspect> |
|
382 |
||
383 |
|holder| |
|
384 |
||
385 |
(holder := builder bindingAt:#branchListHolder) isNil ifTrue:[ |
|
386 |
holder := ValueHolder new. |
|
387 |
builder aspectAt:#branchListHolder put:holder. |
|
388 |
]. |
|
389 |
^ holder. |
|
390 |
! |
|
391 |
||
392 |
revisionDateHolder |
|
393 |
<resource: #uiAspect> |
|
394 |
||
395 |
|holder| |
|
396 |
||
397 |
(holder := builder bindingAt:#revisionDateHolder) isNil ifTrue:[ |
|
398 |
holder := ValueHolder new. |
|
399 |
builder aspectAt:#revisionDateHolder put:holder. |
|
400 |
"/ holder addDependent:self. |
|
401 |
holder onChangeSend:#revisionKindOrNumberOrDateChanged to:self. |
|
402 |
]. |
|
403 |
^ holder. |
|
404 |
! |
|
405 |
||
406 |
revisionKindHolder |
|
407 |
<resource: #uiAspect> |
|
408 |
||
409 |
|holder| |
|
410 |
||
411 |
(holder := builder bindingAt:#revisionKindHolder) isNil ifTrue:[ |
|
412 |
holder := ValueHolder with:#head. |
|
413 |
builder aspectAt:#revisionKindHolder put:holder. |
|
414 |
"/ holder addDependent:self. |
|
415 |
holder onChangeSend:#revisionKindOrNumberOrDateChanged to:self. |
|
416 |
]. |
|
417 |
^ holder. |
|
418 |
! |
|
419 |
||
1108
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
420 |
revisionLogInvisibleHolder |
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
421 |
^BlockValue forLogicalNot: self revisionLogVisibleHolder |
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
422 |
|
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
423 |
"Created: / 10-07-2012 / 16:16:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
424 |
! |
7cfaa82d275f
Improvements in revision log browser/dialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
822
diff
changeset
|
425 |
|
660 | 426 |
revisionLogVisibleHolder |
427 |
<resource: #uiAspect> |
|
428 |
||
429 |
|holder| |
|
430 |
||
431 |
(holder := builder bindingAt:#revisionLogVisibleHolder) isNil ifTrue:[ |
|
432 |
holder := ValueHolder with: false. |
|
433 |
builder aspectAt:#revisionLogVisibleHolder put:holder. |
|
434 |
]. |
|
435 |
^ holder. |
|
436 |
! |
|
437 |
||
438 |
revisionNumberHolder |
|
439 |
<resource: #uiAspect> |
|
440 |
||
441 |
|holder| |
|
442 |
||
443 |
(holder := builder bindingAt:#revisionNumberHolder) isNil ifTrue:[ |
|
444 |
holder := ValueHolder new. |
|
445 |
builder aspectAt:#revisionNumberHolder put:holder. |
|
446 |
"/ holder addDependent:self. |
|
447 |
holder onChangeSend:#revisionKindOrNumberOrDateChanged to:self. |
|
448 |
]. |
|
449 |
^ holder. |
|
450 |
! ! |
|
451 |
||
452 |
!BranchAndRevisionSelectionDialog methodsFor:'change & update'! |
|
453 |
||
454 |
branchOrRevisionChanged |
|
455 |
||
456 |
self acceptEnabled: |
|
457 |
(self branch notNil and:[self revision notNil]) |
|
458 |
! |
|
459 |
||
460 |
repositoryChanged |
|
461 |
||
462 |
[| repo | |
|
463 |
repo := self repositoryHolder value. |
|
464 |
self branchListHolder value: |
|
465 |
(repo |
|
466 |
ifNil:[#()] |
|
467 |
ifNotNil:[repo branchesAndTags])] fork. |
|
468 |
! |
|
469 |
||
470 |
revisionKindOrNumberOrDateChanged |
|
471 |
||
472 |
| kind rev | |
|
473 |
kind := self revisionKindHolder value. |
|
474 |
kind = #head ifTrue: |
|
475 |
[rev := SVN::Revision head]. |
|
476 |
kind = #number: ifTrue: |
|
477 |
[(self revisionNumberHolder value) ifNotNil: |
|
478 |
[rev := SVN::Revision number: (self revisionNumberHolder value)]]. |
|
479 |
kind = #date: ifTrue: |
|
480 |
[self revisionDateHolder value ifNotNil: |
|
481 |
[rev := SVN::Revision date: (self revisionDateHolder value)]]. |
|
482 |
self revisionHolder setValue: rev. |
|
483 |
self branchOrRevisionChanged. |
|
484 |
! ! |
|
485 |
||
486 |
!BranchAndRevisionSelectionDialog methodsFor:'hooks'! |
|
487 |
||
488 |
commonPostBuild |
|
489 |
||
490 |
self branchOrRevisionChanged. |
|
491 |
self repositoryChanged |
|
492 |
! ! |
|
493 |
||
494 |
!BranchAndRevisionSelectionDialog methodsFor:'queries'! |
|
495 |
||
496 |
revisionDateEnabledHolder |
|
497 |
||
498 |
^(PluggableAdaptor on: self revisionKindHolder) |
|
499 |
getBlock:[:model|model value = #date:] |
|
500 |
putBlock:[:i1 :i2|] |
|
501 |
updateBlock:[:i1 :i2 :i3|true] |
|
502 |
! |
|
503 |
||
504 |
revisionNumberEnabledHolder |
|
505 |
||
506 |
^(PluggableAdaptor on: self revisionKindHolder) |
|
507 |
getBlock:[:model|model value = #number:] |
|
508 |
putBlock:[:i1 :i2|] |
|
509 |
updateBlock:[:i1 :i2 :i3|true] |
|
510 |
! ! |
|
511 |
||
512 |
!BranchAndRevisionSelectionDialog class methodsFor:'documentation'! |
|
513 |
||
514 |
version |
|
822
f551995b29c0
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
776
diff
changeset
|
515 |
^ '$Header$' |
660 | 516 |
! |
517 |
||
518 |
version_SVN |
|
822
f551995b29c0
checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
776
diff
changeset
|
519 |
^ '§Id: SVN__BranchAndRevisionSelectionDialog.st 363 2011-08-08 13:49:48Z vranyj1 §' |
660 | 520 |
! ! |