[REBOL] Re: Changing VID Styles
From: nitsch-lists:netcologne at: 13-Dec-2001 17:39
RE: [REBOL] Re: Changing VID Styles
[brett--codeconscious--com] wrote:
> Hi Volker,
>
> Regarding looking at objects and functions in Vid-ancestry.
>
> I included a button to pop up %anamonitor.r by Romano. I figured this has
> 80% of what you want.
>
yes. to show ctx-text perfect :)
> I remember you said you had put some code on right click - just send it too
> me if you want me to include it or
> anything else.
>
well, i found
show-facet-info: func [style [word!]] [
view/new layout compose [
styles utility-styles
space 0x0 origin 0x0 backdrop gray
h1 "Specific facets for" h2 (mold style)
scrollpanel subface [text as-is (
(mold get in get-style style 'facets)
)]
]
]
and just added
show-feel-info: func [style [word!]] [
view/new layout compose [
styles utility-styles
space 0x0 origin 0x0 backdrop gray
h1 "Specific facets for" h2 (mold style)
scrollpanel subface [text as-is (
(mold get in get-style style 'feel)
)]
]
]
then i looked for the call
append/only vid-spec reduce ['show-facet-info to-lit-word style-name]
and changed it to
append/only vid-spec reduce ['show-facet-info to-lit-word style-name]
append/only vid-spec reduce ['show-feel-info to-lit-word style-name]
resulting in using the right mouse-button too.
now finding something like
feel: svvf/button
in the facets (left click) i have just to go back and click right in the main window
:)
> I think eventually vid-ancestry.r and vid-notes could be rewritten to
> provide a nice comprehensive learning/inspection tool for Rebol/View but not
> any time soon I need to learn some more :)
>
it gives inspiration :)
> Brett.
>
-Volker
