to re-insert a modified layout

rebol [title: file: %insert-face3.r purpose: { to re-insert a modified layout in its old place, instead of modifying face-data } zweck: { um ein veraendertes layout wieder am alten platz einzusetzen, anstatt die face-daten zu veraendern } translate: [ english deutsch placeholder platzhalter change-layout veraendert description beschreibung picture bild counter zaehler ] ] ;--- analyse-helfer / to analyse rebol facets: func ['word] [ probe get in get-style word 'type probe get in get-style word 'facets ] feel?: func ['word] [ probe first system/view/vid/vid-feel probe get in system/view/vid/vid-feel word ] ;--- hauptteil / main part x-styles: stylize [ placeholder: face 200x200 with [ color: white origin: 0x0 init: []] ;--- re-layout: placeholder with [ origin: 0x0 change-layout: func [layout1] [ either block? layout1 [ pane: layout layout1] [pane: layout1] pane/offset: 0x0 self ] ;--- init: append init [ change-layout second :action action: none ;show self ] ] ] ;--- demo do [ counter: 0 description: [ title white "style re-layout" text (system/script/header/zweck) text white (system/script/header/purpose) guide ;---der wichtige demo-teil / the main demo part f: field mold counter button "zaehle/count" [counter: counter + 1 show rl/change-layout description ] return text { die zahl wird durch neuaufbau des layouts veraendert, nicht durch face/text: irgendwas } text white { this number is modified by recreation of layout, instead of modifying face/text } ] picture: layout description view layout [ styles x-styles rl: re-layout (picture/size) description ] ]