author | Claus Gittinger <cg@exept.de> |
Sat, 08 Jun 2019 13:52:49 +0200 | |
branch | cvs_MAIN |
changeset 874 | d99aae20b9ea |
parent 855 | 2a1f45756924 |
child 882 | 7408432b5364 |
permissions | -rw-r--r-- |
850 | 1 |
"{ Encoding: utf8 }" |
2 |
||
210 | 3 |
" |
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
4 |
stx:libscm - a new source code management library for Smalltalk/X |
509
f92210d4585b
Updated copyright notice.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
449
diff
changeset
|
5 |
Copyright (C) 2012-2015 Jan Vrany |
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
6 |
|
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
7 |
This library is free software; you can redistribute it and/or |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
8 |
modify it under the terms of the GNU Lesser General Public |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
9 |
License as published by the Free Software Foundation; either |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
10 |
version 2.1 of the License. |
210 | 11 |
|
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
12 |
This library is distributed in the hope that it will be useful, |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
13 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
14 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
15 |
Lesser General Public License for more details. |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
16 |
|
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
17 |
You should have received a copy of the GNU Lesser General Public |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
18 |
License along with this library; if not, write to the Free Software |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
19 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
210 | 20 |
" |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
21 |
"{ Package: 'stx:libscm/mercurial' }" |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
22 |
|
543
7de1b340a316
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
512
diff
changeset
|
23 |
"{ NameSpace: Smalltalk }" |
7de1b340a316
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
512
diff
changeset
|
24 |
|
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
25 |
AbstractSourceCodeManagementSettingsAppl subclass:#HGSourceCodeManagementSettingsAppl |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
26 |
instanceVariableNames:'defaultLogo hgCommand hgDiff2Command hgDiff3Command hgAutopush |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
27 |
infoPanel hgrcAspect' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
28 |
classVariableNames:'IgnoreCheckUsername IgnoreCheckMenuLayout' |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
29 |
poolDictionaries:'' |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
30 |
category:'SCM-Mercurial-StX-Interface' |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
31 |
! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
32 |
|
210 | 33 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
34 |
||
35 |
copyright |
|
36 |
" |
|
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
37 |
stx:libscm - a new source code management library for Smalltalk/X |
509
f92210d4585b
Updated copyright notice.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
449
diff
changeset
|
38 |
Copyright (C) 2012-2015 Jan Vrany |
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
39 |
|
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
40 |
This library is free software; you can redistribute it and/or |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
41 |
modify it under the terms of the GNU Lesser General Public |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
42 |
License as published by the Free Software Foundation; either |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
43 |
version 2.1 of the License. |
210 | 44 |
|
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
45 |
This library is distributed in the hope that it will be useful, |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
46 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
47 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
48 |
Lesser General Public License for more details. |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
49 |
|
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
50 |
You should have received a copy of the GNU Lesser General Public |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
51 |
License along with this library; if not, write to the Free Software |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
210
diff
changeset
|
52 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
210 | 53 |
" |
54 |
! ! |
|
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
55 |
|
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
56 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'initialization'! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
57 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
58 |
initialize |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
59 |
"Invoked at system start or when the class is dynamically loaded." |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
60 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
61 |
"/ please change as required (and remove this comment) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
62 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
63 |
IgnoreCheckUsername := false. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
64 |
IgnoreCheckMenuLayout := false. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
65 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
66 |
"Modified: / 18-02-2014 / 11:46:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
67 |
! ! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
68 |
|
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
69 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
70 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
71 |
defaultIcon |
500
de559e4d92ec
Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents:
498
diff
changeset
|
72 |
<resource: #programImage> |
de559e4d92ec
Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents:
498
diff
changeset
|
73 |
|
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
74 |
^ self defaultIcon3 |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
75 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
76 |
"Created: / 22-12-2011 / 13:47:11 / cg" |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
77 |
! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
78 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
79 |
defaultIcon1 |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
80 |
<resource: #image> |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
81 |
"This resource specification was automatically generated |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
82 |
by the ImageEditor of ST/X." |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
83 |
"Do not manually edit this!! If it is corrupted, |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
84 |
the ImageEditor may not be able to read the specification." |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
85 |
" |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
86 |
self defaultIcon1 inspect |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
87 |
ImageEditor openOnClass:self andSelector:#defaultIcon1 |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
88 |
Icon flushCachedIcons" |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
89 |
|
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
90 |
^ Icon |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
91 |
constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon1' |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
92 |
ifAbsentPut:[ |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
93 |
(Depth8Image new) |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
94 |
width:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
95 |
height:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
96 |
photometric:(#palette); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
97 |
bitsPerSample:(#[ 8 ]); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
98 |
samplesPerPixel:(1); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
99 |
bits:(ByteArray |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
100 |
fromPackedString:' |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
101 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
102 |
B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<P@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
103 |
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^ |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
104 |
@@@SF!!<_@@$HB@ HB@0FH@L@@BDI@AHC@@@@HP@O@BHIB@ HB@LFH0H@@@@ABQ0@@@@@@@@!!A@@DB@ HCA0OI@8@@@@@@@@@@A\@@@@@@@XDB@ HBP8%I D@ |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
105 |
@@@@@@@BA@$D@P@@@@8IB@ LC P''C0@@@@@@@@DIB@ HBQ0@@@8LA@XA@Q<Y@0@@@@@@@@PLB@ DA@@@@@PCB" JC2T[@@@@@@@@@@PLB@PPBP@@@@P)JB$I |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
106 |
J!!HA@@@@@@@@@B,LBQXCKB,@A XACQP-F0L@@@@@@@@@@@(RK"T,D0@@BA,/LCD@L @@@@@@@@@@@@@@@ $!!@@@@@QTTC@ 3@@@@@@@@@@@@@@@@@@@@@@@@ |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
107 |
@CP\L0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
108 |
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 ]; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
109 |
mask:((ImageMask new) |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
110 |
width:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
111 |
height:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
112 |
bits:(ByteArray |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
113 |
fromPackedString:'@@@@@@@@@G>@@O? @_?0@??8@??8@??<@??<O??>__?>_O?>_G?>NA?>@P_>A<_<C>_<C>_8C>_8C>?0C<? @8?@@@\@@@@@'); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
114 |
yourself); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
115 |
yourself |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
116 |
] |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
117 |
! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
118 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
119 |
defaultIcon2 |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
120 |
<resource: #image> |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
121 |
"This resource specification was automatically generated |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
122 |
by the ImageEditor of ST/X." |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
123 |
"Do not manually edit this!! If it is corrupted, |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
124 |
the ImageEditor may not be able to read the specification." |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
125 |
" |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
126 |
self defaultIcon2 inspect |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
127 |
ImageEditor openOnClass:self andSelector:#defaultIcon2 |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
128 |
Icon flushCachedIcons" |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
129 |
|
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
130 |
^ Icon |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
131 |
constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon2' |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
132 |
ifAbsentPut:[ |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
133 |
(Depth8Image new) |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
134 |
width:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
135 |
height:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
136 |
photometric:(#palette); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
137 |
bitsPerSample:(#[ 8 ]); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
138 |
samplesPerPixel:(1); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
139 |
bits:(ByteArray |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
140 |
fromPackedString:' |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
141 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
142 |
B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<P@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
143 |
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^ |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
144 |
@@@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@ |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
145 |
@@@@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 |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
146 |
J!!HA@@@@@@@@@B,LHB@YHB@ A XACQP-F0L@@@@@@@@ @@(RK"T H@@@BA,/LCD@L @@@@@@@@@@HB@ HB@ MP@@@QTTC@ 3@@@@@@@@@@@@@A$ HB@5@@@@ |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
147 |
@CP\L0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
148 |
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 ]; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
149 |
mask:((ImageMask new) |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
150 |
width:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
151 |
height:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
152 |
bits:(ByteArray |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
153 |
fromPackedString:'@@@@@@@@@G>@@O? @_?0@??8@??8@??<@??<O??>__?>_O?>_??>O=?>GR_>G<_<_>_<O>_8G?_8C??0K<? G<?@C8\@@@@@'); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
154 |
yourself); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
155 |
yourself |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
156 |
] |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
157 |
! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
158 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
159 |
defaultIcon3 |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
160 |
<resource: #image> |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
161 |
"This resource specification was automatically generated |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
162 |
by the ImageEditor of ST/X." |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
163 |
"Do not manually edit this!! If it is corrupted, |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
164 |
the ImageEditor may not be able to read the specification." |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
165 |
" |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
166 |
self defaultIcon3 inspect |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
167 |
ImageEditor openOnClass:self andSelector:#defaultIcon3 |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
168 |
Icon flushCachedIcons" |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
169 |
|
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
170 |
^ Icon constantNamed:'HGSourceCodeManagementSettingsAppl defaultIcon3' |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
171 |
ifAbsentPut:[ |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
172 |
(Depth8Image new) |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
173 |
width:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
174 |
height:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
175 |
photometric:(#palette); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
176 |
bitsPerSample:(#[ 8 ]); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
177 |
samplesPerPixel:(1); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
178 |
bits:(ByteArray |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
179 |
fromPackedString:' |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
180 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
181 |
B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<N@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
182 |
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^ |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
183 |
@@@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@ |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
184 |
@@@@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 |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
185 |
DA@PDA@@@@@@@B,LOC0=OC0<A XADA@PDA@PDA@@@@@<@@(RK"T<O@@@BA,/LCD@DA@@@@@@@@@@OC0<OC0<MP@@@QTTC@ 3DA@@@@@@@@@@@C4<OC05@@@@ |
501
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
186 |
@CP\L0@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
187 |
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 ]; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
188 |
mask:((ImageMask new) |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
189 |
width:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
190 |
height:24; |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
191 |
bits:(ByteArray |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
192 |
fromPackedString:'@@@@@@@@@G>@@O? @_?0@??8@??8@??<@??<O??>__?>_O?>_??>O=?>GR_>G<_<_>_<O>_8G?_>C??>K<?0G<?0C8\0@@@@'); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
193 |
yourself); |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
194 |
yourself |
4be1efdcbf41
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
500
diff
changeset
|
195 |
] |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
196 |
! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
197 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
198 |
defaultLogo |
850 | 199 |
<resource: #programImage> |
200 |
||
65 | 201 |
^ HGIconLibrary hgLogo2 |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
202 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
203 |
"Created: / 04-10-2012 / 19:01:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
65 | 204 |
"Modified: / 15-11-2012 / 23:12:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
850 | 205 |
"Modified: / 28-07-2018 / 09:56:23 / Claus Gittinger" |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
206 |
! ! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
207 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
208 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'interface specs'! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
209 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
210 |
windowSpec |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
211 |
"This resource specification was automatically generated |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
212 |
by the UIPainter of ST/X." |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
213 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
214 |
"Do not manually edit this!! If it is corrupted, |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
215 |
the UIPainter may not be able to read the specification." |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
216 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
217 |
" |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
218 |
UIPainter new openOnClass:HGSourceCodeManagementSettingsAppl andSelector:#windowSpec |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
219 |
HGSourceCodeManagementSettingsAppl new openInterface:#windowSpec |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
220 |
HGSourceCodeManagementSettingsAppl open |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
221 |
" |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
222 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
223 |
<resource: #canvas> |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
224 |
|
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
225 |
^ |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
226 |
#(FullSpec |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
227 |
name: windowSpec |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
228 |
window: |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
229 |
(WindowSpec |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
230 |
label: 'Mercurial Settings' |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
231 |
name: 'Mercurial Settings' |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
232 |
min: (Point 10 10) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
233 |
bounds: (Rectangle 0 0 695 627) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
234 |
) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
235 |
component: |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
236 |
(SpecCollection |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
237 |
collection: ( |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
238 |
(LabelSpec |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
239 |
label: ' Mercurial Settings' |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
240 |
name: 'MercurialSettingsTitle' |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
241 |
layout: (LayoutFrame 0 0 0 0 0 1 66 0) |
683 | 242 |
style: (FontDescription helvetica medium roman 18 #'iso10646-1' nil nil) |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
243 |
backgroundColor: (Color 100.0 100.0 100.0) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
244 |
translateLabel: true |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
245 |
adjust: left |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
246 |
) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
247 |
(LabelSpec |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
248 |
label: 'Logo' |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
249 |
name: 'MercurialLogo' |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
250 |
layout: (LayoutFrame -71 1 -1 0 4 1 65 0) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
251 |
hasCharacterOrientedLabel: false |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
252 |
backgroundColor: (Color 100.0 100.0 100.0) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
253 |
translateLabel: true |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
254 |
labelChannel: defaultLogo |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
255 |
) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
256 |
(ViewSpec |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
257 |
name: 'OuterPanel' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
258 |
layout: (LayoutFrame 0 0 67 0 0 1 0 1) |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
259 |
component: |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
260 |
(SpecCollection |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
261 |
collection: ( |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
262 |
(SubCanvasSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
263 |
name: 'InfoPanel' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
264 |
layout: (LayoutFrame 0 0 0 0 0 1 40 0) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
265 |
level: 0 |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
266 |
initiallyInvisible: true |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
267 |
hasHorizontalScrollBar: false |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
268 |
hasVerticalScrollBar: false |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
269 |
clientKey: infoPanel |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
270 |
createNewBuilder: false |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
271 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
272 |
(ViewSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
273 |
name: 'InnerPanel' |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
274 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
275 |
component: |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
276 |
(SpecCollection |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
277 |
collection: ( |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
278 |
(CheckBoxSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
279 |
label: 'Show in Menus' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
280 |
name: 'CheckBox1' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
281 |
layout: (LayoutFrame 0 0 0 0 0 1 30 0) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
282 |
activeHelpKey: shownInBrowserMenus |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
283 |
model: shownInBrowserMenusHolder |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
284 |
translateLabel: true |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
285 |
) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
286 |
(ViewSpec |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
287 |
name: 'Settings' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
288 |
layout: (LayoutFrame 0 0 40 0 0 1 0 1) |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
289 |
component: |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
290 |
(SpecCollection |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
291 |
collection: ( |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
292 |
(VerticalPanelViewSpec |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
293 |
name: 'GeneralSettingsPanel' |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
294 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
295 |
horizontalLayout: fit |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
296 |
verticalLayout: top |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
297 |
horizontalSpace: 3 |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
298 |
verticalSpace: 3 |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
299 |
component: |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
300 |
(SpecCollection |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
301 |
collection: ( |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
302 |
(ViewSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
303 |
name: 'Panel1' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
304 |
component: |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
305 |
(SpecCollection |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
306 |
collection: ( |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
307 |
(LabelSpec |
683 | 308 |
label: '''hg'' Command:' |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
309 |
name: 'CommandLabel' |
683 | 310 |
layout: (LayoutFrame 5 0 -3 0 150 0 27 0) |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
311 |
translateLabel: true |
683 | 312 |
adjust: right |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
313 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
314 |
(FilenameInputFieldSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
315 |
name: 'HGCommand' |
683 | 316 |
layout: (LayoutFrame 150 0 0 0 -100 1 0 1) |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
317 |
enableChannel: hgEnabled |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
318 |
model: hgCommand |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
319 |
acceptOnPointerLeave: true |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
320 |
emptyFieldReplacementText: 'Autodetect' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
321 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
322 |
(ActionButtonSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
323 |
label: 'Test' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
324 |
name: 'HGCommandTest' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
325 |
layout: (LayoutFrame -100 1 0 0 -8 1 0 1) |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
326 |
visibilityChannel: false |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
327 |
translateLabel: true |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
328 |
model: doTestHGCommand |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
329 |
) |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
330 |
(ActionButtonSpec |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
331 |
label: 'Browse' |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
332 |
name: 'BrowseButton' |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
333 |
layout: (LayoutFrame -100 1 0 0 -8 1 0 1) |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
334 |
translateLabel: true |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
335 |
model: doSelectHGCommand |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
336 |
enableChannel: hgEnabled |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
337 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
338 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
339 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
340 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
341 |
extent: (Point 695 25) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
342 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
343 |
(ViewSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
344 |
name: 'Spacer1' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
345 |
extent: (Point 695 15) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
346 |
) |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
347 |
(CheckBoxSpec |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
348 |
label: 'Automatically push changes to upstream repository' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
349 |
name: 'CheckBox2' |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
350 |
enableChannel: hgEnabled |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
351 |
model: hgAutopush |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
352 |
translateLabel: true |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
353 |
extent: (Point 695 22) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
354 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
355 |
(ViewSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
356 |
name: 'Spacer2' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
357 |
extent: (Point 695 14) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
358 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
359 |
(ViewSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
360 |
name: 'SettingsFile' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
361 |
component: |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
362 |
(SpecCollection |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
363 |
collection: ( |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
364 |
(LabelSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
365 |
label: 'Mercurial user configuration file:' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
366 |
name: 'Label1' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
367 |
layout: (LayoutFrame 25 0 -1 0 0 1 24 0) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
368 |
translateLabel: true |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
369 |
adjust: left |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
370 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
371 |
(LinkButtonSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
372 |
label: 'LinkButton' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
373 |
name: 'EditPreferences' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
374 |
layout: (LayoutFrame 25 0 28 0 -100 1 58 0) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
375 |
foregroundColor: (Color 0.0 0.0 100.0) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
376 |
translateLabel: true |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
377 |
labelChannel: hgrcAspect |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
378 |
adjust: left |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
379 |
model: doEditHGRC |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
380 |
enableChannel: hgEnabled |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
381 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
382 |
(ActionButtonSpec |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
383 |
label: 'Edit' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
384 |
name: 'Button1' |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
385 |
layout: (LayoutFrame -106 1 -17 0.5 -6 1 8 0.5) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
386 |
translateLabel: true |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
387 |
model: doEditHGRC |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
388 |
enableChannel: hgEnabled |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
389 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
390 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
391 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
392 |
) |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
393 |
extent: (Point 695 92) |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
394 |
) |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
395 |
) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
396 |
|
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
397 |
) |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
398 |
) |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
399 |
) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
400 |
|
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
401 |
) |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
402 |
) |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
403 |
) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
404 |
|
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
405 |
) |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
406 |
) |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
407 |
) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
408 |
|
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
409 |
) |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
410 |
) |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
411 |
) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
412 |
|
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
413 |
) |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
414 |
) |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
415 |
! ! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
416 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
417 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'queries'! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
418 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
419 |
managerClass |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
420 |
"backlink to my manager class (needed by the settings app)" |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
421 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
422 |
^ HGSourceCodeManager |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
423 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
424 |
"Created: / 19-04-2011 / 12:46:52 / cg" |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
425 |
"Modified: / 13-11-2012 / 22:15:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
426 |
! ! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
427 |
|
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
428 |
!HGSourceCodeManagementSettingsAppl methodsFor:'actions'! |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
429 |
|
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
430 |
doCheckSettings |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
431 |
"Perform some sanity check on current configuration" |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
432 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
433 |
self doCheckUsername ifFalse:[ ^ self ]. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
434 |
self doCheckMenuLayout ifFalse:[ ^ self ]. |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
435 |
self doCheckCommand ifFalse:[ ^ self ]. |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
436 |
self infoPanel hide. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
437 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
438 |
"Created: / 18-02-2014 / 10:04:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
439 |
"Modified: / 21-02-2014 / 10:32:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
440 |
! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
441 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
442 |
doEditHGRC |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
443 |
<resource: #uiCallback> |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
444 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
445 |
| hgrc editor | |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
446 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
447 |
hgrc := self hgrcAspect value asString string asFilename. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
448 |
hgrc exists ifFalse:[ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
449 |
hgrc writingFileDo:[ :s | |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
450 |
s nextPutAll: HGConfig userConfigFileTemplate |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
451 |
]. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
452 |
]. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
453 |
editor := WorkspaceApplication new. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
454 |
editor open. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
455 |
editor enqueueDelayedAction:[ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
456 |
editor loadFile: hgrc. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
457 |
editor syntaxHolder value: nil. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
458 |
] |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
459 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
460 |
"Modified: / 18-02-2014 / 10:43:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
461 |
! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
462 |
|
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
463 |
doSelectHGCommand |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
464 |
| guess executable | |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
465 |
|
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
466 |
guess := OperatingSystem pathOfCommand: 'hg'. |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
467 |
executable := Dialog requestFileName:(resources string:'Select hg command') default: guess ifFail:[ ^ self ]. |
449
d55058b5d58d
Try to be fool-proof: when configured command as whole exists as file, use it as it is.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
444
diff
changeset
|
468 |
(executable includes: Character space) ifTrue:[ |
d55058b5d58d
Try to be fool-proof: when configured command as whole exists as file, use it as it is.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
444
diff
changeset
|
469 |
executable := '"' , executable , '"'. |
d55058b5d58d
Try to be fool-proof: when configured command as whole exists as file, use it as it is.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
444
diff
changeset
|
470 |
]. |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
471 |
self hgCommand value: executable |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
472 |
|
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
473 |
"Created: / 21-02-2014 / 10:13:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
449
d55058b5d58d
Try to be fool-proof: when configured command as whole exists as file, use it as it is.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
444
diff
changeset
|
474 |
"Modified: / 17-07-2014 / 19:39:31 / jv" |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
475 |
! |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
476 |
|
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
477 |
doTestHGCommand |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
478 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
479 |
self hgCommand value isEmptyOrNil ifTrue:[ |
183
8f8315881c72
Bugfix in Settings (checking for Mercurial version).
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
151
diff
changeset
|
480 |
self doTestHGCommand: HGCommand hgCommand |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
481 |
] ifFalse:[ |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
482 |
self doTestHGCommand: self hgCommand value |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
483 |
] |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
484 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
485 |
"Created: / 19-11-2012 / 21:32:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
183
8f8315881c72
Bugfix in Settings (checking for Mercurial version).
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
151
diff
changeset
|
486 |
"Modified: / 21-01-2013 / 04:59:14 / jv" |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
487 |
! |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
488 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
489 |
doTestHGCommand: command |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
490 |
| version versionString | |
196
30c54b661abd
Documentation scripts for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
195
diff
changeset
|
491 |
(OperatingSystem canExecuteCommand: command) ifFalse:[ |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
492 |
Dialog warn: 'Cannot execute hg command.\\Make sure Metcurial is installed and PATH is set up correctly' withCRs. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
493 |
^self. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
494 |
]. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
495 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
496 |
[ |
183
8f8315881c72
Bugfix in Settings (checking for Mercurial version).
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
151
diff
changeset
|
497 |
versionString := OperatingSystem getCommandOutputFrom:('"%1" --version' bindWith:command). |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
498 |
version := (HGCommandParser on: versionString) parseCommandVersion. |
196
30c54b661abd
Documentation scripts for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
195
diff
changeset
|
499 |
|
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
500 |
(HGCommand hgVersionIsSupported:version) ifTrue:[ |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
501 |
Dialog information: ('Installed Mercurial version is OK.\\Reported version: ', versionString) withCRs. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
502 |
] ifFalse:[ |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
503 |
Dialog warn: ('Installed Mercurial is not (yet) supported.\\Reported version: ', versionString) withCRs. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
504 |
]. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
505 |
] on: HGCommandError do:[ |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
506 |
Dialog warn: 'Failed to read ''',command,' --version'''. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
507 |
^self |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
508 |
]. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
509 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
510 |
"Created: / 19-11-2012 / 21:32:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
183
8f8315881c72
Bugfix in Settings (checking for Mercurial version).
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
151
diff
changeset
|
511 |
"Modified: / 21-01-2013 / 05:12:39 / jv" |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
512 |
! ! |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
513 |
|
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
514 |
!HGSourceCodeManagementSettingsAppl methodsFor:'actions-checks'! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
515 |
|
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
516 |
doCheckCommand |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
517 |
"Check `hg` command. Return true if `hg` command exists |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
518 |
and of supported version, false otherwise." |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
519 |
|
444
8987b87a562a
hg command setting refactored to allow command and arguments to be specified.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
378
diff
changeset
|
520 |
| command | |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
521 |
|
444
8987b87a562a
hg command setting refactored to allow command and arguments to be specified.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
378
diff
changeset
|
522 |
command := self hgCommand value. |
8987b87a562a
hg command setting refactored to allow command and arguments to be specified.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
378
diff
changeset
|
523 |
command isEmptyOrNil ifTrue:[ |
8987b87a562a
hg command setting refactored to allow command and arguments to be specified.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
378
diff
changeset
|
524 |
command := OperatingSystem pathOfCommand:'hg'. |
8987b87a562a
hg command setting refactored to allow command and arguments to be specified.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
378
diff
changeset
|
525 |
command isNil ifTrue:[ |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
526 |
self infoPanel |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
527 |
reset; |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
528 |
beWarning; |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
529 |
message: (resources string:'Cannot find path to `hg` command'); |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
530 |
addButtonWithLabel: (self resources string:'Browse') action: [self infoPanel hide. self doSelectHGCommand ]; |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
531 |
show. |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
532 |
^ false |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
533 |
]. |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
534 |
]. |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
535 |
[ |
444
8987b87a562a
hg command setting refactored to allow command and arguments to be specified.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
378
diff
changeset
|
536 |
HGCommand hgCommandValidate: command |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
537 |
] on: HGInvalidVersionError do:[:ex | |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
538 |
self infoPanel |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
539 |
reset; |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
540 |
beWarning; |
874 | 541 |
message: (resources string:'Unsupported Mercurial version %1' with: (ex parameter asStringWith: $.)); |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
542 |
addButtonWithLabel: (self resources string:'Browse') action: [self infoPanel hide. self doSelectHGCommand ]; |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
543 |
show. |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
544 |
^ false |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
545 |
] on: HGCommandError do:[:ex | |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
546 |
self infoPanel |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
547 |
reset; |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
548 |
beWarning; |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
549 |
message: (resources string:ex description); |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
550 |
addButtonWithLabel: (self resources string:'Browse') action: [self infoPanel hide. self doSelectHGCommand ]; |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
551 |
show. |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
552 |
^ false |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
553 |
]. |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
554 |
^ true. |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
555 |
|
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
556 |
"Created: / 21-02-2014 / 09:58:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
874 | 557 |
"Modified: / 08-06-2019 / 13:51:56 / Claus Gittinger" |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
558 |
! |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
559 |
|
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
560 |
doCheckMenuLayout |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
561 |
"Check if browser SCM menu layouyt is not #old. Return true, if yes, |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
562 |
false otherwise. As a sideffect, show message in info panel" |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
563 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
564 |
IgnoreCheckUsername ifTrue:[ ^ true ]. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
565 |
(UserPreferences current sourceCodeManagementMenuLayout = #old) ifTrue:[ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
566 |
self infoPanel |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
567 |
reset; |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
568 |
beWarning; |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
569 |
message: (resources string:'SCM menu layout in set to ''old'' which does not support HG'); |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
570 |
addButtonWithLabel: (self resources string:'Use ''Compact''') action: [ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
571 |
UserPreferences current sourceCodeManagementMenuLayout: #compact. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
572 |
(Dialog confirm: (resources string: 'Settings changed to ''Compact''\\Save settings?') withCRs) ifTrue:[ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
573 |
SettingsDialog saveSettingsWithoutAskingForFile |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
574 |
]. |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
575 |
self doCheckCommand |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
576 |
]; |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
577 |
addButtonWithLabel: (self resources string:'Use ''Inline''') action: [ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
578 |
UserPreferences current sourceCodeManagementMenuLayout: #inline. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
579 |
(Dialog confirm: (resources string: 'Settings changed to ''Compact''\\Save settings?') withCRs) ifTrue:[ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
580 |
SettingsDialog saveSettingsWithoutAskingForFile |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
581 |
]. |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
582 |
self doCheckCommand |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
583 |
]; |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
584 |
addButtonWithLabel: (resources string:'Ignore') action: [IgnoreCheckUsername := true. self infoPanel hide.]; |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
585 |
show. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
586 |
^ false |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
587 |
]. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
588 |
^ true. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
589 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
590 |
"Created: / 18-02-2014 / 11:46:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
591 |
"Modified: / 21-02-2014 / 10:32:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
592 |
! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
593 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
594 |
doCheckUsername |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
595 |
"Check if username is configured. Return true, if yes, |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
596 |
false otherwise. As a sideffect, show message in info panel" |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
597 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
598 |
| username | |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
599 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
600 |
IgnoreCheckUsername ifTrue:[ ^ true ]. |
543
7de1b340a316
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
512
diff
changeset
|
601 |
[ |
7de1b340a316
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
512
diff
changeset
|
602 |
username := HGConfig userConfig ui_username. |
7de1b340a316
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
512
diff
changeset
|
603 |
] on:HGCommandError do:[ |
7de1b340a316
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
512
diff
changeset
|
604 |
]. |
7de1b340a316
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
512
diff
changeset
|
605 |
|
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
606 |
"/ Check for lazy users which only uncomment the line and |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
607 |
"/ does not bother with filling in proper values. See |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
608 |
"/ HGConfig userConfigFileTemplate |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
609 |
(username isNil or:[username = 'FirstName LastName <Email>']) ifTrue:[ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
610 |
self infoPanel |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
611 |
reset; |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
612 |
beWarning; |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
613 |
message: (resources string:'Commit author signature not configured'); |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
614 |
addButtonWithLabel: (self resources string:'Edit') action: [self doEditHGRC. self doCheckMenuLayout]; |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
615 |
addButtonWithLabel: (resources string:'Ignore') action: [IgnoreCheckUsername := true. self doCheckMenuLayout]; |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
616 |
show. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
617 |
^ false |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
618 |
]. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
619 |
^ true. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
620 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
621 |
"Created: / 18-02-2014 / 11:30:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
622 |
! ! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
623 |
|
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
624 |
!HGSourceCodeManagementSettingsAppl methodsFor:'aspects'! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
625 |
|
151
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
626 |
hgAutopush |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
627 |
|
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
628 |
hgAutopush isNil ifTrue:[ |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
629 |
hgAutopush := self settingsAspectFor: #hgAutopush |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
630 |
]. |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
631 |
^ hgAutopush |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
632 |
|
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
633 |
"Created: / 10-12-2012 / 02:38:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
634 |
! |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
635 |
|
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
636 |
hgCommand |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
637 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
638 |
hgCommand isNil ifTrue:[ |
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
639 |
hgCommand := self settingsAspectFor: #hgCommand. |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
640 |
hgCommand onChangeSend: #doCheckCommand to: self. |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
641 |
]. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
642 |
^ hgCommand |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
643 |
|
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
644 |
"Modified: / 21-02-2014 / 10:33:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
645 |
! |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
646 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
647 |
hgDiff2Command |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
648 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
649 |
hgDiff2Command isNil ifTrue:[ |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
650 |
hgDiff2Command := self settingsAspectFor: #hgDiff2Command |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
651 |
]. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
652 |
^ hgDiff2Command |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
653 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
654 |
"Created: / 19-11-2012 / 21:30:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
655 |
! |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
656 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
657 |
hgDiff3Command |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
658 |
|
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
659 |
hgDiff3Command isNil ifTrue:[ |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
660 |
hgDiff3Command := self settingsAspectFor: #hgDiff3Command |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
661 |
]. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
662 |
^ hgDiff3Command |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
663 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
664 |
"Created: / 19-11-2012 / 21:30:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
151
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
665 |
! |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
666 |
|
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
667 |
hgrcAspect |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
668 |
<resource: #uiAspect> |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
669 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
670 |
hgrcAspect isNil ifTrue:[ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
671 |
| hgrc | |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
672 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
673 |
hgrc := HGConfig userConfigFile asString asText. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
674 |
hgrc actionForAll:[ self doEditHGRC ]. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
675 |
hgrcAspect := hgrc asValue. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
676 |
]. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
677 |
^ hgrcAspect. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
678 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
679 |
"Modified: / 18-02-2014 / 10:40:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
680 |
! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
681 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
682 |
infoPanel |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
683 |
infoPanel isNil ifTrue:[ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
684 |
infoPanel := Tools::InlineMessageDialog new |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
685 |
]. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
686 |
^ infoPanel |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
687 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
688 |
"Created: / 09-02-2012 / 19:23:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
689 |
"Modified: / 18-02-2014 / 10:02:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
690 |
! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
691 |
|
151
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
692 |
settings |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
693 |
^#(hgCommand hgAutopush) |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
694 |
|
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
695 |
"Created: / 10-12-2012 / 02:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
696 |
! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
697 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
698 |
shownInBrowserMenusHolder |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
699 |
shownInBrowserMenusHolder isNil ifTrue:[ |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
700 |
shownInBrowserMenusHolder := true asValue. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
701 |
shownInBrowserMenusHolder onChangeSend:#updateModifiedChannel to:self. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
702 |
shownInBrowserMenusHolder onChangeSend:#doCheckSettings to:self. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
703 |
]. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
704 |
^ shownInBrowserMenusHolder. |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
705 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
706 |
"Created: / 18-02-2014 / 10:05:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
707 |
! ! |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
708 |
|
378
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
709 |
!HGSourceCodeManagementSettingsAppl methodsFor:'aspects-queries'! |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
710 |
|
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
711 |
hgEnabled |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
712 |
^ self shownInBrowserMenusHolder |
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
713 |
|
5c36325d6f60
Better `hg` command configuration handling and validation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
375
diff
changeset
|
714 |
"Created: / 21-02-2014 / 10:37:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
715 |
! ! |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
716 |
|
497 | 717 |
!HGSourceCodeManagementSettingsAppl methodsFor:'help'! |
718 |
||
719 |
editorHelpRelativeWikiURL |
|
720 |
"the relative URL of the dialog-description in the Wiki" |
|
721 |
||
722 |
^ 'Settings_HGSourceCodeManagerSettings' |
|
723 |
! ! |
|
724 |
||
80
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
725 |
!HGSourceCodeManagementSettingsAppl methodsFor:'helpers'! |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
726 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
727 |
settingsAspectFor: settingName |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
728 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
729 |
|holder| |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
730 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
731 |
self createBuilder. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
732 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
733 |
(holder := builder bindingAt:settingName) isNil ifTrue:[ |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
734 |
holder := (currentUserPrefs perform: settingName asSymbol) asValue. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
735 |
holder onChangeSend:#updateModifiedChannel to:self. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
736 |
builder aspectAt:settingName put:holder |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
737 |
]. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
738 |
^ holder. |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
739 |
|
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
740 |
"Created: / 25-05-2009 / 18:43:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
8f300696b26b
Added configurable path to 'hg' command.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
741 |
"Modified: / 22-12-2011 / 15:13:37 / cg" |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
742 |
! ! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
743 |
|
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
744 |
!HGSourceCodeManagementSettingsAppl methodsFor:'hooks'! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
745 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
746 |
commonPostOpen |
742 | 747 |
super commonPostOpen. |
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
748 |
self doCheckSettings |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
749 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
750 |
"Created: / 18-02-2014 / 10:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
751 |
! ! |
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
752 |
|
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
753 |
!HGSourceCodeManagementSettingsAppl methodsFor:'protocol'! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
754 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
755 |
basicReadSettings |
49
ffb879bfafe7
- stx_libscm_mercurial
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
46
diff
changeset
|
756 |
self shownInBrowserMenusHolder value:HGSourceCodeManager shownInBrowserMenus. |
151
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
757 |
self readAspects:self settings from:currentUserPrefs |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
758 |
|
151
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
759 |
"Modified: / 10-12-2012 / 02:41:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
760 |
! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
761 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
762 |
basicSaveSettings |
151
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
763 |
HGSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. |
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
764 |
self writeAspects: self settings to: currentUserPrefs |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
765 |
|
151
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
766 |
"Modified: / 10-12-2012 / 02:40:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
767 |
! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
768 |
|
192
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
769 |
help |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
770 |
|filename| |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
771 |
|
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
772 |
filename := self helpFilename. |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
773 |
filename isNil ifTrue:[ |
855 | 774 |
self warn:('Sorry - no Help available here.'). |
192
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
775 |
^ self. |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
776 |
]. |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
777 |
self withWaitCursorDo:[ |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
778 |
| file | |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
779 |
|
196
30c54b661abd
Documentation scripts for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
195
diff
changeset
|
780 |
file := (HTMLDocumentView helpFileFor: filename) asFilename. |
192
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
781 |
file isNil ifTrue:[ |
196
30c54b661abd
Documentation scripts for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
195
diff
changeset
|
782 |
file := (Smalltalk getPackageDirectoryForPackage: self class package) / 'docs' / 'output' / 'html' / 'settings.html'. |
192
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
783 |
]. |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
784 |
file exists ifTrue:[ |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
785 |
HTMLDocumentView openDocumentation: file. |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
786 |
] ifFalse:[ |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
787 |
self warn:'Missing help file: doc/online/<language>/help/' , filename,'\\You can download missing files from "www.exept.de".' withCRs. |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
788 |
] |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
789 |
|
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
790 |
|
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
791 |
]. |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
792 |
|
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
793 |
"Created: / 22-01-2013 / 20:39:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
855 | 794 |
"Modified: / 09-08-2018 / 15:30:52 / Claus Gittinger" |
192
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
795 |
! |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
796 |
|
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
797 |
helpFilename |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
798 |
"subclasses must return the relative name of a helpFile |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
799 |
in the doc/online/<language>/help directory. |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
800 |
Or nil, if no help is available." |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
801 |
|
196
30c54b661abd
Documentation scripts for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
195
diff
changeset
|
802 |
^'HG/settings.html'. |
192
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
803 |
|
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
804 |
" |
196
30c54b661abd
Documentation scripts for Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
195
diff
changeset
|
805 |
HGSourceCodeManagementSettingsAppl basicNew help |
192
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
806 |
" |
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
807 |
|
c40e091cc26e
Added reference to help file.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
808 |
"Modified (comment): / 22-01-2013 / 20:37:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
809 |
! ! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
810 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
811 |
!HGSourceCodeManagementSettingsAppl methodsFor:'queries'! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
812 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
813 |
hasUnsavedChanges |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
814 |
|
49
ffb879bfafe7
- stx_libscm_mercurial
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
46
diff
changeset
|
815 |
(HGSourceCodeManager shownInBrowserMenus ~= self shownInBrowserMenusHolder value) |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
816 |
ifTrue:[^ true]. |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
817 |
|
151
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
818 |
^ self hasChangedAspectIn:self settings asComparedTo: currentUserPrefs |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
819 |
|
151
527a1e85aef8
Support for 'autopush' in commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
820 |
"Modified: / 10-12-2012 / 02:40:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
821 |
! ! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
822 |
|
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
823 |
!HGSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
824 |
|
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
825 |
version |
683 | 826 |
^ '$Header$' |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
827 |
! |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
828 |
|
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
829 |
version_CVS |
683 | 830 |
^ '$Header$' |
498
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
831 |
! |
45cfae5e535b
class: HGSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
497
diff
changeset
|
832 |
|
54
66045198bfbc
More changes towards self hosting. Some work on model is still missing...
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
49
diff
changeset
|
833 |
version_HG |
115
b1ed2d29054b
version_HG changed to return string.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
80
diff
changeset
|
834 |
|
b1ed2d29054b
version_HG changed to return string.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
80
diff
changeset
|
835 |
^ '$Changeset: <not expanded> $' |
54
66045198bfbc
More changes towards self hosting. Some work on model is still missing...
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
49
diff
changeset
|
836 |
! |
66045198bfbc
More changes towards self hosting. Some work on model is still missing...
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
49
diff
changeset
|
837 |
|
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
838 |
version_SVN |
683 | 839 |
^ '$Id$' |
46
d5a192b11a1a
- More Smalltalk/X support
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
840 |
! ! |
183
8f8315881c72
Bugfix in Settings (checking for Mercurial version).
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
151
diff
changeset
|
841 |
|
375
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
842 |
|
6ecd3ade39be
More sanity check in HG settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
339
diff
changeset
|
843 |
HGSourceCodeManagementSettingsAppl initialize! |