Morphic: ridimensiona automaticamente la casella di gruppo contenuta in un riquadro di scorrimento?

Question

Test con Pharo 1.4 summer. Penso che sia meglio spiegarlo usando gli screenshot, il codice è sotto.

Questo è il mio stato iniziale (quello che sto ottenendo ora con il mio codice):

Voglio che il morph casella di gruppo da riempire orizzontalmente in apertura, in questo modo:

E dopo il ridimensionamento, voglio il Variante casella di gruppo per mantenere i limiti, vale a dire:

Questo è il codice che ho provato:

| s morph1 morph2 row groupBox scroller | 
s := ScrollPane new. 
morph1 := BorderedMorph new. 
morph2 := BorderedMorph new. 
row := UITheme builder newRow: {morph1 . morph2}. 
groupBox := UITheme builder newGroupbox: 'Group Box Test' for: row. 
    groupBox 
     layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0.8)); 
     vResizing: #spaceFill; 
     hResizing: #spaceFill; 
     layoutChanged. 
scroller := s scroller. 
scroller 
    addMorph: (groupBox position: 0@0) 
    fullFrame: (0 @ 0 corner: 0.8@0.5). 
s scroller color: Color white. 
s 
extent: 250@150; 
openCenteredInWorld 

Il contenitore deve essere uno ScrollPane.

ho adattato il codice di Bert non utilizzare il polimorfo UIBuilder, con conseguente:

morph1 := Morph new. 
morph2 := Morph new. 
row := ScrollPane new. 
row 
    color: Color white; borderColor: Color gray; borderWidth: 1; 
    layoutPolicy: ProportionalLayout new. 
row scroller 
    addMorph: morph1 fullFrame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (5@5 corner: -60@45)); 
    addMorph: morph2 fullFrame: (LayoutFrame fractions: (1@0 corner: 1@0) offsets: (-50@5 corner: -5@45)). 
row 
    extent: 250@150; 
    openInHand 

ma anche non funziona perché morphs blu interni sono sovrapposti e non riempimento della struttura specificata. Ho provato molte combinazioni usando i frame ma niente ha funzionato finora. Sai cosa mi manca?

Answer 1

Utilizzando UIBuilder non è necessario creare manualmente uno scroller. Controllare il seguente script ridimensionando fino a quando le barre di scorrimento verticali o orizzontali vengono visualizzate automaticamente.

| dialog morphList row morph1 morph2 morph3 morph4 | 

morph1 := BorderedMorph new hResizing: #spaceFill. 
morph2 := BorderedMorph new. 
morph3 := BorderedMorph new. 
morph4 := BorderedMorph new. 
row := UITheme builder newRow: {morph1 . morph2 . morph3}. 
morphList := UITheme builder 
    newMorphListFor: (ListModel new list: {row . morph4}) 
    list: #list 
    getSelected: #selectionIndex 
    setSelected: #selectionIndex: 
    help: 'This is a morph list'. 
dialog := UITheme builder newWindowFor: nil title: 'titleString'. 
dialog addMorph: morphList fullFrame: (LayoutFrame fractions: (0@0 corner: 1@0.5)). 
dialog openInWorld 

Answer 2

Stai mancante che ProportionalLayout non usa #spaceFill ecc Quindi, o utilizzare TableLayout:

morph1 := Morph new hResizing: #spaceFill. 
morph2 := Morph new. 
row := Morph new 
    color: Color white; borderColor: Color gray; borderWidth: 1; 
    layoutPolicy: TableLayout new; 
    layoutInset: 5; cellInset: 5; 
    listDirection: #leftToRight; 
    addAllMorphs: {morph1. morph2}; 
    extent: 250@150; 
    openInHand 

o un ProportionalLayout con offset, che è come si possono mescolare a larghezza fissa e relative dimensioni:

morph1 := Morph new. 
morph2 := Morph new. 
row := Morph new 
    color: Color white; borderColor: Color gray; borderWidth: 1; 
    layoutPolicy: ProportionalLayout new; 
    addMorph: morph1 fullFrame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (5@5 corner: -60@45)); 
    addMorph: morph2 fullFrame: (LayoutFrame fractions: (1@0 corner: 1@0) offsets: (-50@5 corner: -5@45)); 
    extent: 250@150; 
    openInHand 

Ho provato questo in Squeak che non ha UITheme, quindi questo usa Morph direttamente.