author | Claus Gittinger <cg@exept.de> |
Tue, 05 Mar 2019 23:20:59 +0100 | |
changeset 6027 | ee9c37e8e045 |
parent 5390 | c2fbe363e643 |
permissions | -rw-r--r-- |
3048 | 1 |
" |
2 |
COPYRIGHT (c) 2006 by eXept Software AG |
|
3 |
All Rights Reserved |
|
4 |
||
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
2968 | 12 |
"{ Package: 'stx:libwidg2' }" |
13 |
||
5063 | 14 |
"{ NameSpace: Smalltalk }" |
15 |
||
2968 | 16 |
ApplicationModel subclass:#PrintingDialog |
17 |
instanceVariableNames:'doSetup selectedPrinterHolder selectedOrientationHolder |
|
18 |
numberOfCopiesHolder printerListHolder printers |
|
19 |
setupActionEnabledHolder orientationImageLabel |
|
20 |
numberOfCopiesTextEnabledHolder |
|
21 |
orientationRadioButtonEnabledHolder okButtonEnabledHolder |
|
22 |
paperSizeListHolder selectedPaperSizeHolder collateHolder |
|
23 |
collateImageLabel collateActionEnabledHolder |
|
24 |
paperSizeEnabledHolder statusLabel commentLabel locationLabel |
|
25 |
driverNameLabel answer' |
|
3624 | 26 |
classVariableNames:'PrintersSettings LastUsedPrinterSettings |
27 |
AskForConfirmUsageOfDefaultPrinterSettings' |
|
2968 | 28 |
poolDictionaries:'' |
2970 | 29 |
category:'Interface-Printing' |
2968 | 30 |
! |
31 |
||
3048 | 32 |
!PrintingDialog class methodsFor:'documentation'! |
33 |
||
34 |
copyright |
|
35 |
" |
|
36 |
COPYRIGHT (c) 2006 by eXept Software AG |
|
37 |
All Rights Reserved |
|
38 |
||
39 |
This software is furnished under a license and may be used |
|
40 |
only in accordance with the terms of that license and with the |
|
41 |
inclusion of the above copyright notice. This software may not |
|
42 |
be provided or otherwise made available to, or used by, any |
|
43 |
other person. No title to or ownership of the software is |
|
44 |
hereby transferred. |
|
45 |
" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
46 |
! |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
47 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
48 |
documentation |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
49 |
" |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
50 |
Opens a dialog to let user ask for a printer. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
51 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
52 |
[author:] |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
53 |
Felix Madrid (fm@exept.de) |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
54 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
55 |
See more example in PrinterContext. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
56 |
" |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
57 |
! |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
58 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
59 |
examples |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
60 |
" |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
61 |
[exBegin] |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
62 |
| printerInfo printer | |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
63 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
64 |
printerInfo := PrintingDialog getPrinterInfo. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
65 |
printerInfo isNil ifTrue:[^self]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
66 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
67 |
printer := PrinterContext fromPrinterInfo: printerInfo. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
68 |
printer startPrintJob: 'Some printJob from ST/X'. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
69 |
printer endPrintJob. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
70 |
[exEnd] |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
71 |
see more example in PrinterContext. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
72 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
73 |
" |
3048 | 74 |
! ! |
2968 | 75 |
|
3624 | 76 |
!PrintingDialog class methodsFor:'initialization'! |
77 |
||
78 |
initialize |
|
79 |
AskForConfirmUsageOfDefaultPrinterSettings := true. |
|
80 |
! ! |
|
81 |
||
82 |
!PrintingDialog class methodsFor:'accessing'! |
|
83 |
||
84 |
askForConfirmUsageOfDefaultPrinterSettings:something |
|
85 |
AskForConfirmUsageOfDefaultPrinterSettings := something. |
|
86 |
! ! |
|
87 |
||
2968 | 88 |
!PrintingDialog class methodsFor:'image specs'! |
89 |
||
90 |
collateImage |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
91 |
<resource: #image> |
2968 | 92 |
"This resource specification was automatically generated |
93 |
by the ImageEditor of ST/X." |
|
94 |
"Do not manually edit this!! If it is corrupted, |
|
95 |
the ImageEditor may not be able to read the specification." |
|
96 |
" |
|
97 |
self nonCollateImage inspect |
|
98 |
ImageEditor openOnClass:self andSelector:#nonCollateImage |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
99 |
Icon flushCachedIcons" |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
100 |
|
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
101 |
^ Icon constantNamed:#'PrintingDialog class collateImage' |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
102 |
ifAbsentPut:[ |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
103 |
(Depth8Image new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
104 |
width:61; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
105 |
height:34; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
106 |
photometric:(#palette); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
107 |
bitsPerSample:(#( 8 )); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
108 |
samplesPerPixel:(1); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
109 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
110 |
fromPackedString:' |
2968 | 111 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
112 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@<KF1,[F1,[F1,[F1D@@@@@@@@@@@@@@@@@@@@@@@<KF1,[F1,[F1,[F1D@@@@@@@@@@@@@@@@@ |
|
113 |
@@@@@@@KG0PSD1LSD1LSE!!XHDP@@@@@@@@@@@@@@@@@@@@@KG0PSD1LSD1LSE!!XHDP@@@@@@@@@@@@@@@@@@@@@@B1<DD1LSD1LSD1XVBAD@@@@@@@@@@@@@ |
|
114 |
@@@@@@@@B1<DD1LSD1LSD1XVBAD@@@@@@@@@@@@@@@@@@@@@@A,DHRDPDA@R@ 0SD1TWDP@@@@@@@@@@@@@@@@@@@A,DHRDPDA@R@ 0SD1TWDP@@@@@@@@@@ |
|
115 |
@@@@@@@@@@@[D0P!!G1<OB1,[F1,[F1,[F1,Q@@@@@@@@@@@@@@@[D0P!!G1<OB1,[F1,[F1,[F1,Q@@@@@@@@@@@@@@@@F1LDHQ<_C0,[F1,[F1,[F1,[DP@@ |
|
116 |
@@@@@@@@@@@@F1LDHQ<_C0,[F1,[F1,[F1,[DP@@@@@@@@@@@@@@@A,SHRDMCP,_AALSD1LSD1LVE Q@@@@@@@@@@@@@A,SHRDMCP,_AALSD1LSD1LVE Q |
|
117 |
@@@@@@@@@@@@@@@[D0P!!D1L[ABD!!DA@PD HLD1LUE1D@@@@@@@@@@@@[D0P!!D1L[ABD!!DA@PD HLD1LUE1D@@@@@@@@@@@@@F1L_HQLSF1LDHQ<_C0,[F1,[ |
|
118 |
F1,[F1,[DP@@@@@@F1L_HQLSF1LDHQ<_C0,[F1,[F1,[F1,[DP@@@@@@@A,SHRDSD1,SABD_G0<KF1,[F1,[F1,[F1D@@@@@@A,SHRDSD1,SABD_G0<KF1,[ |
|
119 |
F1,[F1,[F1D@@@@@@@@[D1LSD1L[D2D!!CP4KG0PSD1LSD1LSE!!XHDP@@@@@[D1LSD1L[D2D!!CP4KG0PSD1LSD1LSE!!XHDP@@@@@@F1LSD1LSF1L!!AALSF0P!! |
|
120 |
AA@PDAHBCALSEQ\Q@@@@F1LSD1LSF1L!!AALSF0P!!AA@PDAHBCALSEQ\Q@@@@@A,SD1LSD1,SHPPSD1,DHPPPDA@R@ 0SD1TWDP@@@A,SD1LSD1,SHPPSD1,D |
|
121 |
HPPPDA@R@ 0SD1TWDP(@@@@[D1LSD1L[D2D!!D1L[D2DDG1<_@A(CD1LGF@XQ@@@[D1LSD1L[D2D!!D1L[D2DDG1<_@A(CD1LGF@XQ@@@@F1LSD1LSF1LSD1LS |
|
122 |
F1L!!A@4MG0\IC!!LSD1LSF0@@F1LSD1LSF1LSD1LSF1L!!A@4MG0\IC!!LSD1LSF0@@@A,SD1LSD1,SD1LSD1,SHPPSD10VDAHEAPL^D1,@@A,SD1LSD1,SD1LS |
|
123 |
D1,SHPPSD10VDAHEAPL^D1,@@@@[D1LSD1L[D1LSD1L[D2DDD1L\E!!@RAPTCG!!L[@@@[D1LSD1L[D1LSD1L[D2DDD1L\E!!@RAPTCG!!L[@@@@F1LSD1LSF1LS |
|
124 |
D1LSF1L!!AALSD10VD@$I@!!PSF0@@F1LSD1LSF1LSD1LSF1L!!AALSD10VD@$I@!!PSF0@@@A,\D1LSD1,SD1LSD1,SD1LSD1LSGAXGA0@ID1,@@A,\D1LSD1,S |
|
125 |
D1LSD1,SD1LSD1LSGAXGA0@ID1,@@@@[GALSD1L[D1LSD1L[D1LSD1LSD10VA0\@BQL[@@@[GALSD1L[D1LSD1L[D1LSD1LSD10VA0\@BQL[@@@@GQX\D1LS |
|
126 |
F1LSD1LSF1LSD1LSD1LSA@4MA0\SF0@@GQX\D1LSF1LSD1LSF1LSD1LSD1LSA@4MA0\SF0@@@B@]F1,[F1,SD1LSD1,SD1LSD1LSD10MCP4VD1,@@B@]F1,[ |
|
127 |
F1,SD1LSD1,SD1LSD1LSD10MCP4VD1,@@@@ GQ,[F1,[D1LSD1L[D1LSD1LSD1L\CP4ME!!L[@@@ GQ,[F1,[D1LSD1L[D1LSD1LSD1L\CP4ME!!L[@@@@@@@@ |
|
128 |
@@@@F10SD1LSF1LSD1LSGA0\A@PDE!!XSF0@@@@@@@@@@F10SD1LSF1LSD1LSGA0\A@PDE!!XSF0@@@@@@@@@@@A4VGALSD1,SD1LSD10\A@PDA@PDD1,@@@@@ |
|
129 |
@@@@@A4VGALSD1,SD1LSD10\A@PDA@PDD1,@@@@@@@@@@@@ GQ,[F1,[D1LSD1LSGA0\GA0\GAL[@@@@@@@@@@@ GQ,[F1,[D1LSD1LSGA0\GA0\GAL[@@@@ |
|
130 |
@@@@@@@@HA4[F1,[F1LSD1LSD10\GA0\GA0SF0@@@@@@@@@@HA4[F1,[F1LSD1LSD10\GA0\GA0SF0@@@@@@@@@@@@@@@@@@@A,\D1LSD1LSD1LSD1LSGA,@ |
|
131 |
@@@@@@@@@@@@@@@@@A,\D1LSD1LSD1LSD1LSGA,@@@@@@@@@@@@@@@@@@@@]E!!0SD1LSD1LSD1LSGAXK@@@@@@@@@@@@@@@@@@@]E!!0SD1LSD1LSD1LSGAXK |
|
132 |
@@@@@@@@@@@@@@@@@@@@GQX\D1LSD1LSD1LSD10VB0@@@@@@@@@@@@@@@@@@GQX\D1LSD1LSD1LSD10VB0@@@@@@@@@@@@@@@@@@@B@]F1,[F1,[F1,[F1,[ |
|
133 |
B2@@@@@@@@@@@@@@@@@@@B@]F1,[F1,[F1,[F1,[B2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
134 |
@@@@@@@a'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
135 |
colorMapFromArray:#[ 243 243 243 254 254 254 239 239 239 234 234 234 250 250 250 236 236 236 195 195 195 246 246 246 192 192 192 242 242 242 253 253 253 204 204 204 233 233 233 249 249 249 235 235 235 227 227 227 245 245 245 223 223 223 241 241 241 252 252 252 237 237 237 231 231 231 248 248 248 193 193 193 244 244 244 255 255 255 240 240 240 201 201 201 251 251 251 203 203 203 230 230 230 247 247 247 226 226 226 40 40 40 ]; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
136 |
mask:((ImageMask new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
137 |
width:61; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
138 |
height:34; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
139 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
140 |
fromPackedString:' |
2968 | 141 |
@@@@@@@@@@@@@@@@@@@@@C?>@@C?>@@@O?<@@O?<@@@??0@@??0@@C?? @C?? @@O??8@O??8@@??? @??? @C???@C???@@O??>@O??>@@???? ???? C?? |
142 |
?>C???>@O???<O???<@????8????8C????#????0O????O????@????<????<C????3????0O????O????@????<????<C????3????0O????O????@????< |
|
143 |
????<C????3????0O????O????@@???<@???<@C???0C???0@O???@O???@@???<@???<@@C??0@C??0@@O??@@O??@@@??<@@??<@@C??0@C??0@@@@@@@@ |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
144 |
@@@b'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
145 |
yourself); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
146 |
yourself |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
147 |
] |
2968 | 148 |
|
149 |
"Created: / 01-08-2006 / 14:13:41 / fm" |
|
150 |
! |
|
151 |
||
152 |
icon |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
153 |
<resource: #image> |
2968 | 154 |
"This resource specification was automatically generated |
155 |
by the ImageEditor of ST/X." |
|
156 |
"Do not manually edit this!! If it is corrupted, |
|
157 |
the ImageEditor may not be able to read the specification." |
|
158 |
" |
|
159 |
self icon inspect |
|
160 |
ImageEditor openOnClass:self andSelector:#icon |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
161 |
Icon flushCachedIcons" |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
162 |
|
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
163 |
^ Icon constantNamed:#'PrintingDialog class icon' |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
164 |
ifAbsentPut:[ |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
165 |
(Depth8Image new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
166 |
width:16; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
167 |
height:16; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
168 |
photometric:(#palette); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
169 |
bitsPerSample:(#[ 8 ]); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
170 |
samplesPerPixel:(1); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
171 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
172 |
fromPackedString:' |
2968 | 173 |
@@@@RB4QD1\VC#\@@@@@@@@@@@5< W9>_V0/H @@@@@@@@@T!!%9]U$>JW3T4@@@@@@@@D(Y XU!!S]G18B@@@@@@@@ABEY6!!]U4)F!!@,@@@@@WCXO &5*YE-O |
174 |
SXLIFT,@\S5ZDW=0[&Y"UUF@CE@(V#-#]28.K"8.K"8.K"97T"P2#(9Y!!8^G!!8^G!!8]T#(8&LH.KQGMYVU%YVU%3PH.KF"1+Z31/S$9NS$9NZ3%+Z0T)RT$8 |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
175 |
ZT]GQ4]GQ6T3RT$CI4UEN#D1J2TZEP\FITUE@"MAQSECSD1LSD1LP QEO @?J!! ]"G-:^WY5\($\@P(;@@@@GBD HB@_G!!8!!F0@@@@@a'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
176 |
colorMapFromArray:#[ 34 34 34 35 35 35 36 36 36 41 41 41 43 43 43 62 62 62 65 65 65 66 66 66 69 126 192 71 130 195 72 72 72 72 130 194 73 132 199 74 134 195 74 135 195 75 136 196 77 137 196 77 138 199 78 138 197 78 139 200 80 139 198 81 81 81 82 141 201 82 142 200 87 87 87 94 94 94 96 96 96 96 146 199 96 147 199 96 148 199 99 150 201 99 150 202 100 150 202 100 151 202 102 146 218 105 105 105 107 107 107 109 109 109 110 110 110 111 111 111 115 115 115 116 116 116 119 119 119 120 120 120 121 121 121 122 168 213 124 124 124 124 177 226 125 125 125 128 128 128 129 129 129 130 130 130 130 166 211 131 181 226 132 132 132 139 173 219 140 140 140 141 141 141 148 148 148 149 149 149 150 150 150 153 153 153 154 154 154 159 159 159 162 162 162 166 166 166 167 169 172 169 171 174 170 170 170 180 180 180 180 212 243 184 184 184 184 205 231 186 186 186 186 214 245 187 187 187 188 191 196 188 218 246 190 190 190 193 220 248 194 194 194 194 221 249 195 195 195 195 221 249 197 197 197 199 224 250 200 224 249 200 224 250 202 225 250 203 203 203 204 204 204 204 225 251 205 205 205 205 227 251 205 227 252 205 230 252 207 227 252 207 228 252 209 228 252 210 210 210 210 230 252 211 211 211 211 229 253 211 230 252 211 231 253 212 212 212 213 231 253 215 215 215 215 230 242 215 231 254 215 232 254 216 216 216 216 232 254 220 220 220 222 232 242 223 223 223 223 233 244 225 234 244 230 237 247 232 232 232 233 239 245 233 240 248 235 241 249 236 241 249 236 242 247 236 242 248 237 243 248 237 244 249 237 244 250 238 244 248 239 244 249 239 244 250 240 244 248 240 244 249 241 245 249 242 242 242 246 247 249 246 248 250 248 251 253 249 249 249 249 250 252 250 250 250 252 252 252 ]; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
177 |
mask:((ImageMask new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
178 |
width:16; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
179 |
height:16; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
180 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
181 |
fromPackedString:'G>@_<A?8G? _>G?>????????????????????????G? b'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
182 |
yourself); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
183 |
yourself |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
184 |
] |
2968 | 185 |
|
186 |
"Modified: / 28-07-2006 / 16:35:25 / fm" |
|
187 |
! |
|
188 |
||
189 |
landscapeImage |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
190 |
<resource: #image> |
2968 | 191 |
"This resource specification was automatically generated |
192 |
by the ImageEditor of ST/X." |
|
193 |
"Do not manually edit this!! If it is corrupted, |
|
194 |
the ImageEditor may not be able to read the specification." |
|
195 |
" |
|
196 |
self landscapeImage inspect |
|
197 |
ImageEditor openOnClass:self andSelector:#landscapeImage |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
198 |
Icon flushCachedIcons" |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
199 |
|
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
200 |
^ Icon constantNamed:#'PrintingDialog class landscapeImage' |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
201 |
ifAbsentPut:[ |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
202 |
(Depth8Image new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
203 |
width:28; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
204 |
height:28; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
205 |
photometric:(#palette); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
206 |
bitsPerSample:(#( 8 )); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
207 |
samplesPerPixel:(1); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
208 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
209 |
fromPackedString:' |
2968 | 210 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
211 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@<[D1LSD1LSD1LSD1LSD1LSD0D@@@@@@@@@@@@OF1LSD1LSD1LSD1LSD1LSD1LA@@@@@@@@@@@@F0XKB0LC@0LC |
|
212 |
@0LC@0LC@0LCE D@@@@@@@@@@ALK@0L]C @@@@@P@@@@@@LC@0 X@PD@@@@@@@@S@0LCGPXWE1\NB@(@@@@C@0LWCP\G@P@@@@@@D0LC@0LC@0LC@0LC@0LC |
|
213 |
@0LCE0@GA0D@@@@@@ALCBPDA@PDA@PDA@PDA@PDA@Q\@@@\A@@@@@@@S@0@@@@@@@@@@@@@@@@@@@@@@@@X\G0@@@@@@D0LI@1P]A XFB14FA @BC@0LC@@@ |
|
214 |
GA<@@@@@@ALCBPDA@PDA@PDA@PDA@PDA@PDAGQ0_@@@@@@@S@0@@@@@@@@@@@@@@@@@@@@@@@@@\G0@@@@@@D0LI@0,KB0,K@0LC@0,FC 8N@@ ]GA<@@@@@ |
|
215 |
@ALCBPDA@PDA@PDA@PDA@PDA@PDAGQ0_@@@@@@@S@0$C@0,KB0,C@0LC@0,]GQ4]C!!4\G0@@@@@@D0LI@0LC@0LC@0LC@0LCEAPTGPX]GA<@@@@@@ALCBPDA |
|
216 |
@PDA@PDA@PDA@PDA@PDAGQ0_@@@@@@@S@0$C@0LC@0LC@0LC@0LC@0LC@0L\G0@@@@@@D0,C@0LC@0LC@0LC@0LCB0,KEA4TGA<@@@@@@ALK@0LC@0LC@0LC |
|
217 |
@0LC@0,KB1P]EA0_@@@@@@@DGA0\GA0\GA0\GA0\GA0\GA0\GA0\G0@@@@@@C1<_G1<_G1<_G1<_G1<_G1<_G1<_G18@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
218 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
219 |
colorMapFromArray:#[ 245 245 245 223 223 223 241 241 241 252 252 252 203 203 203 232 232 232 248 248 248 193 193 193 244 244 244 255 255 255 240 240 240 251 251 251 236 236 236 231 231 231 247 247 247 226 226 226 243 243 243 254 254 254 239 239 239 201 201 201 250 250 250 235 235 235 194 194 194 246 246 246 192 192 192 242 242 242 253 253 253 204 204 204 233 233 233 249 249 249 227 227 227 150 150 150 ]; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
220 |
mask:((ImageMask new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
221 |
width:28; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
222 |
height:28; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
223 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
224 |
fromPackedString:' |
2968 | 225 |
@@@@@@@@@@@@@@@@@@@@@A???@@_??0@G??>@A???8@_???@G???0A???<@_???@G???0A???<@_???@G???0A???<@_???@G???0A???<@_???@G???0A?? |
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
226 |
?<@_???@G???0@@@@@@@@@@@@@@@@@@a'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
227 |
yourself); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
228 |
yourself |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
229 |
] |
2968 | 230 |
|
231 |
"Modified: / 01-08-2006 / 11:26:23 / fm" |
|
232 |
! |
|
233 |
||
234 |
nonCollateImage |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
235 |
<resource: #image> |
2968 | 236 |
"This resource specification was automatically generated |
237 |
by the ImageEditor of ST/X." |
|
238 |
"Do not manually edit this!! If it is corrupted, |
|
239 |
the ImageEditor may not be able to read the specification." |
|
240 |
" |
|
241 |
self collateImage inspect |
|
242 |
ImageEditor openOnClass:self andSelector:#collateImage |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
243 |
Icon flushCachedIcons" |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
244 |
|
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
245 |
^ Icon constantNamed:#'PrintingDialog class nonCollateImage' |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
246 |
ifAbsentPut:[ |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
247 |
(Depth8Image new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
248 |
width:70; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
249 |
height:29; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
250 |
photometric:(#palette); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
251 |
bitsPerSample:(#[ 8 ]); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
252 |
samplesPerPixel:(1); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
253 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
254 |
fromPackedString:' |
2968 | 255 |
EQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEQTUEP@@@@@@@@@@@ATIA PDA@PDA@PDA@PGEQTUEQTU |
256 |
EQTUEP$FA@PDA@PDA@PDA@\UEQTUEQTUEQTUBPXDA@PDA@PDA@PDA1T@@@@@@@@@@@@UBPXDA@PDA@PDA@PDA0@@@@@@@@@@@@@IA PDA@PDA@PDA@PG@@@@ |
|
257 |
@@@@@@@@@@$FA@PDA@PDA@PDA@\U@@@@@@@@@@@@EPXYGA8^G!!8^G!!8ZF DGA1TUEQTUEQTUA!!$\G!!8^G!!8^G!!(Z@P\@@@@@@@@@@ATFFQ0^G!!8^G!!8^F!!(A |
|
258 |
A0@@@@@@@@@@@ATDG@@_E1\WD1DLG!!8K@ \UEQTUEQTUEPP\@@@WE1\SDP0^G ,BA0@@@@@@@@@UAA0@@A\WE1LQCA8^B0HG@@@@@@@@@@@UAA8@G1$YBPXD |
|
259 |
A@PDA@PDA@PDA1TUEQTDG!!0@FQ$IA PDA@PDA@PDA@P@@@@@@@P^G@@YFP$FA@PDA@PDA@PDA@\@@@@@EPP^@A<YFP$FA@PDA@PDA@PDA@\GEQTUAA8\@A$Y |
|
260 |
BPXDA@PDA@PDA@PDA0@@@@@DG!!0@FQ$IA PDA@PDA@PDA@PG@@@@@ATDG @_F1,FFQ0^G!!8^G!!8^F!!(AA1TUEPP^@@@[F0XYGA8^G!!8^G!!8ZF DG@@@@AA8@ |
|
261 |
@A,[A!!$\G!!8^G!!8^G!!(Z@P\@@@@UAA8@G18^AA0@GA\WE1LQCA8^B0HGEQTDG @\G!!8DG@@@E1\WD1DLG!!8K@ \@@@P^G@@^G P\@@@WE1\SDP0^G ,BA0@@ |
|
262 |
EPP^@A<^G P\@A0WE1\SDP0^G ,BA0\UAA8@GA8^AA0\@A\WE1LQCA8^B0HGD0@DG!!<@G!!8DG!!0@E1\WD1DLG!!8K@ \@@ATDG @_G!!8DG @\FQ$YEQHMG!!8X |
|
263 |
E LG@@P^@@@^G P^G@@YFQ$UD 4^G!! V@0\@AA8@@A8^AA8\@A$YFQTRCQ8^FAXCA0@UAA8^G!!8^AA8@GA,[FQ TC!!8^G!!8^A@@DG!!8^G!!8DG @@F1,YFAPN |
|
264 |
G!!8^G!!8D@@P^G!!8^G P^@@@[F1$XE@8^G!!8^G P@EPP^G!!8^G P^@A0^G!!4ZE1LOC04JG P@AA8^G!!8^AA8@GA8^GQ(WD0<OCP(^A@@DG!!8^G!!8DG!!0@G!!8] |
|
265 |
F!!\SC0<MB!!8D@ATDG!!8^G!!8DG @\G!!8]F!!\SC0<MB!!8D@@P^G!!8^G P^@A0^G!!4ZE1LOC04JG P@AA8^G!!8^AA8_@A8^GQ(WD0<OCP(^A@@UAA8^G!!8^AA8@ |
|
266 |
GA8^G!!4ZE1PTDQ@^A@@DG!!8^G!!8DG @@G!!8^GQ(WEAPQDA8D@@P^G!!8^G P^@@@^G!!8]F!!\TEADPG P@EPP^G!!8^G P^G!!8^G!!8^GQ(XFATTG P@AA8^G!!8^ |
|
267 |
AA8^G!!8^G!!8]F!! XEQP^A@@DG!!8^G!!8DG!!8^G!!8^G!!4ZFA UEA8D@ATDG!!8^G!!8DG!!8^G!!8^G!!4ZFA UEA8D@@P^G!!8^G P^G!!8^G!!8^GQ(XFATTG P@AA8^ |
|
268 |
G!!8^AA8^G!!8^G!!8]F!! XEQP^A@@UAA8^G!!8^AA8^G!!8^G!!8^GA,[FA ^A@@DG!!8^G!!8DG!!8^G!!8^G!!8\F1,XFA8D@@P^G!!8^G P^G!!8^G!!8^G!!0[F1 XG P@ |
|
269 |
EPP^G!!8^G P^G!!8^G!!8^G!!4[F1,ZG P@AA8^G!!8^AA8^G!!8^G!!8^GQ,[F1(^A@@DG!!8^G!!8DG!!8^G!!8^G!!8]F1,[F!!8D@ATDG!!8^G!!8DG!!8^G!!8^G!!8]F1,[ |
|
270 |
F!!8D@@P^G!!8^G P^G!!8^G!!8^G!!4[F1,ZG P@AA8^G!!8^AA8^G!!8^G!!8^GQ,[F1(^A@@UAA4^G!!8^AA8^G!!8^GQ4]GA0\F!!(^A@@DGQ8^G!!8DG!!8^G!!8]GQ4\ |
|
271 |
GA0ZF!!8D@@P]G!!8^G P^G!!8^G!!4]GQ0\GA(ZG P@EPTZGQ8^G P^G!!8^G!!4]GA0\GA0\G P@AQ(]G!!8^AA8^G!!8^GQ4\GA0\GA0^A@@EF!!4^G!!8DG!!8^G!!8] |
|
272 |
GQ0\GA0\GA8D@ATHAPPDA@PDG!!8^G!!8^GQ4]GQ4]GQ8D@@ EA@PDA@P^G!!8^G!!8]GQ4]GQ4]G P@B@TDA@PDAA8^G!!8^G!!4]GQ4]GQ4^A@@UB@TDA@PDAA8^ |
|
273 |
G!!8^G!!4]GQ4]GQ4^A@@HAPPDA@PDG!!8^G!!8^GQ4]GQ4]GQ8D@@ EA@PDA@P^G!!8^G!!8]GQ4]GQ4]G P@EP@@@@@@@@P]G!!8^G!!8^G!!8^G!!8^GPP@@@@@@@@@ |
|
274 |
AA4^G!!8^G!!8^G!!8^G!!8]A@@@@@@@@@@DGQ8^G!!8^G!!8^G!!8^G!!4D@AT@EQTUEQTEF!!4^G!!8^G!!8^G!!8^GQ(F@@@@@@@@@@TZGQ8^G!!8^G!!8^G!!8]F X@@@@@ |
|
275 |
@@@@AQ(]G!!8^G!!8^G!!8^G!!4ZA @U@ATUEQTUAQ(]G!!8^G!!8^G!!8^G!!4ZA @@@@@@@@@EF!!4^G!!8^G!!8^G!!8^GQ(F@@@@@@@@@@TZGQ8^G!!8^G!!8^G!!8]F X@ |
|
276 |
EP@UEQTUEP EA@PDA@PDA@PDA@PDA @@@@@@@@@B@TDA@PDA@PDA@PDA@PFB@@@@@@@@@@HAPPDA@PDA@PDA@PDA@XH@AT@EQTUEQTU@@@@@@@@@@@@@@@@ |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
277 |
@@@@@@@@@@@@@ATUEQTUEQT@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
278 |
colorMapFromArray:#[ 40 40 40 192 192 192 193 193 193 195 195 195 201 201 201 203 203 203 204 204 204 223 223 223 226 226 226 227 227 227 230 230 230 231 231 231 233 233 233 234 234 234 235 235 235 236 236 236 237 237 237 239 239 239 240 240 240 241 241 241 242 242 242 243 243 243 244 244 244 245 245 245 246 246 246 247 247 247 248 248 248 249 249 249 250 250 250 251 251 251 252 252 252 253 253 253 ]; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
279 |
mask:((ImageMask new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
280 |
width:70; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
281 |
height:29; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
282 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
283 |
fromPackedString:' |
2968 | 284 |
@@@@@@@@@@@@_?0@?? A??@@_?0@?? A??@@_?<@??0A?? @_?<@??8A??0@_??0???A???@_??8???!!???@_??8???1??? _??<???9???0_??>???=???0 |
285 |
_??>???=???8_??>???=???8_??>???=???8_??>???=???8_??>???=???8_??>???=???8_??>???=???8_??>???=???8_??>???=???8_??>???=???8 |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
286 |
_??>???=???8_??>???=???8_??>???=???8_??>???=???8@_?>@??<A??8@_?>@??<A??8@_?>@??<A??8@_?>@??<A??8@@@@@@@@@@@@'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
287 |
yourself); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
288 |
yourself |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
289 |
] |
2968 | 290 |
|
291 |
"Modified: / 01-08-2006 / 14:13:28 / fm" |
|
292 |
! |
|
293 |
||
294 |
numberOfCopiesImage |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
295 |
<resource: #image> |
2968 | 296 |
"This resource specification was automatically generated |
297 |
by the ImageEditor of ST/X." |
|
298 |
"Do not manually edit this!! If it is corrupted, |
|
299 |
the ImageEditor may not be able to read the specification." |
|
300 |
" |
|
301 |
self numberOfCopiesImage inspect |
|
302 |
ImageEditor openOnClass:self andSelector:#numberOfCopiesImage |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
303 |
Icon flushCachedIcons" |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
304 |
|
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
305 |
^ Icon constantNamed:#'PrintingDialog class numberOfCopiesImage' |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
306 |
ifAbsentPut:[ |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
307 |
(Depth8Image new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
308 |
width:24; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
309 |
height:25; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
310 |
photometric:(#palette); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
311 |
bitsPerSample:(#[ 8 ]); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
312 |
samplesPerPixel:(1); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
313 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
314 |
fromPackedString:' |
2968 | 315 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A<^G <OC0<OC04M@@@@@@@@@@@@@@@@@A8LC@$IBP$SAQTUE0@@@@@@@@@@@@@@@A8LC@$IBP$SAQTUE0@@@@@@ |
316 |
@@@@@@@@@@<IBPT A X]B@DAF \GCP@@@@@@@@@@@@<IBQX\@ HIBP$ID0TEEQ\@@@@@@@@@@@<IBQX\@ HIBP$ID0TEEQ\@@@@@@@@@@@<IBPH\BP$EH@XF |
|
317 |
GP H@Q(GA04@@@@@@@<IBQLRBP$VG@HBBP$IBP$VE!!TM@@@@@@<IBQLRBP$VG@HBBP$IBP$VE!!TM@@@@@@<IBQLHBP$BG@$IAQDQ@A$IBP8\CP4@@@<IBQLH |
|
318 |
BP$SD $IE 8NF0LIBP$IC0<@@@<IBQLHBP$SB@$ID1XVFA,TEA$IC0<@@@<IBQLHBP$SB@$ID1XVFA,TEA$IC0<@@@<IBQLRBP$SB@$IBQLSE 8QDP@IC0<@ |
|
319 |
@@<IBQLHBP$SB@$IBP$ID00NC"HIC0<@@@<IBQLHBP$SB@$IBP$ID00NC"HIC0<@@@4OC2LDBP$SD $IBP$IBPHLC@TIC0<@@@@@@@@#BP$SB@$IBP$IBQLB |
|
320 |
@ HIC0<@@@@@@@@#BP$SB@$IBP$IBQLB@ HIC0<@@@@@@@@MC0<#A@$IBQLSD1LSD1LIC0<@@@@@@@@@@@@@H0$IBP$IBP$IBP$VB (@@@@@@@@@@@@@CP<O |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
321 |
C0<OC0<OC0<JB0,@@@@@@@@@@@@@CP<OC0<OC0<OC0<JB0,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
322 |
colorMapFromArray:#[ 239 239 239 193 193 193 250 250 250 235 235 235 158 158 158 247 247 247 188 188 188 176 176 176 199 199 199 252 252 252 204 204 204 226 226 226 249 249 249 223 223 223 246 246 246 201 201 201 254 254 254 243 243 243 197 197 197 251 251 251 237 237 237 192 192 192 248 248 248 222 222 222 245 245 245 234 234 234 153 153 153 242 242 242 194 194 194 183 183 183 202 202 202 225 225 225 214 214 214 255 255 255 244 244 244 200 200 200 ]; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
323 |
mask:((ImageMask new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
324 |
width:24; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
325 |
height:25; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
326 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
327 |
fromPackedString:'@@@@_?@@_? @_? @_?<@_?>@_?>@_??0_??8_??8_??>_??>_??>_??>_??>_??>_??>_??>A??>A??>A??>@G?>@G?>@G?>@@@@'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
328 |
yourself); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
329 |
yourself |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
330 |
] |
2968 | 331 |
|
332 |
"Modified: / 28-07-2006 / 14:22:14 / fm" |
|
333 |
! |
|
334 |
||
335 |
portraitImage |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
336 |
<resource: #image> |
2968 | 337 |
"This resource specification was automatically generated |
338 |
by the ImageEditor of ST/X." |
|
339 |
"Do not manually edit this!! If it is corrupted, |
|
340 |
the ImageEditor may not be able to read the specification." |
|
341 |
" |
|
342 |
self portraitImage inspect |
|
343 |
ImageEditor openOnClass:self andSelector:#portraitImage |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
344 |
Icon flushCachedIcons" |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
345 |
|
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
346 |
^ Icon constantNamed:#'PrintingDialog class portraitImage' |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
347 |
ifAbsentPut:[ |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
348 |
(Depth8Image new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
349 |
width:28; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
350 |
height:28; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
351 |
photometric:(#palette); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
352 |
bitsPerSample:(#( 8 )); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
353 |
samplesPerPixel:(1); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
354 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
355 |
fromPackedString:' |
2968 | 356 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E!!XR |
357 |
@PDA@PDA@PDA@PDA@PDX@@@@@@@@@@@@@AHRAP,KF!!(ZF!!(ZF!!(ZGQ4]C1 X@@@@@@@@@@@A@P,_G1\WE1\WFP$B@!!(ZF!!0^G!! @@@@@@@@@@PDKG1<B@!!\W |
|
358 |
E1$B@ HZF!!(\G!!8X@@@@@@@@@@DAF HB@ HB@ HB@ HB@ HBC!!<_CQ @@@@@@@@A@Q(B@ HB@ HB@ HB@ HZ@!!(ZF!!L @@@@@@@@@PDZ@ XFA XFA XFA XF |
|
359 |
A XFA!!(SH@@@@@@@@@DAF HB@ HB@ HB@ H@@@@B@ @ZD2@@@@@@@@@A@Q(B@ HB@ HB@ HB@ HB@ HBF!!L @@@@@@@@@PDZF HB@ HZF H]GQ\PDA@IF1(S |
|
360 |
H@@@@@@@@@DAF!!(FA XFA XFA XFA XFA XZD2@@@@@@@@@A@Q(Z@ HB@ HB@ HB@ HB@ HBF!!L @@@@@@@@@PDZF!!(ZF!!(ZF!!(ZF ,TEAPNC!!(SH@@@@@@@ |
|
361 |
@@DAF!!(ZF!!(ZF!!(ZF!!(BEAPTEA4ZD2@@@@@@@@@A@Q(ZFA XFA XFA XFA XFA XF!!L @@@@@@@@@PDZF!!(ZF!!(Z@ HKB0,KB0,KB1(SH@@@@@@@@@DAF!!(Z |
|
362 |
F!!(ZF HBB0,KB0,KB0,ZD2@@@@@@@@@A@Q(ZF!!(ZF!!(B@ ,KB0,KB0,KF!!L @@@@@@@@@PDZF!! XFA XFA XFA XFA XFA(SH@@@@@@@@@DA@!!(ZF!!(ZF!!(Z |
|
363 |
F!!(ZF!!(ZF!!(ZD2@@@@@@@@@C@14BF!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!L @@@@@@@@@0LSD1LSD1LSD1LSD1LSD1LSD1LSH@@@@@@@@@XFHB@ HB@ HB@ HB@ HB@ |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
364 |
HB@ H@X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
365 |
colorMapFromArray:#[ 240 240 240 201 201 201 251 251 251 203 203 203 230 230 230 247 247 247 226 226 226 243 243 243 254 254 254 239 239 239 234 234 234 250 250 250 236 236 236 195 195 195 246 246 246 192 192 192 242 242 242 253 253 253 204 204 204 233 233 233 249 249 249 235 235 235 227 227 227 245 245 245 223 223 223 241 241 241 252 252 252 237 237 237 231 231 231 248 248 248 193 193 193 244 244 244 150 150 150 ]; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
366 |
mask:((ImageMask new) |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
367 |
width:28; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
368 |
height:28; |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
369 |
bits:(ByteArray |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
370 |
fromPackedString:' |
2968 | 371 |
@@@@@@@@@@@@@@@@G??8@A??? @_??<@G???@A???8@_??>@G??? A???8@_??>@G??? A???8@_??>@G??? A???8@_??>@G??? A???8@_??>@G??? A?? |
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
372 |
?8@_??>@G??? A???8@@@@@@@@@@@@@a'); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
373 |
yourself); |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
374 |
yourself |
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
375 |
] |
2968 | 376 |
|
377 |
"Modified: / 01-08-2006 / 11:26:17 / fm" |
|
378 |
! ! |
|
379 |
||
380 |
!PrintingDialog class methodsFor:'interface specs'! |
|
381 |
||
382 |
windowSpec |
|
383 |
"This resource specification was automatically generated |
|
384 |
by the UIPainter of ST/X." |
|
385 |
||
386 |
"Do not manually edit this!! If it is corrupted, |
|
387 |
the UIPainter may not be able to read the specification." |
|
388 |
||
389 |
" |
|
390 |
UIPainter new openOnClass:PrintingDialog andSelector:#windowSpec |
|
391 |
PrintingDialog new openInterface:#windowSpec |
|
392 |
PrintingDialog open |
|
393 |
" |
|
394 |
||
395 |
<resource: #canvas> |
|
396 |
||
397 |
^ |
|
398 |
#(FullSpec |
|
399 |
name: windowSpec |
|
400 |
window: |
|
401 |
(WindowSpec |
|
402 |
label: 'Printers ' |
|
403 |
name: 'Printers ' |
|
3136
8b191d3ab353
disable paperSize selection and make invisible paperSize group
fm
parents:
3095
diff
changeset
|
404 |
min: (Point 452 477) |
2968 | 405 |
max: (Point 452 535) |
3136
8b191d3ab353
disable paperSize selection and make invisible paperSize group
fm
parents:
3095
diff
changeset
|
406 |
bounds: (Rectangle 0 0 452 477) |
2968 | 407 |
icon: icon |
408 |
) |
|
409 |
component: |
|
410 |
(SpecCollection |
|
411 |
collection: ( |
|
412 |
(SequenceViewSpec |
|
413 |
name: 'PrintersList' |
|
414 |
layout: (LayoutFrame 10 0 32 0 445 0 177 0) |
|
415 |
model: selectedPrinterHolder |
|
416 |
hasHorizontalScrollBar: true |
|
417 |
hasVerticalScrollBar: true |
|
418 |
valueChangeSelector: printerSelectionChanged |
|
419 |
useIndex: true |
|
420 |
sequenceList: printerListHolder |
|
421 |
) |
|
422 |
(LabelSpec |
|
423 |
label: 'Select a Printer:' |
|
424 |
name: 'Label1' |
|
3623 | 425 |
layout: (AlignmentOrigin 9 0.0 14 0 0 0) |
2968 | 426 |
translateLabel: true |
3623 | 427 |
resizeForLabel: true |
2968 | 428 |
adjust: left |
429 |
) |
|
430 |
(FramedBoxSpec |
|
431 |
label: 'Copies' |
|
432 |
name: 'CopiesFrame' |
|
3136
8b191d3ab353
disable paperSize selection and make invisible paperSize group
fm
parents:
3095
diff
changeset
|
433 |
layout: (LayoutFrame 5 0.0 323 0.0 228 0.0 431 0.0) |
2968 | 434 |
labelPosition: topLeft |
435 |
translateLabel: true |
|
436 |
component: |
|
437 |
(SpecCollection |
|
438 |
collection: ( |
|
439 |
(LabelSpec |
|
440 |
label: 'collateImage' |
|
441 |
name: 'collateImage' |
|
442 |
layout: (LayoutFrame 97 0 42 0 195 0 74 0) |
|
443 |
hasCharacterOrientedLabel: false |
|
444 |
translateLabel: true |
|
445 |
postBuildCallback: collateImagePostBuild: |
|
446 |
) |
|
447 |
(CheckBoxSpec |
|
448 |
label: 'Collate' |
|
449 |
name: 'CheckBox1' |
|
450 |
layout: (LayoutFrame -6 0 47 0 90 0 69 0) |
|
451 |
enableChannel: collateActionEnabledHolder |
|
452 |
model: collateHolder |
|
453 |
translateLabel: true |
|
454 |
) |
|
455 |
(LabelSpec |
|
3623 | 456 |
label: 'Number of Copies:' |
2968 | 457 |
name: 'Label2' |
458 |
layout: (LayoutFrame -1 0.0 12 0.0 94 0.0 34 0.0) |
|
459 |
translateLabel: true |
|
460 |
adjust: left |
|
461 |
) |
|
462 |
(InputFieldSpec |
|
463 |
name: 'numberOfCopiesEntryField' |
|
464 |
layout: (LayoutFrame 97 0.0 12 0.0 196 0.0 34 0.0) |
|
465 |
enableChannel: numberOfCopiesTextEnabledHolder |
|
466 |
model: numberOfCopiesHolder |
|
467 |
type: integerInRange |
|
468 |
acceptOnReturn: true |
|
469 |
acceptOnTab: true |
|
470 |
acceptOnLostFocus: true |
|
471 |
minValue: 1 |
|
472 |
maxValue: 999 |
|
473 |
acceptOnPointerLeave: false |
|
474 |
) |
|
475 |
) |
|
476 |
||
477 |
) |
|
478 |
) |
|
479 |
(FramedBoxSpec |
|
480 |
label: 'Orientation' |
|
481 |
name: 'OrientationFrame' |
|
3136
8b191d3ab353
disable paperSize selection and make invisible paperSize group
fm
parents:
3095
diff
changeset
|
482 |
layout: (LayoutFrame 227 0.0 323 0.0 453 0.0 430 0.0) |
2968 | 483 |
labelPosition: topLeft |
3620 | 484 |
translateLabel: true |
2968 | 485 |
component: |
486 |
(SpecCollection |
|
487 |
collection: ( |
|
488 |
(RadioButtonSpec |
|
489 |
label: 'Portrait' |
|
490 |
name: 'PortraitRadioButton' |
|
491 |
layout: (LayoutFrame 0 0.0 10 0.0 104 0.0 32 0.0) |
|
492 |
translateLabel: true |
|
493 |
model: selectedOrientationHolder |
|
494 |
enableChannel: orientationRadioButtonEnabledHolder |
|
495 |
isTriggerOnDown: true |
|
496 |
select: portrait |
|
497 |
) |
|
498 |
(RadioButtonSpec |
|
499 |
label: 'Landscape' |
|
500 |
name: 'LandscapeRadioButton' |
|
501 |
layout: (LayoutFrame 0 0.0 43 0.0 105 0.0 65 0.0) |
|
502 |
translateLabel: true |
|
503 |
model: selectedOrientationHolder |
|
504 |
enableChannel: orientationRadioButtonEnabledHolder |
|
505 |
isTriggerOnDown: true |
|
506 |
select: landscape |
|
507 |
) |
|
508 |
(LabelSpec |
|
509 |
label: 'orientationImage' |
|
510 |
name: 'orientationImage' |
|
511 |
layout: (LayoutFrame 124 0.0 19 0.0 159 0.0 51 0.0) |
|
512 |
hasCharacterOrientedLabel: false |
|
513 |
translateLabel: true |
|
514 |
postBuildCallback: orientationImagePostBuild: |
|
515 |
) |
|
516 |
) |
|
517 |
||
518 |
) |
|
519 |
) |
|
520 |
(FramedBoxSpec |
|
521 |
label: 'Paper' |
|
522 |
name: 'PaperFrame' |
|
523 |
layout: (LayoutFrame 5 0.0 323 0.0 451 0.0 379 0.0) |
|
3136
8b191d3ab353
disable paperSize selection and make invisible paperSize group
fm
parents:
3095
diff
changeset
|
524 |
initiallyInvisible: true |
2968 | 525 |
labelPosition: topLeft |
3622 | 526 |
translateLabel: true |
2968 | 527 |
component: |
528 |
(SpecCollection |
|
529 |
collection: ( |
|
530 |
(ComboBoxSpec |
|
531 |
name: 'paperSizeList' |
|
532 |
layout: (LayoutFrame 97 0.0 2 0.0 406 0.0 22 0.0) |
|
3136
8b191d3ab353
disable paperSize selection and make invisible paperSize group
fm
parents:
3095
diff
changeset
|
533 |
initiallyDisabled: true |
2968 | 534 |
enableChannel: paperSizeEnabledHolder |
535 |
model: selectedPaperSizeHolder |
|
536 |
type: string |
|
537 |
acceptOnPointerLeave: false |
|
538 |
comboList: paperSizeListHolder |
|
539 |
isFilenameBox: false |
|
540 |
) |
|
541 |
(LabelSpec |
|
542 |
label: 'Paper size:' |
|
543 |
name: 'Label3' |
|
544 |
layout: (LayoutFrame 0 0.0 2 0.0 87 0.0 24 0.0) |
|
545 |
translateLabel: true |
|
546 |
adjust: left |
|
547 |
) |
|
548 |
) |
|
549 |
||
550 |
) |
|
551 |
) |
|
552 |
(FramedBoxSpec |
|
3622 | 553 |
label: '__Information' |
2968 | 554 |
name: 'FramedBox1' |
555 |
layout: (LayoutFrame 5 0.0 184 0.0 451 0.0 320 0.0) |
|
556 |
labelPosition: topLeft |
|
3622 | 557 |
translateLabel: true |
2968 | 558 |
component: |
559 |
(SpecCollection |
|
560 |
collection: ( |
|
561 |
(LabelSpec |
|
562 |
label: 'Status:' |
|
563 |
name: 'Status' |
|
564 |
layout: (LayoutFrame 0 0.0 6 0.0 64 0.0 28 0.0) |
|
565 |
translateLabel: true |
|
566 |
adjust: left |
|
567 |
) |
|
568 |
(LabelSpec |
|
569 |
label: 'Status' |
|
570 |
name: 'StatusLabel' |
|
571 |
layout: (LayoutFrame 99 0.0 5 0.0 405 0.0 27 0.0) |
|
572 |
translateLabel: true |
|
573 |
adjust: left |
|
574 |
postBuildCallback: statusLabelPostBuild: |
|
575 |
) |
|
576 |
(LabelSpec |
|
577 |
label: 'Driver Name:' |
|
578 |
name: 'DriverName' |
|
579 |
layout: (LayoutFrame 0 0.0 29 0.0 64 0.0 51 0.0) |
|
580 |
translateLabel: true |
|
581 |
adjust: left |
|
582 |
) |
|
583 |
(LabelSpec |
|
584 |
label: 'Location:' |
|
585 |
name: 'Location' |
|
586 |
layout: (LayoutFrame 0 0.0 54 0.0 64 0.0 76 0.0) |
|
587 |
translateLabel: true |
|
588 |
adjust: left |
|
589 |
) |
|
590 |
(LabelSpec |
|
3622 | 591 |
label: '__Comment:' |
2968 | 592 |
name: 'Comment' |
593 |
layout: (LayoutFrame 0 0.0 80 0.0 64 0.0 102 0.0) |
|
594 |
translateLabel: true |
|
595 |
adjust: left |
|
596 |
) |
|
597 |
(LabelSpec |
|
598 |
label: 'DriverName' |
|
599 |
name: 'DriverNameLabel' |
|
600 |
layout: (LayoutFrame 99 0 30 0 405 0 52 0) |
|
601 |
translateLabel: true |
|
602 |
adjust: left |
|
603 |
postBuildCallback: driverNameLabelPostBuild: |
|
604 |
) |
|
605 |
(LabelSpec |
|
606 |
label: 'Location' |
|
607 |
name: 'LocationLabel' |
|
608 |
layout: (LayoutFrame 99 0 54 0 405 0 76 0) |
|
609 |
translateLabel: true |
|
610 |
adjust: left |
|
611 |
postBuildCallback: locationLabelPostBuild: |
|
612 |
) |
|
613 |
(LabelSpec |
|
614 |
label: 'Comment' |
|
615 |
name: 'CommentLabel' |
|
616 |
layout: (LayoutFrame 99 0 80 0 405 0 102 0) |
|
617 |
translateLabel: true |
|
618 |
adjust: left |
|
619 |
postBuildCallback: commentLabelPostBuild: |
|
620 |
) |
|
621 |
) |
|
622 |
||
623 |
) |
|
624 |
) |
|
3628 | 625 |
(HorizontalPanelViewSpec |
626 |
name: 'HorizontalPanel1' |
|
627 |
layout: (LayoutFrame 0 0.0 -45 1 0 1.0 0 1) |
|
628 |
horizontalLayout: center |
|
629 |
verticalLayout: center |
|
630 |
horizontalSpace: 10 |
|
631 |
verticalSpace: 3 |
|
632 |
reverseOrderIfOKAtLeft: true |
|
633 |
component: |
|
634 |
(SpecCollection |
|
635 |
collection: ( |
|
636 |
(ActionButtonSpec |
|
4063 | 637 |
label: 'Setup...' |
3628 | 638 |
name: 'SetupButton' |
639 |
translateLabel: true |
|
640 |
model: openSetup |
|
641 |
enableChannel: setupActionEnabledHolder |
|
642 |
extent: (Point 115 22) |
|
643 |
) |
|
644 |
(ActionButtonSpec |
|
645 |
label: 'Cancel' |
|
646 |
name: 'CancelButton' |
|
647 |
translateLabel: true |
|
648 |
model: close |
|
649 |
extent: (Point 115 22) |
|
650 |
) |
|
651 |
(ActionButtonSpec |
|
652 |
label: 'Print' |
|
653 |
name: 'OKButton' |
|
654 |
translateLabel: true |
|
655 |
model: accept |
|
656 |
enableChannel: okButtonEnabledHolder |
|
4063 | 657 |
isDefault: true |
658 |
defaultable: true |
|
3628 | 659 |
extent: (Point 115 22) |
660 |
) |
|
661 |
) |
|
662 |
||
663 |
) |
|
664 |
) |
|
2968 | 665 |
) |
666 |
||
667 |
) |
|
668 |
) |
|
669 |
! ! |
|
670 |
||
671 |
!PrintingDialog class methodsFor:'opening'! |
|
672 |
||
673 |
getPrinterInfo |
|
3678 | 674 |
^ self getPrinterInfoWithoutDialog:false |
2978 | 675 |
! |
676 |
||
677 |
getPrinterInfoFromDialog |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
678 |
"Opens the Printer Dialog and returns a PrinterInfo after selecting a printer and defining the printing settings" |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
679 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
680 |
|dialog| |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
681 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
682 |
dialog := self new. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
683 |
dialog openModal. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
684 |
^ dialog answer. |
2968 | 685 |
|
686 |
"Created: / 02-08-2006 / 16:46:50 / fm" |
|
687 |
"Modified: / 03-08-2006 / 11:28:12 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
688 |
"Modified: / 10-10-2006 / 17:44:56 / cg" |
3678 | 689 |
! |
690 |
||
691 |
getPrinterInfoWithoutDialog:withoutDialog |
|
692 |
"Returns a PrinterInfo by opening the Printer Dialog or by using the lastUserPrinterSettings" |
|
693 |
||
694 |
|useDefaultPrinter| |
|
695 |
||
696 |
self lastUsedPrinterSettings notNil ifTrue:[ |
|
3679 | 697 |
withoutDialog ifFalse:[ |
3678 | 698 |
AskForConfirmUsageOfDefaultPrinterSettings ifTrue:[ |
699 |
useDefaultPrinter := self confirmUsageOfDefaultPrinterSettings. |
|
700 |
useDefaultPrinter isNil ifTrue:[ |
|
701 |
^ nil |
|
702 |
]. |
|
703 |
] ifFalse:[ |
|
704 |
useDefaultPrinter := true. |
|
705 |
]. |
|
706 |
]. |
|
707 |
||
708 |
useDefaultPrinter ifTrue:[ |
|
709 |
^ self lastUsedPrinterSettings |
|
710 |
] |
|
711 |
]. |
|
712 |
^ self getPrinterInfoFromDialog |
|
713 |
||
714 |
"Created: / 02-08-2006 / 16:46:50 / fm" |
|
715 |
"Modified: / 03-08-2006 / 11:28:12 / fm" |
|
716 |
"Modified: / 10-10-2006 / 17:44:51 / cg" |
|
2968 | 717 |
! ! |
718 |
||
4063 | 719 |
!PrintingDialog class methodsFor:'others'! |
720 |
||
721 |
version_CVS |
|
5063 | 722 |
^ '$Header$' |
4063 | 723 |
! ! |
724 |
||
2978 | 725 |
!PrintingDialog class methodsFor:'queries'! |
726 |
||
727 |
confirmUsageOfDefaultPrinterSettings |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
728 |
"ask if printing should be done with the last printer. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
729 |
Return true, false or nil (for cancel)" |
2978 | 730 |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
731 |
^ Dialog |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
732 |
confirmWithCancel: |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
733 |
(self resources |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
734 |
string:'Do you want to print with current settings of printer: "%1" ?' |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
735 |
with:self lastUsedPrinterSettings userFriendlyName allBold) |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
736 |
labels:(self resources array:#( 'Cancel' 'Open Dialog' 'Print' )) |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
737 |
default:3. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
738 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
739 |
" |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
740 |
self confirmUsageOfDefaultPrinterSettings |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
741 |
" |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
742 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
743 |
"Modified: / 10-10-2006 / 17:44:36 / cg" |
2978 | 744 |
! ! |
745 |
||
2968 | 746 |
!PrintingDialog class methodsFor:'settings'! |
747 |
||
2978 | 748 |
lastUsedPrinterSettings |
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
749 |
^ LastUsedPrinterSettings |
2978 | 750 |
|
751 |
"Created: / 04-08-2006 / 13:24:18 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
752 |
"Modified: / 10-10-2006 / 17:45:00 / cg" |
2978 | 753 |
! |
754 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
755 |
lastUsedPrinterSettings:aPrinterInfo |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
756 |
LastUsedPrinterSettings := aPrinterInfo |
2978 | 757 |
|
758 |
"Created: / 04-08-2006 / 13:24:18 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
759 |
"Modified: / 10-10-2006 / 17:45:07 / cg" |
2978 | 760 |
! |
761 |
||
2968 | 762 |
printersSettings |
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
763 |
PrintersSettings isNil ifTrue:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
764 |
PrintersSettings := Dictionary new |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
765 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
766 |
^ PrintersSettings |
2968 | 767 |
|
768 |
"Created: / 04-08-2006 / 13:24:18 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
769 |
"Modified: / 10-10-2006 / 17:45:22 / cg" |
2968 | 770 |
! |
771 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
772 |
printersSettingsAt:printerName |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
773 |
^ self printersSettings at:printerName ifAbsent:[ nil ] |
2968 | 774 |
|
775 |
"Created: / 04-08-2006 / 13:51:04 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
776 |
"Modified: / 10-10-2006 / 17:45:25 / cg" |
2968 | 777 |
! |
778 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
779 |
printersSettingsAt:printerName ifAbsentPut:aPrinterInfo |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
780 |
self printersSettings at:printerName ifAbsentPut:aPrinterInfo |
2968 | 781 |
|
782 |
"Created: / 04-08-2006 / 13:50:40 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
783 |
"Modified: / 10-10-2006 / 17:45:29 / cg" |
2968 | 784 |
! |
785 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
786 |
printersSettingsAt:printerName put:aPrinterInfo |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
787 |
self printersSettings at:printerName put:aPrinterInfo |
2968 | 788 |
|
789 |
"Created: / 04-08-2006 / 13:52:11 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
790 |
"Modified: / 10-10-2006 / 17:45:32 / cg" |
2968 | 791 |
! ! |
792 |
||
793 |
!PrintingDialog class methodsFor:'tables'! |
|
794 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
795 |
orientationAt:anInteger |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
796 |
^ self orientationTable at:anInteger ifAbsent:[ nil ] |
2968 | 797 |
|
798 |
"Created: / 28-07-2006 / 16:48:24 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
799 |
"Modified: / 10-10-2006 / 17:45:13 / cg" |
2968 | 800 |
! |
801 |
||
802 |
orientationTable |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
803 |
^ (Dictionary new) |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
804 |
at:1 put:#portrait; |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
805 |
at:2 put:#landscape; |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
806 |
yourself |
2968 | 807 |
|
808 |
"Created: / 28-07-2006 / 16:47:36 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
809 |
"Modified: / 10-10-2006 / 17:45:17 / cg" |
2968 | 810 |
! ! |
811 |
||
812 |
!PrintingDialog methodsFor:'accessing'! |
|
813 |
||
814 |
answer |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
815 |
"Returns aPrinterInfo with all choosen settings if the print button has been pressed. Otherwise returns nil" |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
816 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
817 |
^ answer |
2968 | 818 |
|
819 |
"Created: / 02-08-2006 / 17:04:16 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
820 |
"Modified: / 10-10-2006 / 17:45:44 / cg" |
2968 | 821 |
! |
822 |
||
823 |
collateImage |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
824 |
^ self collateHolder value |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
825 |
ifTrue:[ self class collateImage ] |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
826 |
ifFalse:[ self class nonCollateImage ] |
2968 | 827 |
|
828 |
"Created: / 31-07-2006 / 15:41:01 / fm" |
|
829 |
"Modified: / 01-08-2006 / 10:02:37 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
830 |
"Modified: / 10-10-2006 / 17:45:48 / cg" |
2968 | 831 |
! |
832 |
||
833 |
defaultPrinter |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
834 |
^ self printers |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
835 |
detect:[:each | each printerName = PrinterContext defaultPrinterName ] |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
836 |
ifNone:[ nil ] |
2968 | 837 |
|
838 |
"Created: / 03-08-2006 / 15:26:07 / fm" |
|
3226 | 839 |
"Modified: / 16-04-2007 / 13:04:49 / cg" |
2968 | 840 |
! |
841 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
842 |
defaultPrinterIndex |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
843 |
^ self printers value indexOf:self defaultPrinter |
2968 | 844 |
|
845 |
"Created: / 03-08-2006 / 15:20:04 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
846 |
"Modified: / 10-10-2006 / 17:45:55 / cg" |
2968 | 847 |
! |
848 |
||
849 |
orientationImage |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
850 |
^ self isPortraitSelected |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
851 |
ifTrue:[ self class portraitImage ] |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
852 |
ifFalse:[ self class landscapeImage ] |
2968 | 853 |
|
854 |
"Modified: / 28-07-2006 / 14:51:45 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
855 |
"Modified: / 10-10-2006 / 17:45:58 / cg" |
2968 | 856 |
! |
857 |
||
858 |
orientationSymbol |
|
3262 | 859 |
|
860 |
self isSelectedPrinterAvailable ifFalse:[^ nil]. |
|
861 |
^ self class orientationAt: self selectedPrinter orientation |
|
2968 | 862 |
|
863 |
"Created: / 01-08-2006 / 12:07:33 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
864 |
"Modified: / 10-10-2006 / 17:46:01 / cg" |
2968 | 865 |
! |
866 |
||
867 |
paperSizeNameFromSelectedPrinter |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
868 |
self isSelectedPrinterAvailable ifFalse:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
869 |
^ nil |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
870 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
871 |
^ self selectedPrinter paperSizeName |
2968 | 872 |
|
873 |
"Created: / 31-07-2006 / 16:21:17 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
874 |
"Modified: / 10-10-2006 / 17:46:04 / cg" |
2968 | 875 |
! |
876 |
||
877 |
paperSizeNames |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
878 |
^ AbstractOperatingSystem::PrinterInfo paperSizeNames |
2968 | 879 |
|
880 |
"Created: / 31-07-2006 / 15:43:13 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
881 |
"Modified: / 10-10-2006 / 17:46:07 / cg" |
2968 | 882 |
! |
883 |
||
884 |
printerUserFriendlyNames |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
885 |
^ self printers collect:[:each | each userFriendlyName ] |
2968 | 886 |
|
887 |
"Created: / 28-07-2006 / 12:20:07 / fm" |
|
888 |
"Modified: / 03-08-2006 / 12:50:03 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
889 |
"Modified: / 10-10-2006 / 17:46:10 / cg" |
2968 | 890 |
! |
891 |
||
892 |
printers |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
893 |
printers isEmptyOrNil ifTrue:[ |
5390 | 894 |
Error handle:[:ex | |
895 |
printers := #(). |
|
896 |
] do:[ |
|
897 |
printers := OperatingSystem getPrinters |
|
898 |
]. |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
899 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
900 |
^ printers |
2968 | 901 |
|
902 |
"Created: / 28-07-2006 / 12:01:52 / fm" |
|
903 |
"Modified: / 31-07-2006 / 16:22:39 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
904 |
"Modified: / 10-10-2006 / 17:46:13 / cg" |
2968 | 905 |
! |
906 |
||
907 |
selectedPrinter |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
908 |
self hasSelectedPrinter ifFalse:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
909 |
^ nil |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
910 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
911 |
^ self printers at:self selectedPrinterHolder value ifAbsent:[ nil ] |
2968 | 912 |
|
913 |
"Created: / 28-07-2006 / 11:35:38 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
914 |
"Modified: / 10-10-2006 / 17:46:16 / cg" |
2968 | 915 |
! ! |
916 |
||
917 |
!PrintingDialog methodsFor:'aspects'! |
|
918 |
||
919 |
collateActionEnabledHolder |
|
920 |
collateActionEnabledHolder isNil ifTrue:[ |
|
921 |
collateActionEnabledHolder := false asValue. |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
922 |
]. |
2968 | 923 |
^ collateActionEnabledHolder. |
924 |
||
925 |
"Created: / 01-08-2006 / 09:31:24 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
926 |
"Modified: / 10-10-2006 / 17:46:29 / cg" |
2968 | 927 |
! |
928 |
||
929 |
collateHolder |
|
930 |
collateHolder isNil ifTrue:[ |
|
931 |
collateHolder := false asValue. |
|
932 |
collateHolder onChangeSend:#collateHolderChanged to:self. |
|
933 |
]. |
|
934 |
^ collateHolder. |
|
935 |
||
936 |
"Created: / 31-07-2006 / 15:39:48 / fm" |
|
937 |
"Modified: / 01-08-2006 / 09:54:25 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
938 |
"Modified: / 10-10-2006 / 17:46:35 / cg" |
2968 | 939 |
! |
940 |
||
941 |
numberOfCopiesHolder |
|
942 |
numberOfCopiesHolder isNil ifTrue:[ |
|
943 |
numberOfCopiesHolder := 0 asValue. |
|
944 |
numberOfCopiesHolder onChangeSend:#numberOfCopiesHolderChanged to:self. |
|
945 |
]. |
|
946 |
^ numberOfCopiesHolder. |
|
947 |
||
948 |
"Created: / 28-07-2006 / 11:21:51 / fm" |
|
949 |
"Modified: / 01-08-2006 / 12:19:25 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
950 |
"Modified: / 10-10-2006 / 17:46:40 / cg" |
2968 | 951 |
! |
952 |
||
953 |
numberOfCopiesTextEnabledHolder |
|
954 |
numberOfCopiesTextEnabledHolder isNil ifTrue:[ |
|
955 |
numberOfCopiesTextEnabledHolder := false asValue. |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
956 |
]. |
2968 | 957 |
^ numberOfCopiesTextEnabledHolder. |
958 |
||
959 |
"Created: / 31-07-2006 / 13:11:45 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
960 |
"Modified: / 10-10-2006 / 17:46:46 / cg" |
2968 | 961 |
! |
962 |
||
963 |
okButtonEnabledHolder |
|
964 |
okButtonEnabledHolder isNil ifTrue:[ |
|
965 |
okButtonEnabledHolder := false asValue. |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
966 |
]. |
2968 | 967 |
^ okButtonEnabledHolder. |
968 |
||
969 |
"Created: / 31-07-2006 / 13:12:41 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
970 |
"Modified: / 10-10-2006 / 17:46:52 / cg" |
2968 | 971 |
! |
972 |
||
973 |
orientationRadioButtonEnabledHolder |
|
974 |
orientationRadioButtonEnabledHolder isNil ifTrue:[ |
|
975 |
orientationRadioButtonEnabledHolder := false asValue. |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
976 |
]. |
2968 | 977 |
^ orientationRadioButtonEnabledHolder. |
978 |
||
979 |
"Created: / 31-07-2006 / 13:12:25 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
980 |
"Modified: / 10-10-2006 / 17:46:58 / cg" |
2968 | 981 |
! |
982 |
||
983 |
paperSizeEnabledHolder |
|
984 |
paperSizeEnabledHolder isNil ifTrue:[ |
|
985 |
paperSizeEnabledHolder := false asValue. |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
986 |
]. |
2968 | 987 |
^ paperSizeEnabledHolder. |
988 |
||
989 |
"Created: / 01-08-2006 / 09:39:53 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
990 |
"Modified: / 10-10-2006 / 17:47:03 / cg" |
2968 | 991 |
! |
992 |
||
993 |
paperSizeListHolder |
|
994 |
paperSizeListHolder isNil ifTrue:[ |
|
995 |
paperSizeListHolder := List new asValue. |
|
996 |
]. |
|
997 |
^ paperSizeListHolder. |
|
998 |
||
999 |
"Created: / 31-07-2006 / 15:29:40 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1000 |
"Modified: / 10-10-2006 / 17:47:10 / cg" |
2968 | 1001 |
! |
1002 |
||
1003 |
printerListHolder |
|
1004 |
printerListHolder isNil ifTrue:[ |
|
1005 |
printerListHolder := ValueHolder new. |
|
1006 |
]. |
|
1007 |
^ printerListHolder. |
|
1008 |
||
1009 |
"Created: / 28-07-2006 / 11:21:51 / fm" |
|
1010 |
"Modified: / 31-07-2006 / 15:54:31 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1011 |
"Modified: / 10-10-2006 / 17:47:16 / cg" |
2968 | 1012 |
! |
1013 |
||
1014 |
selectedOrientationHolder |
|
1015 |
selectedOrientationHolder isNil ifTrue:[ |
|
1016 |
selectedOrientationHolder := #portrait asValue. |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1017 |
selectedOrientationHolder onChangeSend:#selectedOrientationHolderChanged |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1018 |
to:self. |
2968 | 1019 |
]. |
1020 |
^ selectedOrientationHolder. |
|
1021 |
||
1022 |
"Created: / 28-07-2006 / 11:21:51 / fm" |
|
1023 |
"Modified: / 28-07-2006 / 14:19:02 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1024 |
"Modified: / 10-10-2006 / 17:47:25 / cg" |
2968 | 1025 |
! |
1026 |
||
1027 |
selectedPaperSizeHolder |
|
1028 |
selectedPaperSizeHolder isNil ifTrue:[ |
|
1029 |
selectedPaperSizeHolder := ValueHolder new. |
|
1030 |
selectedPaperSizeHolder onChangeSend:#selectedPaperSizeHolderChanged to:self. |
|
1031 |
]. |
|
1032 |
^ selectedPaperSizeHolder. |
|
1033 |
||
1034 |
"Created: / 31-07-2006 / 15:39:26 / fm" |
|
1035 |
"Modified: / 01-08-2006 / 09:26:53 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1036 |
"Modified: / 10-10-2006 / 17:47:29 / cg" |
2968 | 1037 |
! |
1038 |
||
1039 |
selectedPrinterHolder |
|
1040 |
selectedPrinterHolder isNil ifTrue:[ |
|
1041 |
selectedPrinterHolder := ValueHolder new. |
|
1042 |
]. |
|
1043 |
^ selectedPrinterHolder. |
|
1044 |
||
1045 |
"Created: / 28-07-2006 / 11:21:51 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1046 |
"Modified: / 10-10-2006 / 17:47:34 / cg" |
2968 | 1047 |
! |
1048 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1049 |
setupActionEnabledHolder |
2968 | 1050 |
setupActionEnabledHolder isNil ifTrue:[ |
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1051 |
setupActionEnabledHolder := false asValue. |
2968 | 1052 |
]. |
1053 |
^ setupActionEnabledHolder. |
|
1054 |
||
1055 |
"Created: / 28-07-2006 / 12:14:48 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1056 |
"Modified: / 10-10-2006 / 17:47:38 / cg" |
2968 | 1057 |
! ! |
1058 |
||
1059 |
!PrintingDialog methodsFor:'initialization & release'! |
|
1060 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1061 |
collateImagePostBuild:aLabel |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1062 |
collateImageLabel := aLabel |
2968 | 1063 |
|
1064 |
"Created: / 31-07-2006 / 15:26:22 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1065 |
"Modified: / 10-10-2006 / 17:47:44 / cg" |
2968 | 1066 |
! |
1067 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1068 |
commentLabelPostBuild:aLabel |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1069 |
commentLabel := aLabel |
2968 | 1070 |
|
1071 |
"Created: / 01-08-2006 / 15:04:09 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1072 |
"Modified: / 10-10-2006 / 17:47:47 / cg" |
2968 | 1073 |
! |
1074 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1075 |
driverNameLabelPostBuild:aLabel |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1076 |
driverNameLabel := aLabel |
2968 | 1077 |
|
1078 |
"Created: / 01-08-2006 / 15:04:27 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1079 |
"Modified: / 10-10-2006 / 17:47:50 / cg" |
2968 | 1080 |
! |
1081 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1082 |
locationLabelPostBuild:aLabel |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1083 |
locationLabel := aLabel |
2968 | 1084 |
|
1085 |
"Created: / 01-08-2006 / 15:04:18 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1086 |
"Modified: / 10-10-2006 / 17:47:53 / cg" |
2968 | 1087 |
! |
1088 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1089 |
orientationImagePostBuild:aLabel |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1090 |
orientationImageLabel := aLabel |
2968 | 1091 |
|
1092 |
"Created: / 28-07-2006 / 14:24:51 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1093 |
"Modified: / 10-10-2006 / 17:47:56 / cg" |
2968 | 1094 |
! |
1095 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1096 |
postBuildWith:aBuilder |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1097 |
super postBuildWith:aBuilder. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1098 |
self updatePrintersList. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1099 |
self updatePaperSizeList. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1100 |
self clearProperties. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1101 |
self selectDefaultPrinter. |
2968 | 1102 |
|
1103 |
"Created: / 02-08-2006 / 16:41:26 / fm" |
|
1104 |
"Modified: / 03-08-2006 / 15:28:56 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1105 |
"Modified: / 10-10-2006 / 17:47:59 / cg" |
2968 | 1106 |
! |
1107 |
||
1108 |
selectDefaultPrinter |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1109 |
self selectedPrinterHolder value:self defaultPrinterIndex. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1110 |
self printerSelectionChanged. |
2968 | 1111 |
|
1112 |
"Modified: / 03-08-2006 / 15:29:35 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1113 |
"Modified: / 10-10-2006 / 17:48:02 / cg" |
2968 | 1114 |
! |
1115 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1116 |
statusLabelPostBuild:aLabel |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1117 |
statusLabel := aLabel |
2968 | 1118 |
|
1119 |
"Created: / 01-08-2006 / 13:43:32 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1120 |
"Modified: / 10-10-2006 / 17:48:04 / cg" |
2968 | 1121 |
! ! |
1122 |
||
1123 |
!PrintingDialog methodsFor:'queries'! |
|
1124 |
||
1125 |
collateActionEnabled |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1126 |
^ self isSelectedPrinterAvailable and:[ self numberOfCopiesHolder value > 1 ] |
2968 | 1127 |
|
1128 |
"Created: / 01-08-2006 / 09:32:48 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1129 |
"Modified: / 10-10-2006 / 17:48:10 / cg" |
2968 | 1130 |
! |
1131 |
||
1132 |
hasSelectedPrinter |
|
4067 | 1133 |
|printerIndex| |
1134 |
||
1135 |
printerIndex := self selectedPrinterHolder value. |
|
1136 |
^ printerIndex notNil and:[ printerIndex > 0] |
|
2968 | 1137 |
|
1138 |
"Modified: / 28-07-2006 / 11:34:10 / fm" |
|
4067 | 1139 |
"Modified: / 17-08-2011 / 09:41:17 / cg" |
2968 | 1140 |
! |
1141 |
||
1142 |
isPortraitSelected |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1143 |
^ self selectedOrientationHolder value = #portrait |
2968 | 1144 |
|
1145 |
"Created: / 28-07-2006 / 14:48:59 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1146 |
"Modified: / 10-10-2006 / 17:48:16 / cg" |
2968 | 1147 |
! |
1148 |
||
1149 |
isSelectedPaperSize |
|
4067 | 1150 |
|paperSize| |
1151 |
||
1152 |
paperSize := self selectedPaperSizeHolder value. |
|
1153 |
^ paperSize notEmptyOrNil |
|
1154 |
and:[ (paperSize ~= self unknownPaperSizeNameDescription)] |
|
2968 | 1155 |
|
1156 |
"Created: / 31-07-2006 / 16:05:59 / fm" |
|
1157 |
"Modified: / 01-08-2006 / 12:18:56 / fm" |
|
4067 | 1158 |
"Modified: / 17-08-2011 / 09:41:43 / cg" |
2968 | 1159 |
! |
1160 |
||
1161 |
isSelectedPrinterAvailable |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1162 |
^ self hasSelectedPrinter and:[ self selectedPrinter isAvailable ] |
2968 | 1163 |
|
1164 |
"Created: / 31-07-2006 / 13:08:18 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1165 |
"Modified: / 10-10-2006 / 17:48:52 / cg" |
2968 | 1166 |
! |
1167 |
||
1168 |
numberOfCopiesTextEnabled |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1169 |
^ self isSelectedPrinterAvailable |
2968 | 1170 |
|
1171 |
"Created: / 31-07-2006 / 13:17:55 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1172 |
"Modified: / 10-10-2006 / 17:48:54 / cg" |
2968 | 1173 |
! |
1174 |
||
1175 |
okButtonEnabled |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1176 |
^ self isSelectedPrinterAvailable |
2968 | 1177 |
|
1178 |
"Created: / 31-07-2006 / 13:17:37 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1179 |
"Modified: / 10-10-2006 / 17:49:22 / cg" |
2968 | 1180 |
! |
1181 |
||
1182 |
orientationRadioButtonEnabled |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1183 |
^ self isSelectedPrinterAvailable |
2968 | 1184 |
|
1185 |
"Created: / 31-07-2006 / 13:17:45 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1186 |
"Modified: / 10-10-2006 / 17:49:31 / cg" |
2968 | 1187 |
! |
1188 |
||
1189 |
paperSizeEnabled |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1190 |
^ self isSelectedPrinterAvailable |
2968 | 1191 |
|
1192 |
"Created: / 01-08-2006 / 09:39:30 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1193 |
"Modified: / 10-10-2006 / 17:49:35 / cg" |
2968 | 1194 |
! |
1195 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1196 |
setupActionEnabled |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1197 |
^ self isSelectedPrinterAvailable |
2968 | 1198 |
|
1199 |
"Created: / 28-07-2006 / 12:16:56 / fm" |
|
1200 |
"Modified: / 31-07-2006 / 13:17:19 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1201 |
"Modified: / 10-10-2006 / 17:49:39 / cg" |
2968 | 1202 |
! ! |
1203 |
||
1204 |
!PrintingDialog methodsFor:'settings'! |
|
1205 |
||
1206 |
addOrRecoverPrinterSettings |
|
3262 | 1207 |
|settings currentPrinter | |
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1208 |
|
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1209 |
currentPrinter := self selectedPrinter. |
3262 | 1210 |
currentPrinter notNil ifTrue:[ |
1211 |
settings := self class printersSettingsAt:currentPrinter printerName. |
|
1212 |
settings notNil ifTrue:[ |
|
1213 |
currentPrinter orientation:settings orientation. |
|
1214 |
currentPrinter paperSize:settings paperSize. |
|
1215 |
]. |
|
2968 | 1216 |
]. |
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1217 |
^ self updatePrinterInPrintersSettings |
2968 | 1218 |
|
1219 |
"Created: / 04-08-2006 / 13:57:36 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1220 |
"Modified: / 10-10-2006 / 17:49:43 / cg" |
2968 | 1221 |
! |
1222 |
||
1223 |
updatePrinterInPrintersSettings |
|
4067 | 1224 |
|printer| |
3262 | 1225 |
|
1226 |
self isSelectedPrinterAvailable ifFalse:[^ nil]. |
|
1227 |
||
4067 | 1228 |
printer := self selectedPrinter. |
1229 |
self class |
|
1230 |
printersSettingsAt:printer printerName |
|
1231 |
put:printer. |
|
2968 | 1232 |
|
1233 |
"Created: / 04-08-2006 / 13:58:21 / fm" |
|
4067 | 1234 |
"Modified: / 17-08-2011 / 09:42:31 / cg" |
2968 | 1235 |
! ! |
1236 |
||
1237 |
!PrintingDialog methodsFor:'unknownPaperSize'! |
|
1238 |
||
1239 |
addUnknownPaperSize |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1240 |
self paperSizeListHolder value add:self unknownPaperSizeNameDescription |
2968 | 1241 |
|
1242 |
"Created: / 31-07-2006 / 16:24:18 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1243 |
"Modified: / 10-10-2006 / 17:49:54 / cg" |
2968 | 1244 |
! |
1245 |
||
1246 |
removeUnknownPaperSize |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1247 |
self paperSizeListHolder value |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1248 |
remove:self unknownPaperSizeNameDescription |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1249 |
ifAbsent:[ nil ] |
2968 | 1250 |
|
1251 |
"Created: / 31-07-2006 / 15:50:01 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1252 |
"Modified: / 10-10-2006 / 17:49:57 / cg" |
2968 | 1253 |
! |
1254 |
||
1255 |
unknownPaperSizeNameDescription |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1256 |
^ 'Unknown - Size defined in Printer settings'. |
2968 | 1257 |
|
1258 |
"Created: / 31-07-2006 / 15:50:18 / fm" |
|
1259 |
"Modified: / 01-08-2006 / 11:42:31 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1260 |
"Modified: / 10-10-2006 / 17:50:00 / cg" |
2968 | 1261 |
! ! |
1262 |
||
1263 |
!PrintingDialog methodsFor:'update'! |
|
1264 |
||
1265 |
clearProperties |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1266 |
self numberOfCopiesHolder value:0. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1267 |
self selectedPaperSizeHolder value:''. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1268 |
statusLabel label:''. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1269 |
driverNameLabel label:''. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1270 |
locationLabel label:''. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1271 |
commentLabel label:''. |
2968 | 1272 |
|
1273 |
"Created: / 01-08-2006 / 12:17:46 / fm" |
|
1274 |
"Modified: / 01-08-2006 / 15:07:19 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1275 |
"Modified: / 10-10-2006 / 17:50:18 / cg" |
2968 | 1276 |
! |
1277 |
||
1278 |
updateCollateImage |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1279 |
collateImageLabel |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1280 |
label:self collateImage; |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1281 |
redraw. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1282 |
collateImageLabel flush |
2968 | 1283 |
|
1284 |
"Created: / 01-08-2006 / 10:02:12 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1285 |
"Modified: / 10-10-2006 / 17:50:21 / cg" |
2968 | 1286 |
! |
1287 |
||
1288 |
updateInfo |
|
4067 | 1289 |
|printer| |
1290 |
||
1291 |
printer := self selectedPrinter. |
|
1292 |
statusLabel label:printer status. |
|
1293 |
driverNameLabel label:printer pDriverName. |
|
1294 |
locationLabel label:printer location. |
|
1295 |
commentLabel label:printer comment. |
|
2968 | 1296 |
|
1297 |
"Created: / 01-08-2006 / 15:05:08 / fm" |
|
4067 | 1298 |
"Modified: / 17-08-2011 / 09:39:00 / cg" |
2968 | 1299 |
! |
1300 |
||
2978 | 1301 |
updateLastUsedPrinterSettings |
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1302 |
self class lastUsedPrinterSettings:self selectedPrinter. |
2978 | 1303 |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1304 |
"Modified: / 10-10-2006 / 17:50:26 / cg" |
2978 | 1305 |
! |
1306 |
||
2968 | 1307 |
updateModifiedCollate |
3262 | 1308 |
|
1309 |
self isSelectedPrinterAvailable ifFalse:[^ nil]. |
|
1310 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1311 |
self collateHolder value:self selectedPrinter collate. |
2968 | 1312 |
|
1313 |
"Created: / 01-08-2006 / 11:50:10 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1314 |
"Modified: / 10-10-2006 / 17:50:28 / cg" |
2968 | 1315 |
! |
1316 |
||
1317 |
updateModifiedNumberOfCopies |
|
3262 | 1318 |
|
1319 |
self isSelectedPrinterAvailable ifFalse:[^ nil]. |
|
1320 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1321 |
self numberOfCopiesHolder value:self selectedPrinter copies. |
2968 | 1322 |
|
1323 |
"Created: / 01-08-2006 / 11:48:26 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1324 |
"Modified: / 10-10-2006 / 17:50:30 / cg" |
2968 | 1325 |
! |
1326 |
||
1327 |
updateModifiedOrientation |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1328 |
self selectedOrientationHolder value:self orientationSymbol. |
2968 | 1329 |
|
1330 |
"Created: / 01-08-2006 / 11:46:58 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1331 |
"Modified: / 10-10-2006 / 17:50:32 / cg" |
2968 | 1332 |
! |
1333 |
||
1334 |
updateModifiedPageSize |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1335 |
|sizeName| |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1336 |
|
3262 | 1337 |
self isSelectedPrinterAvailable ifFalse:[^ nil]. |
1338 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1339 |
sizeName := self selectedPrinter paperSizeName. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1340 |
sizeName isNil ifTrue:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1341 |
self addUnknownPaperSize. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1342 |
sizeName := self unknownPaperSizeNameDescription |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1343 |
] ifFalse:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1344 |
self removeUnknownPaperSize. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1345 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1346 |
self selectedPaperSizeHolder value:sizeName. |
2968 | 1347 |
|
1348 |
"Created: / 01-08-2006 / 11:47:24 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1349 |
"Modified: / 10-10-2006 / 17:50:34 / cg" |
2968 | 1350 |
! |
1351 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1352 |
updateModifiedProperties |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1353 |
self isSelectedPrinterAvailable ifFalse:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1354 |
^ self clearProperties |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1355 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1356 |
self updateModifiedOrientation. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1357 |
self updateModifiedPageSize. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1358 |
self updateModifiedNumberOfCopies. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1359 |
self updateModifiedCollate. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1360 |
self updateInfo. |
2968 | 1361 |
|
1362 |
"Modified: / 01-08-2006 / 15:05:01 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1363 |
"Modified: / 10-10-2006 / 17:50:36 / cg" |
2968 | 1364 |
! |
1365 |
||
1366 |
updateOrientationImage |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1367 |
orientationImageLabel |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1368 |
label:self orientationImage; |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1369 |
redraw. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1370 |
orientationImageLabel flush |
2968 | 1371 |
|
1372 |
"Created: / 28-07-2006 / 14:38:31 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1373 |
"Modified: / 10-10-2006 / 17:50:38 / cg" |
2968 | 1374 |
! |
1375 |
||
1376 |
updatePaperSizeList |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1377 |
self paperSizeListHolder value:self paperSizeNames |
2968 | 1378 |
|
1379 |
"Created: / 31-07-2006 / 15:24:20 / fm" |
|
1380 |
"Modified: / 31-07-2006 / 16:25:19 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1381 |
"Modified: / 10-10-2006 / 17:50:40 / cg" |
2968 | 1382 |
! |
1383 |
||
1384 |
updatePrintersList |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1385 |
self printerListHolder value:self printerUserFriendlyNames |
2968 | 1386 |
|
1387 |
"Created: / 28-07-2006 / 11:56:14 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1388 |
"Modified: / 10-10-2006 / 17:50:42 / cg" |
2968 | 1389 |
! |
1390 |
||
1391 |
updateValueHolders |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1392 |
self setupActionEnabledHolder value:self setupActionEnabled. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1393 |
self okButtonEnabledHolder value:self okButtonEnabled. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1394 |
self orientationRadioButtonEnabledHolder value:self orientationRadioButtonEnabled. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1395 |
self numberOfCopiesTextEnabledHolder value:self numberOfCopiesTextEnabled. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1396 |
self collateActionEnabledHolder value:self collateActionEnabled. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1397 |
self paperSizeEnabledHolder value:self paperSizeEnabled |
2968 | 1398 |
|
1399 |
"Created: / 28-07-2006 / 12:16:07 / fm" |
|
1400 |
"Modified: / 01-08-2006 / 09:39:22 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1401 |
"Modified: / 10-10-2006 / 17:50:49 / cg" |
2968 | 1402 |
! ! |
1403 |
||
1404 |
!PrintingDialog methodsFor:'update properties'! |
|
1405 |
||
1406 |
updateCollate |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1407 |
self isSelectedPrinterAvailable ifFalse:[ |
3262 | 1408 |
^ nil |
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1409 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1410 |
self selectedPrinter collate:self collateHolder value |
2968 | 1411 |
|
1412 |
"Created: / 01-08-2006 / 09:55:30 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1413 |
"Modified: / 10-10-2006 / 17:51:01 / cg" |
2968 | 1414 |
! |
1415 |
||
1416 |
updateNumberOfCopies |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1417 |
self isSelectedPrinterAvailable ifFalse:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1418 |
^ self |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1419 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1420 |
self selectedPrinter copies:self numberOfCopiesHolder value |
2968 | 1421 |
|
1422 |
"Created: / 31-07-2006 / 13:54:16 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1423 |
"Modified: / 10-10-2006 / 17:51:09 / cg" |
2968 | 1424 |
! |
1425 |
||
1426 |
updatePaperSize |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1427 |
(self isSelectedPrinterAvailable and:[ self isSelectedPaperSize ]) ifFalse:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1428 |
^ self |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1429 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1430 |
self selectedPrinter paperSizeName:self selectedPaperSizeHolder value |
2968 | 1431 |
|
1432 |
"Created: / 31-07-2006 / 16:04:32 / fm" |
|
1433 |
"Modified: / 02-08-2006 / 11:43:12 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1434 |
"Modified: / 10-10-2006 / 17:51:11 / cg" |
2968 | 1435 |
! |
1436 |
||
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1437 |
updatePrinterOrientation |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1438 |
|selectedPrinter| |
2968 | 1439 |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1440 |
self isSelectedPrinterAvailable ifFalse:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1441 |
^ self |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1442 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1443 |
selectedPrinter := self selectedPrinter. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1444 |
self isPortraitSelected ifTrue:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1445 |
selectedPrinter setPortraitOrientation |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1446 |
] ifFalse:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1447 |
selectedPrinter setLandscapeOrientation |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1448 |
] |
2968 | 1449 |
|
1450 |
"Created: / 28-07-2006 / 15:47:37 / fm" |
|
1451 |
"Modified: / 31-07-2006 / 13:53:32 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1452 |
"Modified: / 10-10-2006 / 17:52:46 / cg" |
2968 | 1453 |
! ! |
1454 |
||
1455 |
!PrintingDialog methodsFor:'user actions'! |
|
1456 |
||
1457 |
accept |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1458 |
answer := self selectedPrinter. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1459 |
self updateLastUsedPrinterSettings. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1460 |
self close |
2968 | 1461 |
|
1462 |
"Created: / 31-07-2006 / 13:52:48 / fm" |
|
1463 |
"Modified: / 03-08-2006 / 15:31:17 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1464 |
"Modified: / 10-10-2006 / 17:53:13 / cg" |
2968 | 1465 |
! |
1466 |
||
1467 |
collateHolderChanged |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1468 |
self updateCollate. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1469 |
self updateCollateImage. |
2968 | 1470 |
|
1471 |
"Created: / 01-08-2006 / 09:55:10 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1472 |
"Modified: / 10-10-2006 / 17:53:17 / cg" |
2968 | 1473 |
! |
1474 |
||
1475 |
numberOfCopiesHolderChanged |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1476 |
self updateNumberOfCopies. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1477 |
self updateValueHolders. |
2968 | 1478 |
|
1479 |
"Created: / 01-08-2006 / 09:37:53 / fm" |
|
1480 |
"Modified: / 01-08-2006 / 10:49:39 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1481 |
"Modified: / 10-10-2006 / 17:53:22 / cg" |
2968 | 1482 |
! |
1483 |
||
1484 |
openSetup |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1485 |
self selectedPrinter isNil ifTrue:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1486 |
^ self |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1487 |
]. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1488 |
self selectedPrinter openPropertiesDialog ifTrue:[ |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1489 |
self updatePrinterInPrintersSettings. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1490 |
self updateModifiedProperties |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1491 |
]. |
2968 | 1492 |
|
1493 |
"Created: / 28-07-2006 / 11:38:22 / fm" |
|
1494 |
"Modified: / 04-08-2006 / 14:05:49 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1495 |
"Modified: / 10-10-2006 / 17:53:27 / cg" |
2968 | 1496 |
! |
1497 |
||
1498 |
printerSelectionChanged |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1499 |
self addOrRecoverPrinterSettings. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1500 |
self updateModifiedProperties. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1501 |
self updateValueHolders. |
2968 | 1502 |
|
1503 |
"Created: / 28-07-2006 / 11:32:41 / fm" |
|
1504 |
"Modified: / 04-08-2006 / 13:55:06 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1505 |
"Modified: / 10-10-2006 / 17:53:30 / cg" |
2968 | 1506 |
! |
1507 |
||
1508 |
selectedOrientationHolderChanged |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1509 |
self updateOrientationImage. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1510 |
self updatePrinterOrientation |
2968 | 1511 |
|
1512 |
"Created: / 28-07-2006 / 14:19:25 / fm" |
|
1513 |
"Modified: / 28-07-2006 / 15:46:15 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1514 |
"Modified: / 10-10-2006 / 17:53:36 / cg" |
2968 | 1515 |
! |
1516 |
||
1517 |
selectedPaperSizeHolderChanged |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1518 |
self updatePaperSize. |
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1519 |
self removeUnknownPaperSize |
2968 | 1520 |
|
1521 |
"Created: / 01-08-2006 / 09:27:24 / fm" |
|
3095
ce3884b4f88d
pretty printed & added some documentation and examples
Claus Gittinger <cg@exept.de>
parents:
3048
diff
changeset
|
1522 |
"Modified: / 10-10-2006 / 17:53:38 / cg" |
2968 | 1523 |
! ! |
1524 |
||
1525 |
!PrintingDialog class methodsFor:'documentation'! |
|
1526 |
||
1527 |
version |
|
5063 | 1528 |
^ '$Header$' |
2968 | 1529 |
! ! |
3624 | 1530 |
|
4585
1b07c95686bc
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
4067
diff
changeset
|
1531 |
|
3624 | 1532 |
PrintingDialog initialize! |