Class new title: CharLine
	subclassof: Object
	fields: 'starti stopi spaces padwidth'
	declare: ''

= t1 
	[(starti = t1 starti and stopi = t1 stopi) and (spaces = t1 spaces and padwidth = t1 padwidth)]

padwidth [padwidth]

slide: t1 
	[starti _ starti + t1.
	stopi _ stopi + t1]

spaces [spaces]

starti [starti]

starti: t1 stopi: t2 spaces: t3 padwidth: t4 
	[starti _ t1.
	stopi _ t2.
	spaces _ t3.
	padwidth _ t4]

stopi [stopi]

stopi_ t1 
	[stopi _ t1]