hg/stx-libwidg2: Ruler.st@fda861e265ca (annotated)

0 0fd7841626f6 Initial revision claus parents: diff changeset	1	"
4 e1e3fbe98999 claus parents: 2 diff changeset	2	COPYRIGHT (c) 1991 by Claus Gittinger
24 6704fad5eb7d * empty log message * claus parents: 11 diff changeset	3	All Rights Reserved
0 0fd7841626f6 Initial revision claus parents: diff changeset	4
0fd7841626f6 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
0fd7841626f6 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
0fd7841626f6 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
0fd7841626f6 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
0fd7841626f6 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
0fd7841626f6 Initial revision claus parents: diff changeset	10	hereby transferred.
0fd7841626f6 Initial revision claus parents: diff changeset	11	"
0fd7841626f6 Initial revision claus parents: diff changeset	12
49 4dd0f5c3353e . claus parents: 42 diff changeset	13	SimpleView subclass:#Ruler
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	14	instanceVariableNames:'fgColor metric paperWidth paperHeight scale showUnit orientation'
117 e52304e1b185 checkin from browser Claus Gittinger <cg@exept.de> parents: 99 diff changeset	15	classVariableNames:''
e52304e1b185 checkin from browser Claus Gittinger <cg@exept.de> parents: 99 diff changeset	16	poolDictionaries:''
e52304e1b185 checkin from browser Claus Gittinger <cg@exept.de> parents: 99 diff changeset	17	category:'Views-Misc'
0 0fd7841626f6 Initial revision claus parents: diff changeset	18	!
0fd7841626f6 Initial revision claus parents: diff changeset	19
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	20	!Ruler class methodsFor:'documentation'!
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	21
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	22	copyright
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	23	"
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	24	COPYRIGHT (c) 1991 by Claus Gittinger
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	25	All Rights Reserved
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	26
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	27	This software is furnished under a license and may be used
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	28	only in accordance with the terms of that license and with the
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	29	inclusion of the above copyright notice. This software may not
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	30	be provided or otherwise made available to, or used by, any
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	31	other person. No title to or ownership of the software is
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	32	hereby transferred.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	33	"
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	34	!
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	35
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	36	documentation
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	37	"
117 e52304e1b185 checkin from browser Claus Gittinger <cg@exept.de> parents: 99 diff changeset	38
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	39	a shows some unit scale; See example use in DrawTool.
36 160b8f0dfd7d * empty log message * claus parents: 34 diff changeset	40
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	41	instance variables:
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	42
117 e52304e1b185 checkin from browser Claus Gittinger <cg@exept.de> parents: 99 diff changeset	43	fgColor <Color> color to draw text and marks with
e52304e1b185 checkin from browser Claus Gittinger <cg@exept.de> parents: 99 diff changeset	44	metric <Symbol> inch or mm
e52304e1b185 checkin from browser Claus Gittinger <cg@exept.de> parents: 99 diff changeset	45	paperWidth <Number> width of paper
e52304e1b185 checkin from browser Claus Gittinger <cg@exept.de> parents: 99 diff changeset	46	paperHeight <Number> height of paper
e52304e1b185 checkin from browser Claus Gittinger <cg@exept.de> parents: 99 diff changeset	47	scale <Number> scale factor for zoom
e52304e1b185 checkin from browser Claus Gittinger <cg@exept.de> parents: 99 diff changeset	48	showUnit <Boolean> if true, a unit string is displayed
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	49	"
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	50	!
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	51
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	52	examples
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	53	"
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 117 diff changeset	54	[exBegin]
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	55	\|top ruler\|
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	56
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	57	top := StandardSystemView new.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	58	ruler := Ruler origin:0.0@0.0 corner:1.0@30 in:top.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	59	top open
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 117 diff changeset	60	[exEnd]
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	61
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	62
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	63	defining paperWidth:
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 117 diff changeset	64	[exBegin]
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	65	\|top ruler\|
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	66
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	67	top := StandardSystemView new.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	68	ruler := Ruler origin:0.0@0.0 corner:1.0@30 in:top.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	69	ruler paperWidthInch:5.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	70	top open
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 117 diff changeset	71	[exEnd]
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	72
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	73
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	74	hide unit string:
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 117 diff changeset	75	[exBegin]
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	76	\|top ruler\|
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	77
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	78	top := StandardSystemView new.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	79	ruler := Ruler origin:0.0@0.0 corner:1.0@30 in:top.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	80	ruler showUnit:false.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	81	top open
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 117 diff changeset	82	[exEnd]
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	83
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	84
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	85	both horizontal and vertical rulers (as in DrawTool):
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 117 diff changeset	86	[exBegin]
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	87	\|top hRuler vRuler\|
0 0fd7841626f6 Initial revision claus parents: diff changeset	88
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	89	top := StandardSystemView new.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	90	hRuler := Ruler origin:30@0.0 corner:1.0@30 in:top.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	91	vRuler := VerticalRuler origin:0.0@30 corner:30@1.0 in:top.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	92	vRuler showUnit:false.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	93	top open
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 117 diff changeset	94	[exEnd]
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	95
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	96
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	97	with some 3D effects:
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 117 diff changeset	98	[exBegin]
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	99	\|top hRuler vRuler\|
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	100
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	101	top := StandardSystemView new.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	102	hRuler := Ruler origin:30@0.0 corner:1.0@30 in:top.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	103	vRuler := VerticalRuler origin:0.0@30 corner:30@1.0 in:top.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	104	vRuler showUnit:false.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	105	hRuler level:1.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	106	vRuler level:1.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	107	top open
161 5b6e284959a4 examples Claus Gittinger <cg@exept.de> parents: 117 diff changeset	108	[exEnd]
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	109
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	110	see the DrawTool, for how to make it scroll in sync with some
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	111	other view.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	112	"
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	113	! !
0 0fd7841626f6 Initial revision claus parents: diff changeset	114
0fd7841626f6 Initial revision claus parents: diff changeset	115	!Ruler methodsFor:'accessing'!
0fd7841626f6 Initial revision claus parents: diff changeset	116
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	117	heightOfContents
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	118	^ (device verticalPixelPerInch * paperHeight) rounded
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	119	!
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	120
0 0fd7841626f6 Initial revision claus parents: diff changeset	121	metric:aSymbol
24 6704fad5eb7d * empty log message * claus parents: 11 diff changeset	122	"set the metric. The argument may be either #inch or #mm"
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	123
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	124	aSymbol ~~ metric ifTrue:[
194 e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	125	metric := aSymbol.
e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	126	self invalidate
24 6704fad5eb7d * empty log message * claus parents: 11 diff changeset	127	]
194 e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	128
e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	129	"Modified: 29.5.1996 / 16:42:46 / cg"
24 6704fad5eb7d * empty log message * claus parents: 11 diff changeset	130	!
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	131
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	132	paperHeightInch:inches
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	133	"set the width of the document"
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	134
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	135	paperHeight := inches.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	136	shown ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	137	self redraw
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	138	]
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	139	!
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	140
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	141	paperHeightMM:millis
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	142	"set the width of the document"
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	143
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	144	paperHeight := UnitConverter millimeterToInch:millis.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	145	shown ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	146	self redraw
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	147	]
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	148
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	149	"Modified: 31.5.1996 / 19:39:46 / cg"
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	150	!
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	151
24 6704fad5eb7d * empty log message * claus parents: 11 diff changeset	152	paperWidthInch:inches
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	153	"set the width of the document"
0 0fd7841626f6 Initial revision claus parents: diff changeset	154
24 6704fad5eb7d * empty log message * claus parents: 11 diff changeset	155	paperWidth := inches.
0 0fd7841626f6 Initial revision claus parents: diff changeset	156	shown ifTrue:[
24 6704fad5eb7d * empty log message * claus parents: 11 diff changeset	157	self redraw
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	158	]
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	159	!
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	160
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	161	paperWidthMM:millis
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	162	"set the width of the document"
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	163
196 9311b28d1a32 checkin from browser Claus Gittinger <cg@exept.de> parents: 195 diff changeset	164	paperWidth := UnitConverter millimeterToInch:millis.
24 6704fad5eb7d * empty log message * claus parents: 11 diff changeset	165	shown ifTrue:[
196 9311b28d1a32 checkin from browser Claus Gittinger <cg@exept.de> parents: 195 diff changeset	166	self redraw
0 0fd7841626f6 Initial revision claus parents: diff changeset	167	]
196 9311b28d1a32 checkin from browser Claus Gittinger <cg@exept.de> parents: 195 diff changeset	168
9311b28d1a32 checkin from browser Claus Gittinger <cg@exept.de> parents: 195 diff changeset	169	"Modified: 31.5.1996 / 19:39:32 / cg"
26 ff148983c183 * empty log message * claus parents: 24 diff changeset	170	!
ff148983c183 * empty log message * claus parents: 24 diff changeset	171
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	172	scale:aFactor
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	173	"set the scale factor. 1 is identity."
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	174
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	175	aFactor ~= scale ifTrue:[
194 e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	176	scale := aFactor.
e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	177	self invalidate
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	178	]
194 e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	179
e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	180	"Modified: 29.5.1996 / 16:42:56 / cg"
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	181	!
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	182
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	183	showUnit:aBoolean
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	184	"set/clear the showUnit flag. If false, the unit string
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	185	(i.e. 'inch' or 'mm') is not schown. Default is true."
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	186
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	187	showUnit := aBoolean.
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	188	!
3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	189
26 ff148983c183 * empty log message * claus parents: 24 diff changeset	190	viewOrigin:origin
33 3e68e4c73db3 last version before big scrolling change claus parents: 30 diff changeset	191	origin = self viewOrigin ifTrue:[^ self].
26 ff148983c183 * empty log message * claus parents: 24 diff changeset	192	super setViewOrigin:origin.
194 e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	193	self invalidate
e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	194
e57ac9093b2d use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 161 diff changeset	195	"Modified: 29.5.1996 / 16:43:03 / cg"
28 ca403f4c5b86 * empty log message * claus parents: 26 diff changeset	196	!
ca403f4c5b86 * empty log message * claus parents: 26 diff changeset	197
ca403f4c5b86 * empty log message * claus parents: 26 diff changeset	198	widthOfContents
ca403f4c5b86 * empty log message * claus parents: 26 diff changeset	199	^ (device horizontalPixelPerInch * paperWidth) rounded
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	200	! !
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	201
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	202	!Ruler methodsFor:'initialization'!
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	203
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	204	initialize
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	205	super initialize.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	206
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	207	orientation isNil ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	208	orientation := #horizontal.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	209	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	210
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	211	viewBackground := styleSheet colorAt:#rulerBackgroundColor default:viewBackground.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	212	fgColor := styleSheet colorAt:#rulerForegroundColor.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	213	fgColor isNil ifTrue:[
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	214	fgColor := styleSheet colorAt:#foregroundColor.
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	215	].
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	216	fgColor isNil ifTrue:[
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	217	viewBackground brightness > 0.5 ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	218	fgColor := Black.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	219	] ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	220	fgColor := White
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	221	].
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	222	].
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	223	fgColor := fgColor on:device.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	224
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	225	bitGravity := #NorthWest.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	226
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	227	self height:(font height + (2 * font descent)).
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	228
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	229	(Smalltalk language == #english) ifTrue:[
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	230	metric := #inch
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	231	] ifFalse:[
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	232	metric := #mm
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	233	].
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	234	metric := styleSheet at:#rulerMetric default:metric.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	235
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	236	showUnit := true.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	237
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	238	scale := 1.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	239
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	240	paperWidth := 8.5.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	241	paperHeight := 11.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	242
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	243	"
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	244	take a smaller font
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	245	"
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	246	font := (Font family:(font family)
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	247	face:(font face)
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	248	style:(font style)
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	249	size:8) on:device.
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	250
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	251	"
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	252	Ruler new open
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	253	"
28 ca403f4c5b86 * empty log message * claus parents: 26 diff changeset	254	!
ca403f4c5b86 * empty log message * claus parents: 26 diff changeset	255
95 041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	256	reinitialize
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	257	super reinitialize.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	258	font := font on:device.
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	259	! !
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	260
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	261	!Ruler methodsFor:'metric conversions'!
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	262
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	263	inchToPixel:inches
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	264	"convert inches to screen pixels"
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	265
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	266	^ inches * self horizontalPixelPerInch
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	267	!
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	268
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	269	millimeterToPixel:mm
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	270	"convert mms to screen pixels"
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	271
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	272	^ mm * self horizontalPixelPerMillimeter
041618c4207f checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	273
0 0fd7841626f6 Initial revision claus parents: diff changeset	274	! !
0fd7841626f6 Initial revision claus parents: diff changeset	275
0fd7841626f6 Initial revision claus parents: diff changeset	276	!Ruler methodsFor:'redrawing'!
0fd7841626f6 Initial revision claus parents: diff changeset	277
0fd7841626f6 Initial revision claus parents: diff changeset	278	redraw
28 ca403f4c5b86 * empty log message * claus parents: 26 diff changeset	279	"redraw the scale"
0 0fd7841626f6 Initial revision claus parents: diff changeset	280
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	281	\|x y pixelPerMM pixelPerInch mod pos shortLen veryShortLen longLen
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	282	charX charY fontHeight fontAscent
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	283	top paperHeightMM paperWidthMM paperHeightPixel paperWidthPixel
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	284	org xOrigin yOrigin labelRight labelBot stringRight marg\|
0 0fd7841626f6 Initial revision claus parents: diff changeset	285
24 6704fad5eb7d * empty log message * claus parents: 11 diff changeset	286	shown ifFalse:[^ self].
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	287
6704fad5eb7d * empty log message * claus parents: 11 diff changeset	288	self clear.
0 0fd7841626f6 Initial revision claus parents: diff changeset	289
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	290	org := self viewOrigin.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	291	xOrigin := org x.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	292	yOrigin := org y.
6 ff95fd6d4e96 * empty log message * claus parents: 4 diff changeset	293
26 ff148983c183 * empty log message * claus parents: 24 diff changeset	294	paperWidthPixel := ((self inchToPixel:paperWidth) * scale) rounded.
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	295	paperHeightPixel := ((self inchToPixel:paperHeight) * scale) rounded.
26 ff148983c183 * empty log message * claus parents: 24 diff changeset	296
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	297	paperWidthMM := UnitConverter inchToMillimeter:paperWidth.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	298	paperHeightMM := UnitConverter inchToMillimeter:paperHeight.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	299	pixelPerMM := (self millimeterToPixel:1) * scale.
0 0fd7841626f6 Initial revision claus parents: diff changeset	300
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	301	fontHeight := font height.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	302	fontAscent := font ascent.
0 0fd7841626f6 Initial revision claus parents: diff changeset	303
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	304	orientation == #horizontal ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	305	(xOrigin + width > paperWidthPixel) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	306	self paint:(Color darkGrey).
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	307	self
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	308	fillRectangleX:paperWidthPixel y:0
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	309	width:(xOrigin + width - paperWidthPixel) height:height.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	310	self paint:fgColor.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	311	self
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	312	displayLineFromX:paperWidthPixel y:0
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	313	toX:paperWidthPixel y:height
195 0fbaea91aa3d use UnitConverter Claus Gittinger <cg@exept.de> parents: 194 diff changeset	314	].
6 ff95fd6d4e96 * empty log message * claus parents: 4 diff changeset	315
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	316	self paint:fgColor.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	317
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	318	top := height - fontHeight - fontAscent.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	319	longLen := fontHeight.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	320	shortLen := longLen // 2.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	321	charY := top + fontAscent + shortLen.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	322	mod := 1.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	323	marg := 3. "character shift"
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	324
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	325	(metric == #mm) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	326	"centimeter - long blibs every centimeter; short ones every half"
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	327
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	328	pos := 5.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	329	showUnit ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	330	labelRight := stringRight := marg + (font widthOf:'cm') + 3 + xOrigin.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	331	] ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	332	labelRight := stringRight := xOrigin.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	333	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	334
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	335	x := (pixelPerMM * pos) rounded.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	336	[(x < (width+xOrigin)) and:[pos <= paperWidthMM]] whileTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	337	\|l\|
26 ff148983c183 * empty log message * claus parents: 24 diff changeset	338
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	339	l := shortLen.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	340	(mod ~~ 1) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	341	x < stringRight ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	342	l := longLen
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	343	].
195 0fbaea91aa3d use UnitConverter Claus Gittinger <cg@exept.de> parents: 194 diff changeset	344	].
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	345	self displayLineFromX:x y:top
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	346	toX:x y:(top + l).
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	347
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	348	((x < stringRight) or:[mod == 1]) ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	349	self displayString:(pos // 10) printString
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	350	x:(x + marg)
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	351	y:charY.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	352	stringRight := x + marg
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	353	+ (font widthOf:(pos // 10) printString)
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	354	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	355	mod := (mod + 1) \\ 2.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	356	pos := pos + 5.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	357	x := (pixelPerMM * pos) rounded
195 0fbaea91aa3d use UnitConverter Claus Gittinger <cg@exept.de> parents: 194 diff changeset	358	].
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	359	showUnit ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	360	self displayString:'cm ' x:marg+xOrigin y:charY.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	361	]
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	362	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	363	(metric == #inch) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	364	"inches - long blibs every inch; short ones every half; very
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	365	short ones every quarter"
26 ff148983c183 * empty log message * claus parents: 24 diff changeset	366
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	367	pixelPerInch := (self inchToPixel:1) * scale.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	368	pos := 0.25.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	369	showUnit ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	370	labelRight := marg + (font widthOf:'inch') + 3 + xOrigin.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	371	] ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	372	labelRight := xOrigin
195 0fbaea91aa3d use UnitConverter Claus Gittinger <cg@exept.de> parents: 194 diff changeset	373	].
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	374
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	375	x := (pixelPerInch * pos) rounded.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	376	veryShortLen := longLen // 4.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	377	[(x < (xOrigin+width)) and:[pos <= paperWidth]] whileTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	378	\|l\|
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	379
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	380	l := shortLen.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	381	(mod == 0) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	382	x < labelRight ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	383	l := longLen
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	384	]
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	385	] ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	386	(mod == 2) ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	387	l := veryShortLen
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	388	]
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	389	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	390	self displayLineFromX:x y:top
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	391	toX:x y:(top + l).
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	392
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	393	(mod == 0 and:[x >= labelRight]) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	394	self displayString:pos asInteger printString
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	395	x:(x + marg)
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	396	y:charY
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	397	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	398	mod := (mod + 1) \\ 4.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	399	pos := pos + 0.25.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	400	x := (pixelPerInch * pos) rounded
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	401	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	402	showUnit ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	403	self displayString:'inch ' x:marg+xOrigin y:charY.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	404	]
195 0fbaea91aa3d use UnitConverter Claus Gittinger <cg@exept.de> parents: 194 diff changeset	405	].
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	406	] ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	407	"/ orientation == #vertical ...
0 0fd7841626f6 Initial revision claus parents: diff changeset	408
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	409	(yOrigin + height > paperHeightPixel) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	410	self paint:(Color darkGrey).
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	411	self fillRectangleX:0 y:paperHeightPixel
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	412	width:width
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	413	height:(yOrigin + height - paperHeightPixel).
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	414	self paint:fgColor.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	415	self displayLineFromX:0 y:paperHeightPixel
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	416	toX:width y:paperHeightPixel
195 0fbaea91aa3d use UnitConverter Claus Gittinger <cg@exept.de> parents: 194 diff changeset	417	].
6 ff95fd6d4e96 * empty log message * claus parents: 4 diff changeset	418
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	419	self paint:fgColor.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	420
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	421	left := 0. "width - (font widthOf:'WW')"
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	422	longLen := font widthOf:'WW'.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	423	shortLen := longLen // 2.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	424	charX := left + shortLen.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	425	mod := 1.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	426	marg := 3. "character shift"
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	427
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	428	showUnit ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	429	labelBot := marg + fontHeight + fontAscent + yOrigin.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	430	] ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	431	labelBot := yOrigin
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	432	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	433
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	434	(metric == #mm) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	435	"centimeter - long blibs every centimeter; short ones every half"
28 ca403f4c5b86 * empty log message * claus parents: 26 diff changeset	436
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	437	pos := 5.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	438	y := (pixelPerMM * pos) rounded.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	439	[(y < (height+yOrigin)) and:[pos <= paperHeightMM]] whileTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	440	\|l\|
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	441
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	442	l := shortLen.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	443	(mod ~~ 1) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	444	y < labelBot ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	445	l := longLen
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	446	]
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	447	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	448	self displayLineFromX:left y:y toX:(left + l) y:y.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	449
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	450	(mod ~~ 1 and:[y >= labelBot]) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	451	self displayString:(pos // 10) printString
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	452	x:charX
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	453	y:(y + marg + fontHeight)
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	454	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	455	mod := (mod + 1) \\ 2.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	456	pos := pos + 5.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	457	y := (pixelPerMM * pos) rounded
195 0fbaea91aa3d use UnitConverter Claus Gittinger <cg@exept.de> parents: 194 diff changeset	458	].
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	459	showUnit ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	460	self displayString:'cm ' x:charX y:marg + fontHeight + yOrigin.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	461	]
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	462	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	463	(metric == #inch) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	464	"inches - long blibs every inch; short ones every half; very
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	465	short ones every quarter"
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	466
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	467	pixelPerInch := (self inchToPixel:1) * scale.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	468	pos := 0.25.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	469
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	470	y := (pixelPerInch * pos) rounded.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	471	veryShortLen := longLen // 4.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	472	[(y < (yOrigin + height)) and:[pos <= paperHeight]] whileTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	473	\|l\|
28 ca403f4c5b86 * empty log message * claus parents: 26 diff changeset	474
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	475	l := shortLen.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	476	(mod == 0) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	477	y < labelBot ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	478	l := longLen.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	479	]
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	480	] ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	481	(mod == 2) ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	482	l := veryShortLen
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	483	]
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	484	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	485	self displayLineFromX:left y:y toX:(left + l) y:y.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	486
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	487	(mod == 0) ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	488	y < labelBot ifFalse:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	489	self displayString:pos asInteger printString
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	490	x:charX
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	491	y:(y + marg + fontHeight)
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	492	]
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	493	].
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	494	mod := (mod + 1) \\ 4.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	495	pos := pos + 0.25.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	496	y := (pixelPerInch * pos) rounded
195 0fbaea91aa3d use UnitConverter Claus Gittinger <cg@exept.de> parents: 194 diff changeset	497	].
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	498	showUnit ifTrue:[
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	499	self displayString:'inch ' x:charX y:marg + fontHeight + yOrigin.
fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	500	]
195 0fbaea91aa3d use UnitConverter Claus Gittinger <cg@exept.de> parents: 194 diff changeset	501	].
0 0fd7841626f6 Initial revision claus parents: diff changeset	502	].
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	503
0 0fd7841626f6 Initial revision claus parents: diff changeset	504	self redrawEdges
195 0fbaea91aa3d use UnitConverter Claus Gittinger <cg@exept.de> parents: 194 diff changeset	505
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	506
0 0fd7841626f6 Initial revision claus parents: diff changeset	507	! !
0fd7841626f6 Initial revision claus parents: diff changeset	508
99 27c080be3479 checkin from browser Claus Gittinger <cg@exept.de> parents: 95 diff changeset	509	!Ruler class methodsFor:'documentation'!
27c080be3479 checkin from browser Claus Gittinger <cg@exept.de> parents: 95 diff changeset	510
27c080be3479 checkin from browser Claus Gittinger <cg@exept.de> parents: 95 diff changeset	511	version
1619 fda861e265ca merged ruler & vRuler (prep for spec support) Claus Gittinger <cg@exept.de> parents: 198 diff changeset	512	^ '$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.27 1999-11-24 12:12:19 cg Exp $'
99 27c080be3479 checkin from browser Claus Gittinger <cg@exept.de> parents: 95 diff changeset	513	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 24 Nov 1999 13:12:33 +0100
changeset 1619	fda861e265ca
parent 198	60f6213aca00
child 2348	6a671b60f274
permissions	-rw-r--r--