equal
deleted
inserted
replaced
719 vscroller autoHideScrollBars:true. |
719 vscroller autoHideScrollBars:true. |
720 scrolledView := vscroller scrolledView. |
720 scrolledView := vscroller scrolledView. |
721 scrolledView scrolledView:View new. |
721 scrolledView scrolledView:View new. |
722 frame realizeAllSubViews. |
722 frame realizeAllSubViews. |
723 frame sizeChanged:nil. |
723 frame sizeChanged:nil. |
|
724 |
|
725 "/ we dont want any 3D effect for the scrolled view. |
|
726 "/ must change the slaveViews level late, after realization. |
|
727 "/ (scrolledView has its own idea, changing the level of |
|
728 "/ the scrolled view. |
|
729 scrolledView level:0. |
724 ]. |
730 ]. |
725 ^ scrolledView |
731 ^ scrolledView |
|
732 |
|
733 "Modified: / 21.5.1998 / 00:59:05 / cg" |
726 ! |
734 ! |
727 |
735 |
728 windowFrame |
736 windowFrame |
729 windowFrame isNil ifTrue:[ |
737 windowFrame isNil ifTrue:[ |
730 windowFrame := builder componentAt:#Frame |
738 windowFrame := builder componentAt:#Frame |