author | convert-repo |
Thu, 30 Aug 2018 03:34:47 +0000 | |
changeset 857 | fdb5c39711ea |
parent 573 | 0a22fe210a7d |
permissions | -rw-r--r-- |
410
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
stx:libscm - a new source code management library for Smalltalk/X |
509
f92210d4585b
Updated copyright notice.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
410
diff
changeset
|
3 |
Copyright (C) 2012-2015 Jan Vrany |
410
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
This library is free software; you can redistribute it and/or |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
modify it under the terms of the GNU Lesser General Public |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
License as published by the Free Software Foundation; either |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
version 2.1 of the License. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
This library is distributed in the hope that it will be useful, |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
Lesser General Public License for more details. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
You should have received a copy of the GNU Lesser General Public |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
License along with this library; if not, write to the Free Software |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
"{ Package: 'stx:libscm/mercurial' }" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
|
573
0a22fe210a7d
Display commit details in a tooltip
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
509
diff
changeset
|
21 |
"{ NameSpace: Smalltalk }" |
0a22fe210a7d
Display commit details in a tooltip
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
509
diff
changeset
|
22 |
|
410
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
Object subclass:#HGChangesetPresenter |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
instanceVariableNames:'changeset labels' |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
classVariableNames:'PaddingLeft PaddingRight PaddingTop PaddingBottom' |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
poolDictionaries:'' |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
category:'SCM-Mercurial-StX-Interface' |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
!HGChangesetPresenter class methodsFor:'documentation'! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
32 |
copyright |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
33 |
" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
34 |
stx:libscm - a new source code management library for Smalltalk/X |
509
f92210d4585b
Updated copyright notice.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
410
diff
changeset
|
35 |
Copyright (C) 2012-2015 Jan Vrany |
410
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
36 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
37 |
This library is free software; you can redistribute it and/or |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
38 |
modify it under the terms of the GNU Lesser General Public |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
39 |
License as published by the Free Software Foundation; either |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
40 |
version 2.1 of the License. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
41 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
42 |
This library is distributed in the hope that it will be useful, |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
43 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
44 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
45 |
Lesser General Public License for more details. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
46 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
47 |
You should have received a copy of the GNU Lesser General Public |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
48 |
License along with this library; if not, write to the Free Software |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
49 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
50 |
" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
51 |
! ! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
52 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
53 |
!HGChangesetPresenter class methodsFor:'initialization'! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
54 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
55 |
initialize |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
56 |
"Invoked at system start or when the class is dynamically loaded." |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
57 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
58 |
"/ please change as required (and remove this comment) |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
59 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
60 |
PaddingLeft := 3. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
61 |
PaddingRight := 3. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
62 |
PaddingTop := 3. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
63 |
PaddingBottom := 3. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
64 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
65 |
"Modified: / 11-03-2014 / 21:27:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
66 |
! ! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
67 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
68 |
!HGChangesetPresenter methodsFor:'accessing'! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
69 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
70 |
changeset |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
71 |
^ changeset |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
72 |
! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
73 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
74 |
changeset:anHGChangeset |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
75 |
changeset := anHGChangeset. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
76 |
! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
77 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
78 |
labels |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
79 |
"/ Cache labels for speed... |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
80 |
labels isNil ifTrue:[ |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
81 |
labels := changeset labels. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
82 |
]. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
83 |
^ labels |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
84 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
85 |
"Created: / 25-03-2014 / 01:48:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
86 |
! ! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
87 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
88 |
!HGChangesetPresenter methodsFor:'accessing - presentation'! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
89 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
90 |
authorString |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
91 |
^ changeset author |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
92 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
93 |
"Created: / 11-03-2014 / 21:49:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
94 |
! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
95 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
96 |
changesetString |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
97 |
^ changeset id asString |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
98 |
! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
99 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
100 |
dateString |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
101 |
^ changeset timestamp printString |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
102 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
103 |
"Created: / 11-03-2014 / 21:48:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
104 |
! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
105 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
106 |
parentsString |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
107 |
"raise an error: this method should be implemented (TODO)" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
108 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
109 |
| p1 p2 | |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
110 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
111 |
p1 := changeset parent1. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
112 |
p1 isNil ifTrue:[ |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
113 |
^ HGChangesetId null printString. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
114 |
]. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
115 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
116 |
p2 := changeset parent2. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
117 |
^ p2 isNil ifTrue:[ |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
118 |
p1 id asString. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
119 |
] ifFalse:[ |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
120 |
p1 id asString , ', ' , p2 id asString. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
121 |
]. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
122 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
123 |
"Created: / 11-03-2014 / 21:52:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
124 |
! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
125 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
126 |
summaryString |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
127 |
^ changeset summary |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
128 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
129 |
"Created: / 11-03-2014 / 21:49:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
130 |
! ! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
131 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
132 |
!HGChangesetPresenter methodsFor:'comparing'! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
133 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
134 |
= another |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
135 |
^ self class = another class and:[changeset = another changeset] |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
136 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
137 |
"Created: / 11-03-2014 / 21:18:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
138 |
"Modified: / 15-03-2014 / 00:03:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
139 |
! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
140 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
141 |
hash |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
142 |
^ changeset hash |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
143 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
144 |
"Created: / 11-03-2014 / 21:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
145 |
! ! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
146 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
147 |
!HGChangesetPresenter methodsFor:'displaying'! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
148 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
149 |
displayOn:aGC x:x0 y:y0"baseline of the text!!!!!!" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
150 |
| x y yTextOffset xSummary fontH fontA lineH labelH idW resources | |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
151 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
152 |
resources := HGChangesetList resources. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
153 |
fontH := (aGC font onDevice:aGC device) height. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
154 |
fontA := (aGC font onDevice:aGC device) ascent. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
155 |
lineH := (fontH * 1.2) rounded. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
156 |
labelH := changeset branches anElement heightOn: aGC. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
157 |
idW := aGC widthOfString:'XXXXXXXXXXXX'. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
158 |
yTextOffset := 0."/((labelH - fontH) / 2) rounded. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
159 |
x := x0 + PaddingLeft. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
160 |
y := y0 + PaddingTop. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
161 |
aGC displayString: changeset id printStringWithoutNumber x: x y: y + yTextOffset. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
162 |
xSummary := x + idW + 5. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
163 |
self labels do:[:label | |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
164 |
"/ (label isBranch and:[ label isDefault ]) ifFalse:[ |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
165 |
label displayOn: aGC x: xSummary y: y - fontA. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
166 |
xSummary := xSummary + (label widthOn: aGC) + 3. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
167 |
"/ ]. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
168 |
]. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
169 |
aGC displayString: changeset summary x: xSummary + 3 y: y + 2. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
170 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
171 |
y := y + lineH + 4. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
172 |
aGC displayString: changeset user , ', ', changeset timestamp printString x: x + idW + 5 y: y |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
173 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
174 |
"Created: / 11-03-2014 / 21:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
175 |
"Modified: / 28-03-2014 / 00:22:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
176 |
! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
177 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
178 |
heightOn:aGC |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
179 |
| fontH lineSpacing | |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
180 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
181 |
fontH := (aGC font onDevice:aGC device) height. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
182 |
lineSpacing := (fontH * 0.2) rounded. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
183 |
^ (fontH * 2) + lineSpacing + 6 + PaddingTop + PaddingRight. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
184 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
185 |
"Created: / 11-03-2014 / 21:29:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
186 |
"Modified: / 28-03-2014 / 00:22:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
187 |
! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
188 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
189 |
widthOn:aGC |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
190 |
| w idW | |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
191 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
192 |
idW := aGC widthOfString:'XXXXXXXXXXXX'. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
193 |
w := PaddingLeft. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
194 |
w := w + idW + 5. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
195 |
self labels do:[:label | |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
196 |
"/ (label isBranch and:[ label isDefault ]) ifFalse:[ |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
197 |
w := w + (label widthOn: aGC) + 3. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
198 |
"/ ]. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
199 |
]. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
200 |
w := w + (aGC widthOfString: changeset summary) + 3. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
201 |
^ w. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
202 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
203 |
"Created: / 28-03-2014 / 00:26:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
204 |
! ! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
205 |
|
573
0a22fe210a7d
Display commit details in a tooltip
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
509
diff
changeset
|
206 |
!HGChangesetPresenter methodsFor:'help'! |
0a22fe210a7d
Display commit details in a tooltip
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
509
diff
changeset
|
207 |
|
0a22fe210a7d
Display commit details in a tooltip
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
509
diff
changeset
|
208 |
helpText |
0a22fe210a7d
Display commit details in a tooltip
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
509
diff
changeset
|
209 |
^ changeset helpText |
0a22fe210a7d
Display commit details in a tooltip
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
509
diff
changeset
|
210 |
|
0a22fe210a7d
Display commit details in a tooltip
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
509
diff
changeset
|
211 |
"Created: / 10-09-2015 / 09:42:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
0a22fe210a7d
Display commit details in a tooltip
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
509
diff
changeset
|
212 |
! ! |
0a22fe210a7d
Display commit details in a tooltip
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
509
diff
changeset
|
213 |
|
410
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
214 |
!HGChangesetPresenter methodsFor:'printing & storing'! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
215 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
216 |
printOn:aStream |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
217 |
"append a printed representation if the receiver to the argument, aStream" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
218 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
219 |
super printOn:aStream. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
220 |
aStream nextPutAll:'('. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
221 |
changeset printOn:aStream. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
222 |
aStream nextPutAll:')'. |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
223 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
224 |
"Modified: / 27-03-2014 / 23:54:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
225 |
! ! |
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
226 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
227 |
|
34ca0972c5ba
Added 'Update To Revision' menu item to file browser and fixed issue #32.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
228 |
HGChangesetPresenter initialize! |