equal
deleted
inserted
replaced
313 "Modified: 10.2.1997 / 15:55:04 / cg" |
313 "Modified: 10.2.1997 / 15:55:04 / cg" |
314 ! ! |
314 ! ! |
315 |
315 |
316 !Border methodsFor:'private accessing'! |
316 !Border methodsFor:'private accessing'! |
317 |
317 |
|
318 setBorderColor:aColor |
|
319 leftColor := rightColor := topColor := bottomColor := aColor |
|
320 ! |
|
321 |
|
322 setBorderWidth:aWidth |
|
323 left := right := top := bottom := aWidth. |
|
324 ! |
|
325 |
318 setBorderWidth:aWidth color:aColor |
326 setBorderWidth:aWidth color:aColor |
319 left := right := top := bottom := aWidth. |
327 left := right := top := bottom := aWidth. |
320 leftColor := rightColor := topColor := bottomColor := aColor |
328 leftColor := rightColor := topColor := bottomColor := aColor |
321 |
329 |
322 "Created: 10.2.1997 / 15:21:27 / cg" |
330 "Created: 10.2.1997 / 15:21:27 / cg" |
369 ! ! |
377 ! ! |
370 |
378 |
371 !Border class methodsFor:'documentation'! |
379 !Border class methodsFor:'documentation'! |
372 |
380 |
373 version |
381 version |
374 ^ '$Header: /cvs/stx/stx/libview/Border.st,v 1.3 1997-02-10 14:56:16 cg Exp $' |
382 ^ '$Header: /cvs/stx/stx/libview/Border.st,v 1.4 2000-01-22 19:45:36 cg Exp $' |
375 ! ! |
383 ! ! |