equal
deleted
inserted
replaced
337 ! |
337 ! |
338 |
338 |
339 resizeToFit |
339 resizeToFit |
340 "resize myself to make the component view fit" |
340 "resize myself to make the component view fit" |
341 |
341 |
342 |h w pref| |
342 |h w pref bw| |
343 |
343 |
344 pref := myView preferredExtent. |
344 pref := myView preferredExtent. |
345 shapeStyle == #cartoon ifTrue:[ |
345 shapeStyle == #cartoon ifTrue:[ |
346 h := pref y. |
346 h := pref y. |
347 w := pref x. |
347 w := pref x. |
348 self extent:((w / 0.85) rounded asInteger) |
348 self extent:((w / 0.85) @ (h * 4)) rounded. |
349 @ |
|
350 ((h * 4) rounded asInteger) |
|
351 ] ifFalse:[ |
349 ] ifFalse:[ |
352 self extent:(pref + (self borderWidth * 2)). |
350 bw := self borderWidth. |
353 myView origin:(self borderWidth asPoint). |
351 self extent:(pref + (bw * 2)). |
|
352 myView origin:(bw asPoint). |
354 ] |
353 ] |
355 |
354 |
356 "Modified: 28.6.1997 / 14:23:49 / cg" |
355 "Modified: 28.6.1997 / 14:23:49 / cg" |
357 ! ! |
356 ! ! |
358 |
357 |
367 ! ! |
366 ! ! |
368 |
367 |
369 !ActiveHelpView class methodsFor:'documentation'! |
368 !ActiveHelpView class methodsFor:'documentation'! |
370 |
369 |
371 version |
370 version |
372 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.34 2013-08-31 11:57:37 cg Exp $' |
371 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.35 2013-08-31 17:42:49 cg Exp $' |
373 ! |
372 ! |
374 |
373 |
375 version_CVS |
374 version_CVS |
376 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.34 2013-08-31 11:57:37 cg Exp $' |
375 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.35 2013-08-31 17:42:49 cg Exp $' |
377 ! ! |
376 ! ! |
378 |
377 |