equal
deleted
inserted
replaced
328 ! ! |
328 ! ! |
329 |
329 |
330 !CheckToggle methodsFor:'initialization'! |
330 !CheckToggle methodsFor:'initialization'! |
331 |
331 |
332 initStyle |
332 initStyle |
|
333 "setup viewStyle specifics" |
|
334 |
333 super initStyle. |
335 super initStyle. |
334 |
336 |
335 onLevel := offLevel. |
337 onLevel := offLevel. |
336 DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel]. |
338 DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel]. |
337 DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel]. |
339 DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel]. |
348 showLamp := false. |
350 showLamp := false. |
349 |
351 |
350 DefaultBorderWidth notNil ifTrue:[self borderWidth:DefaultBorderWidth]. |
352 DefaultBorderWidth notNil ifTrue:[self borderWidth:DefaultBorderWidth]. |
351 |
353 |
352 offLevel ~~ level ifTrue:[self level:offLevel]. |
354 offLevel ~~ level ifTrue:[self level:offLevel]. |
|
355 |
|
356 "Modified: 22.1.1997 / 11:57:05 / cg" |
353 ! |
357 ! |
354 |
358 |
355 initialize |
359 initialize |
356 super initialize. |
360 super initialize. |
357 passiveLogo := nil. |
361 passiveLogo := nil. |
372 ! ! |
376 ! ! |
373 |
377 |
374 !CheckToggle class methodsFor:'documentation'! |
378 !CheckToggle class methodsFor:'documentation'! |
375 |
379 |
376 version |
380 version |
377 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.28 1996-12-19 13:50:36 cg Exp $' |
381 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.29 1997-01-22 17:18:30 cg Exp $' |
378 ! ! |
382 ! ! |