ScrollPane

Bonjour,

Voici un petit exemple avec un PasteUpMorph contenu dans un ScrollPane.
J'aimerai fixer la largeur du PasteUpMorph à la largeur du ScrollPane moins la largeur de la barre de scroll,
ce qui n'est pas le cas avec : greenMorph extent: sp extent  - (sp scrollBarThickness@0).

Et aussi que la largeur du PasteUpMorph se réajuste automatiquement lorsque l'on modifie la taille de la fenêtre.

Comment puis-je faire ?


|window sp greenMorph  |
window:=StandardWindow labelled: 'ScrollPane Test'.

sp := ScrollPane new borderWidth: 0..

sp alwaysShowVScrollBar: true.
greenMorph := PasteUpMorph new.
greenMorph borderWidth: 0. 
sp scroller addMorph: greenMorph.
window
     addMorph: sp
     fullFrame: (LayoutFrame
         fractions: (0@0 corner: 1@1)
         offsets: (30@50 corner: 80 negated@50 negated)).
greenMorph color: Color green.
sp color: Color black.

window openInWorld.
window extent: 1024@768.
greenMorph extent: sp extent  - (sp scrollBarThickness@0).


Merci.