Thanks to Scott, it is what I wanted to realize. Of course some modifications are necessary, but it works.
But simply if you could tell me more about the following: <svv: system/view/vid> Also thanks to Philippe, I feel more confortable now with all that knowledge to go a little bit further with REBOL. Bertrand ----- Original Message ----- From: "G. Scott Jones" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Saturday, September 21, 2002 3:30 PM Subject: [REBOL] Re: Layout > From: "Bertrand" > > First of all I want to congratulate this list > > as it works very well. I had a look to > > Graham Chiu about radio button, and his > > answer and Scott are very close to what > > I am looking for. > > > > Scott I am happy with your answer, as I > > learnt more about View, but I don't want > > to see items replacing the previous one, I > > would like it to be added as a suplementary > > face into a layout. > > > > To be more precise, say I want to implement > > an outliner, (you know like the one in > > microsoft word), if I want to insert a sub-item, > > it has to be displayed below its parent and > > shiftted to right. That' s the point. > > Hi, Bertrand, > > Unfortunately (or perhaps fortunately ;-), I am not familiar with Microsoft > Word, but I certainly understand the concept. > > This is *not* pretty, but I believe that it demonstrates the concept of > adding to a layout after it has been laid out. Hopefully the concept show > through that one can add additional "subfaces" to the pane of a face. This > example shows a quick and dirty approach, but I am sure that you would want > to add better text management, do some refactoring and make it more generic. > > svv: system/view/vid > data: [ > "Scott" "123 Main" > "Carl" "456 Maple" > "Bertrand" "789 Oak" > ] > > lo-func: func [txt-str] [ > new-pane: make select svv/vid-styles 'text [ > text: txt-str > color: 142.128.110 > size: 200x200 > ] > if not empty? b/pane [ > pane-count: length? b/pane > new-pane/offset: b/pane/:pane-count/offset + 0x34 > ] > new-pane > ] > > lo: layout [ > origin 10x10 > b: box 200x200 > button "Add Info" [ > my-text: rejoin [data/1 "^/^-" data/2] > next-pane: lo-func my-text > append b/pane next-pane > show b > data: skip data 2 > if tail? data [data: head data] > ] > do [b/pane: copy []] > ] > > view lo > ;############## > > Please let me know how it works and if this is closer to that which you seek > and if you need further comments to explain the functionality. > --Scott Jones > > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
