author | Claus Gittinger <cg@exept.de> |
Tue, 03 Jul 2018 09:41:04 +0200 | |
branch | cvs_MAIN |
changeset 842 | b5eb85f53c37 |
parent 512 | 61df05330245 |
permissions | -rw-r--r-- |
512
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
stx:libscm - a new source code management library for Smalltalk/X |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
Copyright (C) 2012-2013 Jan Vrany |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
This library is free software; you can redistribute it and/or |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
modify it under the terms of the GNU Lesser General Public |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
License as published by the Free Software Foundation; either |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
version 2.1 of the License. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
This library is distributed in the hope that it will be useful, |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
Lesser General Public License for more details. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
You should have received a copy of the GNU Lesser General Public |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
License along with this library; if not, write to the Free Software |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
"{ Package: 'stx:libscm/mercurial' }" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
AbstractSourceCodeManagementSettingsAppl subclass:#HGSourceCodeManagementSettingsAppl |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
instanceVariableNames:'defaultLogo hgCommand hgDiff2Command hgDiff3Command hgAutopush' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
classVariableNames:'' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
poolDictionaries:'' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
category:'SCM-Mercurial-StX-Interface' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
copyright |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
32 |
stx:libscm - a new source code management library for Smalltalk/X |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
33 |
Copyright (C) 2012-2013 Jan Vrany |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
34 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
35 |
This library is free software; you can redistribute it and/or |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
36 |
modify it under the terms of the GNU Lesser General Public |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
37 |
License as published by the Free Software Foundation; either |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
38 |
version 2.1 of the License. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
39 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
40 |
This library is distributed in the hope that it will be useful, |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
41 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
42 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
43 |
Lesser General Public License for more details. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
44 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
45 |
You should have received a copy of the GNU Lesser General Public |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
46 |
License along with this library; if not, write to the Free Software |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
47 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
48 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
49 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
50 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
51 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
52 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
53 |
defaultIcon |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
54 |
<resource: #programImage> |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
55 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
56 |
^ self defaultIcon3 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
57 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
58 |
"Created: / 22-12-2011 / 13:47:11 / cg" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
59 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
60 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
61 |
defaultIcon1 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
62 |
<resource: #image> |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
63 |
"This resource specification was automatically generated |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
64 |
by the ImageEditor of ST/X." |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
65 |
"Do not manually edit this!! If it is corrupted, |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
66 |
the ImageEditor may not be able to read the specification." |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
67 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
68 |
self defaultIcon1 inspect |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
69 |
ImageEditor openOnClass:self andSelector:#defaultIcon1 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
70 |
Icon flushCachedIcons" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
71 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
72 |
^ Icon |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
73 |
constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon1' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
74 |
ifAbsentPut:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
75 |
(Depth8Image new) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
76 |
width:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
77 |
height:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
78 |
photometric:(#palette); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
79 |
bitsPerSample:(#[ 8 ]); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
80 |
samplesPerPixel:(1); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
81 |
bits:(ByteArray |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
82 |
fromPackedString:' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
83 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
84 |
B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<P@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
85 |
B@ HB@ HB@ SA@@@@@@@@@@@@APLB@ HB@ HB@ HB@ IEP@@@@@VA@LW@Q OC@ HB@ HB@ HB@ LFPD@@@DLBP\Q@@@ZF0 LB@ HB@ HB@ IF@X@@A0HA!!4^ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
86 |
@@@SF!!<_@@$HB@ HB@0FH@L@@BDI@AHC@@@@HP@O@BHIB@ HB@LFH0H@@@@ABQ0@@@@@@@@!!A@@DB@ HCA0OI@8@@@@@@@@@@A\@@@@@@@XDB@ HBP8%I D@ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
87 |
@@@@@@@BA@$D@P@@@@8IB@ LC P''C0@@@@@@@@DIB@ HBQ0@@@8LA@XA@Q<Y@0@@@@@@@@PLB@ DA@@@@@PCB" JC2T[@@@@@@@@@@PLB@PPBP@@@@P)JB$I |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
88 |
J!!HA@@@@@@@@@B,LBQXCKB,@A XACQP-F0L@@@@@@@@@@@(RK"T,D0@@BA,/LCD@L @@@@@@@@@@@@@@@ $!!@@@@@QTTC@ 3@@@@@@@@@@@@@@@@@@@@@@@@ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
89 |
@CP\L0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
90 |
colorMapFromArray:#[ 143 136 136 208 208 208 192 192 184 176 176 176 175 168 168 176 168 168 191 184 184 191 176 176 159 152 144 160 160 160 239 232 224 192 184 184 159 152 160 207 192 200 207 200 200 144 144 144 224 224 224 160 152 160 127 120 120 144 144 136 128 128 128 111 104 104 207 200 208 239 232 240 95 88 88 96 96 96 79 72 80 112 112 120 192 192 200 223 208 208 111 104 96 80 80 80 64 64 64 223 216 216 128 120 128 31 24 24 32 32 24 79 72 64 64 56 56 47 40 40 240 240 240 239 224 224 63 48 48 191 184 176 112 112 104 64 64 56 63 56 56 48 48 48 48 40 48 127 112 120 160 160 168 208 200 208 224 224 216 ]; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
91 |
mask:((ImageMask new) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
92 |
width:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
93 |
height:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
94 |
bits:(ByteArray |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
95 |
fromPackedString:'@@@@@@@@@G>@@O? @_?0@??8@??8@??<@??<O??>__?>_O?>_G?>NA?>@P_>A<_<C>_<C>_8C>_8C>?0C<? @8?@@@\@@@@@'); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
96 |
yourself); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
97 |
yourself |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
98 |
] |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
99 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
100 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
101 |
defaultIcon2 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
102 |
<resource: #image> |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
103 |
"This resource specification was automatically generated |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
104 |
by the ImageEditor of ST/X." |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
105 |
"Do not manually edit this!! If it is corrupted, |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
106 |
the ImageEditor may not be able to read the specification." |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
107 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
108 |
self defaultIcon2 inspect |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
109 |
ImageEditor openOnClass:self andSelector:#defaultIcon2 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
110 |
Icon flushCachedIcons" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
111 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
112 |
^ Icon |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
113 |
constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon2' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
114 |
ifAbsentPut:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
115 |
(Depth8Image new) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
116 |
width:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
117 |
height:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
118 |
photometric:(#palette); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
119 |
bitsPerSample:(#[ 8 ]); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
120 |
samplesPerPixel:(1); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
121 |
bits:(ByteArray |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
122 |
fromPackedString:' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
123 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
124 |
B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<P@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
125 |
B@ HB@ HB@ SA@@@@@@@@@@@@APLB@ HB@ HB@ HB@ IEP@@@@@VA@LW@Q OC@ HB@ HB@ HB@ LFPD@@@DLBP\Q@@@ZF0 LB@ HB@ HB@ IF@X@@A0HA!!4^ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
126 |
@@@SF!!<_@@$HB@ HB@0FH@L@@BDI@AH:N#\7HP@O@BHIB@ HB@LFH0H@@@@ABS\:N#(:M0@!!A@@DB@ HCA0OI@8@@@@@M#(:@A\@@C\@@@XDB@ HBP8%I D@ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
127 |
@@@@M3 7A@$D@P@@@@8IB@ LC P''C0@@@C\7N#$:N0 HHA0@@@8LA@XA@Q<Y@0@@@@@7NS(7B@ HB@@@@PCB" JC2T[@@@@@@@@M34LBB@<OAP @@P)JB$I |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
128 |
J!!HA@@@@@@@@@B,LHB@YHB@ A XACQP-F0L@@@@@@@@ @@(RK"T H@@@BA,/LCD@L @@@@@@@@@@HB@ HB@ MP@@@QTTC@ 3@@@@@@@@@@@@@A$ HB@5@@@@ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
129 |
@CP\L0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
130 |
colorMapFromArray:#[ 143 136 136 208 208 208 192 192 184 176 176 176 175 168 168 176 168 168 191 184 184 191 176 176 159 152 144 160 160 160 239 232 224 192 184 184 159 152 160 207 192 200 207 200 200 144 144 144 224 224 224 160 152 160 127 120 120 144 144 136 128 128 128 111 104 104 207 200 208 239 232 240 95 88 88 96 96 96 79 72 80 112 112 120 192 192 200 223 208 208 111 104 96 80 80 80 64 64 64 223 216 216 128 120 128 31 24 24 32 32 24 79 72 64 64 56 56 47 40 40 240 240 240 239 224 224 63 48 48 191 184 176 112 112 104 64 64 56 63 56 56 48 48 48 48 40 48 127 112 120 160 160 168 208 200 208 224 224 216 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 32 32 32 32 64 32 ]; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
131 |
mask:((ImageMask new) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
132 |
width:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
133 |
height:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
134 |
bits:(ByteArray |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
135 |
fromPackedString:'@@@@@@@@@G>@@O? @_?0@??8@??8@??<@??<O??>__?>_O?>_??>O=?>GR_>G<_<_>_<O>_8G?_8C??0K<? G<?@C8\@@@@@'); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
136 |
yourself); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
137 |
yourself |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
138 |
] |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
139 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
140 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
141 |
defaultIcon3 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
142 |
<resource: #image> |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
143 |
"This resource specification was automatically generated |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
144 |
by the ImageEditor of ST/X." |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
145 |
"Do not manually edit this!! If it is corrupted, |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
146 |
the ImageEditor may not be able to read the specification." |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
147 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
148 |
self defaultIcon3 inspect |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
149 |
ImageEditor openOnClass:self andSelector:#defaultIcon3 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
150 |
Icon flushCachedIcons" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
151 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
152 |
^ Icon constantNamed:'HGSourceCodeManagementSettingsAppl defaultIcon3' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
153 |
ifAbsentPut:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
154 |
(Depth8Image new) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
155 |
width:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
156 |
height:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
157 |
photometric:(#palette); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
158 |
bitsPerSample:(#[ 8 ]); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
159 |
samplesPerPixel:(1); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
160 |
bits:(ByteArray |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
161 |
fromPackedString:' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
162 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
163 |
B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<N@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
164 |
B@ HB@ HB@ SA@@@@@@@@@@@@APLB@ HB@ HB@ HB@ IEP@@@@@VA@LW@Q OC@ HB@ HB@ HB@ LFPD@@@DLBP\Q@@@ZF0 LB@ HB@ HB@ IF@X@@A0HA!!4^ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
165 |
@@@SF!!<_@@$HB@ HB@0FH@L@@BDI@AH:N#\7HP@O@BHIB@ HB@LFH0H@@@@ABS\:N#(:M0@!!A@@DB@ HCA0OI@8@@@@@M#(:@A\@@C\@@@XDB@ HBP8%I D@ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
166 |
@@@@M3 7A@$D@P@@@@8IB@ LDA@''C0@@@C\7N#$:N0 HOA0@@@8LA@XADA@Y@0@@@@@7NS(7B@ <OC0@@@PCB" JDA@[@@@@@@@@M4@LBC0?O38<@@P)DA@P |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
167 |
DA@PDA@@@@@@@B,LOC0=OC0<A XADA@PDA@PDA@@@@@<@@(RK"T<O@@@BA,/LCD@DA@@@@@@@@@@OC0<OC0<MP@@@QTTC@ 3DA@@@@@@@@@@@C4<OC05@@@@ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
168 |
@CP\L0@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
169 |
colorMapFromArray:#[ 174 169 169 255 255 255 233 233 230 216 216 216 213 209 209 214 209 209 232 229 229 229 223 223 191 187 181 197 197 197 255 255 255 233 230 230 194 189 194 247 244 245 251 250 250 177 177 177 131 0 0 194 189 194 155 149 149 175 175 169 157 157 157 136 128 128 251 251 251 255 255 255 117 108 108 118 118 118 97 89 98 139 139 147 240 240 242 255 255 255 137 128 118 98 98 98 79 79 79 255 255 255 156 149 156 38 30 30 39 39 30 97 89 79 79 69 69 58 49 49 255 255 255 255 255 255 77 59 59 229 226 223 137 137 128 79 79 69 77 69 69 59 59 59 59 49 59 154 140 147 199 199 204 251 251 251 255 255 255 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32 ]; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
170 |
mask:((ImageMask new) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
171 |
width:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
172 |
height:24; |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
173 |
bits:(ByteArray |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
174 |
fromPackedString:'@@@@@@@@@G>@@O? @_?0@??8@??8@??<@??<O??>__?>_O?>_??>O=?>GR_>G<_<_>_<O>_8G?_>C??>K<?0G<?0C8\0@@@@'); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
175 |
yourself); |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
176 |
yourself |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
177 |
] |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
178 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
179 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
180 |
defaultLogo |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
181 |
^ HGIconLibrary hgLogo2 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
182 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
183 |
"Created: / 04-10-2012 / 19:01:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
184 |
"Modified: / 15-11-2012 / 23:12:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
185 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
186 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
187 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'interface specs'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
188 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
189 |
windowSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
190 |
"This resource specification was automatically generated |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
191 |
by the UIPainter of ST/X." |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
192 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
193 |
"Do not manually edit this!! If it is corrupted, |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
194 |
the UIPainter may not be able to read the specification." |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
195 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
196 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
197 |
UIPainter new openOnClass:HGSourceCodeManagementSettingsAppl andSelector:#windowSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
198 |
HGSourceCodeManagementSettingsAppl new openInterface:#windowSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
199 |
HGSourceCodeManagementSettingsAppl open |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
200 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
201 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
202 |
<resource: #canvas> |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
203 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
204 |
^ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
205 |
#(FullSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
206 |
name: windowSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
207 |
window: |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
208 |
(WindowSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
209 |
label: 'Mercurial Settings' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
210 |
name: 'Mercurial Settings' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
211 |
min: (Point 10 10) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
212 |
bounds: (Rectangle 0 0 695 627) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
213 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
214 |
component: |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
215 |
(SpecCollection |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
216 |
collection: ( |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
217 |
(LabelSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
218 |
label: ' Mercurial Settings' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
219 |
name: 'MercurialSettingsTitle' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
220 |
layout: (LayoutFrame 0 0 0 0 0 1 66 0) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
221 |
style: (FontDescription helvetica medium roman 18 #'iso10646-1') |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
222 |
backgroundColor: (Color 100.0 100.0 100.0) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
223 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
224 |
adjust: left |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
225 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
226 |
(LabelSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
227 |
label: 'Logo' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
228 |
name: 'MercurialLogo' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
229 |
layout: (LayoutFrame -71 1 -1 0 4 1 65 0) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
230 |
hasCharacterOrientedLabel: false |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
231 |
backgroundColor: (Color 100.0 100.0 100.0) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
232 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
233 |
labelChannel: defaultLogo |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
234 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
235 |
(CheckBoxSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
236 |
label: 'Show in Menus' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
237 |
name: 'CheckBox1' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
238 |
layout: (LayoutFrame 0 0 73 0 0 1 103 0) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
239 |
activeHelpKey: shownInBrowserMenus |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
240 |
model: shownInBrowserMenusHolder |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
241 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
242 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
243 |
(ViewSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
244 |
name: 'Settings' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
245 |
layout: (LayoutFrame 0 0 105 0 0 1 0 1) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
246 |
component: |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
247 |
(SpecCollection |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
248 |
collection: ( |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
249 |
(VerticalPanelViewSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
250 |
name: 'GeneralSettingsPanel' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
251 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
252 |
horizontalLayout: fit |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
253 |
verticalLayout: top |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
254 |
horizontalSpace: 3 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
255 |
verticalSpace: 3 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
256 |
component: |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
257 |
(SpecCollection |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
258 |
collection: ( |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
259 |
(ViewSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
260 |
name: 'Panel1' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
261 |
component: |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
262 |
(SpecCollection |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
263 |
collection: ( |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
264 |
(LabelSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
265 |
label: '''hg'' command:' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
266 |
name: 'CommandLabel' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
267 |
layout: (LayoutFrame 5 0 0 0 150 0 30 0) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
268 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
269 |
adjust: right |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
270 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
271 |
(FilenameInputFieldSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
272 |
name: 'HGCommand' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
273 |
layout: (LayoutFrame 150 0 0 0 -100 1 0 1) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
274 |
model: hgCommand |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
275 |
acceptOnPointerLeave: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
276 |
emptyFieldReplacementText: 'Autodetect' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
277 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
278 |
(ActionButtonSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
279 |
label: 'Test' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
280 |
name: 'HGCommandTest' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
281 |
layout: (LayoutFrame -100 1 0 0 -8 1 0 1) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
282 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
283 |
model: doTestHGCommand |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
284 |
enableChannel: svnEnabled |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
285 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
286 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
287 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
288 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
289 |
extent: (Point 695 30) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
290 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
291 |
(ViewSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
292 |
name: 'Spacer' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
293 |
extent: (Point 695 15) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
294 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
295 |
(FramedBoxSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
296 |
label: 'External Tools' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
297 |
name: 'ToolsSettings' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
298 |
initiallyInvisible: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
299 |
labelPosition: topLeft |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
300 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
301 |
component: |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
302 |
(SpecCollection |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
303 |
collection: ( |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
304 |
(LabelSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
305 |
label: 'Diff2:' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
306 |
name: 'Label1' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
307 |
layout: (LayoutFrame 0 0 0 0 80 0 30 0) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
308 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
309 |
adjust: left |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
310 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
311 |
(FilenameInputFieldSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
312 |
name: 'FilenameEntryField1' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
313 |
layout: (LayoutFrame 80 0 3 0 0 1 28 0) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
314 |
enableChannel: svnEnabled |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
315 |
model: hgDiff2Command |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
316 |
acceptOnPointerLeave: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
317 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
318 |
(LabelSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
319 |
label: 'Diff3:' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
320 |
name: 'Label2' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
321 |
layout: (LayoutFrame 0 0 30 0 80 0 0 1.0) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
322 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
323 |
adjust: left |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
324 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
325 |
(FilenameInputFieldSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
326 |
name: 'FilenameEntryField2' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
327 |
layout: (LayoutFrame 80 0 33 0 0 1 58 0) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
328 |
enableChannel: svnEnabled |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
329 |
model: hgDiff3Command |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
330 |
acceptOnPointerLeave: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
331 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
332 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
333 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
334 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
335 |
extent: (Point 695 95) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
336 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
337 |
(FramedBoxSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
338 |
label: 'Debugging' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
339 |
name: 'DebugSettings' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
340 |
initiallyInvisible: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
341 |
labelPosition: topLeft |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
342 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
343 |
component: |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
344 |
(SpecCollection |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
345 |
collection: ( |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
346 |
(VerticalPanelViewSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
347 |
name: 'VerticalPanel1' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
348 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
349 |
horizontalLayout: fit |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
350 |
verticalLayout: top |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
351 |
horizontalSpace: 3 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
352 |
verticalSpace: 3 |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
353 |
component: |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
354 |
(SpecCollection |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
355 |
collection: ( |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
356 |
(CheckBoxSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
357 |
label: 'Verbose (Traces svn commands to Transcript)' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
358 |
name: 'Verbose' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
359 |
enableChannel: svnEnabled |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
360 |
model: svnVerbose |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
361 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
362 |
useDefaultExtent: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
363 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
364 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
365 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
366 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
367 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
368 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
369 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
370 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
371 |
extent: (Point 695 70) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
372 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
373 |
(CheckBoxSpec |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
374 |
label: 'Automatically push changes to upstream repository' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
375 |
name: 'CheckBox2' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
376 |
model: hgAutopush |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
377 |
translateLabel: true |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
378 |
extent: (Point 695 30) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
379 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
380 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
381 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
382 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
383 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
384 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
385 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
386 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
387 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
388 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
389 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
390 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
391 |
) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
392 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
393 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
394 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'queries'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
395 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
396 |
managerClass |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
397 |
"backlink to my manager class (needed by the settings app)" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
398 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
399 |
^ HGSourceCodeManager |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
400 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
401 |
"Created: / 19-04-2011 / 12:46:52 / cg" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
402 |
"Modified: / 13-11-2012 / 22:15:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
403 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
404 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
405 |
!HGSourceCodeManagementSettingsAppl methodsFor:'actions'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
406 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
407 |
doTestHGCommand |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
408 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
409 |
self hgCommand value isEmptyOrNil ifTrue:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
410 |
self doTestHGCommand: HGCommand hgCommand |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
411 |
] ifFalse:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
412 |
self doTestHGCommand: self hgCommand value |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
413 |
] |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
414 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
415 |
"Created: / 19-11-2012 / 21:32:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
416 |
"Modified: / 21-01-2013 / 04:59:14 / jv" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
417 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
418 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
419 |
doTestHGCommand: command |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
420 |
| version versionString | |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
421 |
(OperatingSystem canExecuteCommand: command) ifFalse:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
422 |
Dialog warn: 'Cannot execute hg command.\\Make sure Metcurial is installed and PATH is set up correctly' withCRs. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
423 |
^self. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
424 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
425 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
426 |
[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
427 |
versionString := OperatingSystem getCommandOutputFrom:('"%1" --version' bindWith:command). |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
428 |
version := (HGCommandParser on: versionString) parseCommandVersion. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
429 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
430 |
(HGCommand hgVersionIsSupported:version) ifTrue:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
431 |
Dialog information: ('Installed Mercurial version is OK.\\Reported version: ', versionString) withCRs. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
432 |
] ifFalse:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
433 |
Dialog warn: ('Installed Mercurial is not (yet) supported.\\Reported version: ', versionString) withCRs. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
434 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
435 |
] on: HGCommandError do:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
436 |
Dialog warn: 'Failed to read ''',command,' --version'''. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
437 |
^self |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
438 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
439 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
440 |
"Created: / 19-11-2012 / 21:32:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
441 |
"Modified: / 21-01-2013 / 05:12:39 / jv" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
442 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
443 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
444 |
!HGSourceCodeManagementSettingsAppl methodsFor:'aspects'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
445 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
446 |
hgAutopush |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
447 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
448 |
hgAutopush isNil ifTrue:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
449 |
hgAutopush := self settingsAspectFor: #hgAutopush |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
450 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
451 |
^ hgAutopush |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
452 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
453 |
"Created: / 10-12-2012 / 02:38:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
454 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
455 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
456 |
hgCommand |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
457 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
458 |
hgCommand isNil ifTrue:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
459 |
hgCommand := self settingsAspectFor: #hgCommand |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
460 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
461 |
^ hgCommand |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
462 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
463 |
"Modified: / 19-11-2012 / 21:30:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
464 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
465 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
466 |
hgDiff2Command |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
467 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
468 |
hgDiff2Command isNil ifTrue:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
469 |
hgDiff2Command := self settingsAspectFor: #hgDiff2Command |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
470 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
471 |
^ hgDiff2Command |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
472 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
473 |
"Created: / 19-11-2012 / 21:30:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
474 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
475 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
476 |
hgDiff3Command |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
477 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
478 |
hgDiff3Command isNil ifTrue:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
479 |
hgDiff3Command := self settingsAspectFor: #hgDiff3Command |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
480 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
481 |
^ hgDiff3Command |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
482 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
483 |
"Created: / 19-11-2012 / 21:30:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
484 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
485 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
486 |
settings |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
487 |
^#(hgCommand hgAutopush) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
488 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
489 |
"Created: / 10-12-2012 / 02:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
490 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
491 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
492 |
!HGSourceCodeManagementSettingsAppl methodsFor:'help'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
493 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
494 |
editorHelpRelativeWikiURL |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
495 |
"the relative URL of the dialog-description in the Wiki" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
496 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
497 |
^ 'Settings_HGSourceCodeManagerSettings' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
498 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
499 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
500 |
!HGSourceCodeManagementSettingsAppl methodsFor:'helpers'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
501 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
502 |
settingsAspectFor: settingName |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
503 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
504 |
|holder| |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
505 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
506 |
self createBuilder. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
507 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
508 |
(holder := builder bindingAt:settingName) isNil ifTrue:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
509 |
holder := (currentUserPrefs perform: settingName asSymbol) asValue. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
510 |
holder onChangeSend:#updateModifiedChannel to:self. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
511 |
builder aspectAt:settingName put:holder |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
512 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
513 |
^ holder. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
514 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
515 |
"Created: / 25-05-2009 / 18:43:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
516 |
"Modified: / 22-12-2011 / 15:13:37 / cg" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
517 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
518 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
519 |
!HGSourceCodeManagementSettingsAppl methodsFor:'protocol'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
520 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
521 |
basicReadSettings |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
522 |
self shownInBrowserMenusHolder value:HGSourceCodeManager shownInBrowserMenus. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
523 |
self readAspects:self settings from:currentUserPrefs |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
524 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
525 |
"Modified: / 10-12-2012 / 02:41:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
526 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
527 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
528 |
basicSaveSettings |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
529 |
HGSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
530 |
self writeAspects: self settings to: currentUserPrefs |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
531 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
532 |
"Modified: / 10-12-2012 / 02:40:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
533 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
534 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
535 |
help |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
536 |
|filename| |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
537 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
538 |
filename := self helpFilename. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
539 |
filename isNil ifTrue:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
540 |
self warn:(self resources string:'Sorry - no Help available here.'). |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
541 |
^ self. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
542 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
543 |
self withWaitCursorDo:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
544 |
| file | |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
545 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
546 |
file := (HTMLDocumentView helpFileFor: filename) asFilename. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
547 |
file isNil ifTrue:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
548 |
file := (Smalltalk getPackageDirectoryForPackage: self class package) / 'docs' / 'output' / 'html' / 'settings.html'. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
549 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
550 |
file exists ifTrue:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
551 |
HTMLDocumentView openDocumentation: file. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
552 |
] ifFalse:[ |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
553 |
self warn:'Missing help file: doc/online/<language>/help/' , filename,'\\You can download missing files from "www.exept.de".' withCRs. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
554 |
] |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
555 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
556 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
557 |
]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
558 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
559 |
"Created: / 22-01-2013 / 20:39:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
560 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
561 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
562 |
helpFilename |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
563 |
"subclasses must return the relative name of a helpFile |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
564 |
in the doc/online/<language>/help directory. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
565 |
Or nil, if no help is available." |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
566 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
567 |
^'HG/settings.html'. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
568 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
569 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
570 |
HGSourceCodeManagementSettingsAppl basicNew help |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
571 |
" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
572 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
573 |
"Modified (comment): / 22-01-2013 / 20:37:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
574 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
575 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
576 |
!HGSourceCodeManagementSettingsAppl methodsFor:'queries'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
577 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
578 |
hasUnsavedChanges |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
579 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
580 |
(HGSourceCodeManager shownInBrowserMenus ~= self shownInBrowserMenusHolder value) |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
581 |
ifTrue:[^ true]. |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
582 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
583 |
^ self hasChangedAspectIn:self settings asComparedTo: currentUserPrefs |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
584 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
585 |
"Modified: / 10-12-2012 / 02:40:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
586 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
587 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
588 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
589 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
590 |
version |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
591 |
^ '$Header: /cvs/stx/stx/libscm/mercurial/HGSourceCodeManagementSettingsAppl.st.orig,v 1.1 2015-01-16 14:42:08 vrany Exp $' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
592 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
593 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
594 |
version_CVS |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
595 |
^ '$Header: /cvs/stx/stx/libscm/mercurial/HGSourceCodeManagementSettingsAppl.st.orig,v 1.1 2015-01-16 14:42:08 vrany Exp $' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
596 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
597 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
598 |
version_HG |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
599 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
600 |
^ '$Changeset: <not expanded> $' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
601 |
! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
602 |
|
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
603 |
version_SVN |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
604 |
^ '$Id: HGSourceCodeManagementSettingsAppl.st.orig,v 1.1 2015-01-16 14:42:08 vrany Exp $' |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
605 |
! ! |
61df05330245
Merged with mercurial revision ad2f5647305 (120 changesets total)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
606 |