equal
deleted
inserted
replaced
372 ^ canvas |
372 ^ canvas |
373 |
373 |
374 "Modified: / 06-09-2006 / 15:07:55 / cg" |
374 "Modified: / 06-09-2006 / 15:07:55 / cg" |
375 ! |
375 ! |
376 |
376 |
|
377 canvasApplication |
|
378 "returns the application the canvas is running" |
|
379 |
|
380 |canvas| |
|
381 |
|
382 (canvas := self canvas) isNil ifTrue:[^ nil]. |
|
383 (canvas isKindOf:ApplicationModel) ifTrue:[ ^ canvas ]. |
|
384 ^ canvas application |
|
385 ! |
|
386 |
377 canvasOrNil |
387 canvasOrNil |
378 "returns the application or nil - does NOT create one" |
388 "returns the application or nil - does NOT create one" |
379 |
389 |
380 ^ canvas |
390 ^ canvas |
381 ! |
391 ! |
468 frame autoHideScrollBars:auto |
478 frame autoHideScrollBars:auto |
469 ]. |
479 ]. |
470 frame scrolledView scrolledView:aView. |
480 frame scrolledView scrolledView:aView. |
471 ]. |
481 ]. |
472 frame objectAttributeAt:#isTabItem put:true. |
482 frame objectAttributeAt:#isTabItem put:true. |
473 ^ frame |
483 ^ frame |
474 ! ! |
484 ! ! |
475 |
485 |
476 !TabItem methodsFor:'accessing-scrollbars'! |
486 !TabItem methodsFor:'accessing-scrollbars'! |
477 |
487 |
478 autoHideScrollBars |
488 autoHideScrollBars |
805 ! ! |
815 ! ! |
806 |
816 |
807 !TabItem class methodsFor:'documentation'! |
817 !TabItem class methodsFor:'documentation'! |
808 |
818 |
809 version |
819 version |
810 ^ '$Header: /cvs/stx/stx/libwidg2/TabItem.st,v 1.29 2008-05-28 13:24:20 cg Exp $' |
820 ^ '$Header: /cvs/stx/stx/libwidg2/TabItem.st,v 1.30 2008-06-05 16:36:30 cg Exp $' |
811 ! ! |
821 ! ! |