Until now I supposed variables to be initialized to "f". Now I know
that I was wrong. So the last line of my code now has "nodes off"
prepended.
For a simple node sequence I agree. But in my application I want to
show a changing directed graph build from SQL records. Therefore I
consider it more robust to alter the SQL records and then rebuild the
complete gadget tree (recursively).
Am Sun, 18 Sep 2016 10:25:59 -0700
schrieb John Benediktsson <mrj...@gmail.com>:
> Your code didn't run for me as is, you have to set ``nodes`` to a
> value first.
>
> Also, I don't understand why ``draw`` is making a new ``<scroller>``
> instead of just adding the new node to the existing scroller?
>
>
>
> On Sun, Sep 18, 2016 at 5:33 AM, Georg Simon <georg.si...@auge.de>
> wrote:
>
> > The code below is a useless program.
> > It's only purpose is to show my question.
> >
> > By pressing INSERT I add new nodes until the scroller appears.
> >
> > By using ← or → I can see the scroller work.
> >
> > Pressing INSERT triggers the content of the filled-cell of
> > "dialog < frame" to be overwritten by "draw".
> > "draw" triggers "node-gadget => model-changed" which calls
> > "scroll>gadget".
> > But scrolling doesn't work after INSERT.
> >
> > I guess that rendering happens after "scroll>gadget".
> >
> > How can I make scrolling work in this case ?
> > -----------------------------------------------------
> > USING:
> > accessors colors.constants kernel
> > math math.parser models namespaces sequences
> > ui ui.gadgets ui.gadgets.borders ui.gadgets.frames
> > ui.gadgets.grids ui.gadgets.labels ui.gadgets.packs
> > ui.gadgets.scrollers
> > ui.gestures ui.pens.solid
> > ;
> > IN: test-script
> >
> > SYMBOL: nodes
> >
> > : add-node ( -- n )
> > nodes get dup length [ suffix nodes set ] keep
> > ;
> > TUPLE: node-gadget < border
> > number
> > ;
> > M: node-gadget model-changed
> > swap value>> over number>> =
> > [ dup scroll>gadget COLOR: black <solid> ] [ f ] if
> > >>boundary relayout-1
> > ;
> > : <node-gadget> ( n model -- gadget )
> > swap [ number>string <label> node-gadget new-border ] keep
> > >>number { 22 22 } >>size dup rot add-connection
> > ;
> > TUPLE: dialog < frame
> > ;
> > CONSTANT: chart-cell { 0 1 }
> >
> > : draw ( dialog n -- dialog' )
> > swap dup model>> <shelf>
> > nodes get [ pick <node-gadget> ] map add-gadgets nip
> > <scroller> chart-cell grid-add [ set-control-value ] keep
> > ;
> > : go ( dialog offset -- )
> > over control-value + nodes get length rem
> > swap set-control-value
> > ;
> > dialog
> > H{
> > { T{ key-down { sym "INSERT" } } [ add-node draw drop ] }
> > { T{ key-down { sym "LEFT" } } [ -1 go ] }
> > { T{ key-down { sym "RIGHT" } } [ 1 go ] }
> > }
> > set-gestures
> >
> > : <dialog> ( -- gadget )
> > 1 2 dialog new-frame chart-cell >>filled-cell
> > "Press ← or → to navigate. Press INSERT to add a number."
> > <label> { 5 9 } <border> { 0 0 } grid-add
> > 0 [ <model> >>model ] keep draw
> > ;
> > 5 [ add-node drop ] times [ <dialog> "dialog" open-window ] with-ui
> >
> > ------------------------------------------------------------
> > ------------------
> > _______________________________________________
> > Factor-talk mailing list
> > Factor-talk@lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/factor-talk
> >
------------------------------------------------------------------------------
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
