ScrollPane

Bonjour,

Je ne suis pas sur d'avoir réellement posté ce qui suit,
si c'est le cas, veuillez m'excuser de ce doublon.

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.