r3wp [groups: 83 posts: 189283]
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

World: r3wp

[!RebGUI] A lightweight alternative to VID

Graham
18-Oct-2008
[7798]
tree is not new is it??
Ashley
18-Oct-2008
[7799]
Since the last release (build#101) it is. Not everyone gets the developer 
releases ;)
Graham
18-Oct-2008
[7800]
so, the actual changes are few then??
Ashley
18-Oct-2008
[7801]
Yes, if you're coming from build#116. But there's still a number 
of bug fixes in there ... and 117 is the first stable build since 
111.
sqlab
20-Oct-2008
[7802]
Ashley, there is still a problem with Click/Button and over.
The colour is irreversibly changing to the default in your demo
Claude
25-Oct-2008
[7803x8]
hello as you all now i am not a great reboler........................ 
but here you are a code to keep button color.
button: make pill [
	tip:	{
		USAGE:
			button "Hello"
			button -1 "Go!"
			button "Click me!" [print "click"]

		DESCRIPTION:
			Performs action when clicked.

		OPTIONS:
			'info specifies read-only
	}
	size:	15x5
	text:	""
	color:	colors/theme-dark
	keep-color: color
	font:	default-font-heading
	feel:	make feel [
		over: make function! [face act pos] [
		probe face/color

   set-color face either all [act not find face/options 'info] [colors/theme-light] 
   [face/keep-color]
		]
		
		engage: make function! [face act event /local f] [
			unless find face/options 'info [
				do select [
					down		[set-color face colors/state-light]
					alt-down		[set-color face colors/state-light]

     up			[set-color face colors/theme-dark face/action/on-click face]

     alt-up		[set-color face colors/theme-dark face/action/on-alt-click 
     face]
					away		[set-color face colors/theme-dark]
				] act
			]
		]
	]
	rebind:	make function! [] [
		color: colors/theme-dark
	]
	init:	make function! [] [

  all [negative? size/x size/x: 10000 size/x: 8 + first size-text self]

  all [find options 'info color = colors/theme-dark color: colors/outline-light]
		keep-color: color
		action/on-resize self
	]
]
you must recreate the fil REBGUI.R  with the command  CREATE-DISTRIBUTION.R
fil => file
oups i forget to modify face/feel./engage/away    here a better one
button: make pill [
	tip:	{
		USAGE:
			button "Hello"
			button -1 "Go!"
			button "Click me!" [print "click"]

		DESCRIPTION:
			Performs action when clicked.

		OPTIONS:
			'info specifies read-only
	}
	size:	15x5
	text:	""
	color:	colors/theme-dark
	keep-color: color
	font:	default-font-heading
	feel:	make feel [
		over: make function! [face act pos] [
		probe face/color

   set-color face either all [act not find face/options 'info] [colors/theme-light] 
   [face/keep-color]
		]
		
		engage: make function! [face act event /local f] [
			unless find face/options 'info [
				do select [
					down		[set-color face colors/state-light]
					alt-down		[set-color face colors/state-light]

     up			[set-color face colors/theme-dark face/action/on-click face]

     alt-up		[set-color face colors/theme-dark face/action/on-alt-click 
     face]
					away		[set-color face face/keep-color]
				] act
			]
		]
	]
	rebind:	make function! [] [
		color: colors/theme-dark
	]
	init:	make function! [] [

  all [negative? size/x size/x: 10000 size/x: 8 + first size-text self]

  all [find options 'info color = colors/theme-dark color: colors/outline-light]
		keep-color: color
		action/on-resize self
	]
]
i explain a little => i create a KEEP-COLOR and i init the good value 
in the init function .  this value is reuse in FEEL/OVER  and FEEL/ENGAGE/AWAY
Ashley can you give me a better way to do it ------------thank you
Ashley
26-Oct-2008
[7811]
That's pretty good. I've uploaded build#118 to SVN with your changes.
Claude
26-Oct-2008
[7812x5]
hi ashley        i would like to  make display more "modular" !!! 
 like this
panel-1: copy [
	text "coucou"
]

display rejoin ["test (build#" ctx-rebgui/build ")"] [
	
	panel-master: tab-panel  #LVHW data  [			
		"Bienvenue" [
			title-group %./images/setup.png data  "bienvenue" 			
		]
		"panel 1"  :panel-1

		"panel 2" [
		]

	] 
]
i would lilke to build display  not in the same source file............is 
it possible ?
re  i find something to do it ;-)
panel-1: copy [[
	text "coucou"
]]

do compose/deep [
	display rejoin ["test (build#" ctx-rebgui/build ")"] [
		tab-panel  #LVHW data  [			
			"Bienvenue" [
				title-group %./images/setup.png data  "bienvenue" 			
			]
			"panel 1"  (panel-1)

			"panel 2" [
			]

		]
	]
]




do-events
shadwolf
28-Oct-2008
[7817x2]
félicitations ^^
le copy sert a rien ...  mais a part ca ca va
Graham
3-Nov-2008
[7819x4]
I'm getting this error .. not sure why, perhaps faulty data

make object! [
   code: 312
   type: 'script
   id: 'cannot-use
   arg1: 'path
   arg2: 'none!
   arg3: none

   near: [either any [find options 'multi parent-face/type = 'table] 
   [
           all [rows = length? picked return data]
           blk: copy []
           either cols = 1 [
               foreach row picked [insert tail blk pick data row]
           ] [
               foreach row picked [
                   repeat col cols [

                       insert tail blk pick data -1 + row * cols + col
                   ]
               ]
           ]
           blk
       ] [
           blk: pick data first picked
       ]]
   where: 'selected
]
The trac is reporting an internal server error :(
Oh well, I just added some trapping to rebgui-widgets.r

		selected: make function! [/local blk] [
			if empty? picked [return none]	; are any rows selected?

   either any [find options 'multi all [ value? 'parent-face parent-face 
   in parent-face 'type parent-face/type = 'table ]] [
trying again


   either any [find options 'multi all [ value? 'parent-face in parent-face 
   'type parent-face/type = 'table ]] [
Graham
4-Nov-2008
[7823]
and again :(


either any [find options 'multi all [ value? 'parent-face object? 
parent-face in parent-face 'type parent-face/type = 'table ]] [
Ashley
5-Nov-2008
[7824x2]
re: trac errors ... seems all the REBOL hosted projects are down 
( http://trac.geekisp.com/) so probably a versioning/configuration 
issue that Jamie needs to attend to. Anyone heard from him recently?
re: table error ... any chance of a reproducable test case? Looks 
like a data-driven error.
Graham
5-Nov-2008
[7826x5]
why do you think it's data driven?  I'm sure you're right though
http://trac.geekisp.com/- lots of tracs are down.
Are they all Jaime's
You could always talk to Dave Steinberg at geekisp.com ... [billing-:-geekisp-:-com]
And see if you can take over the account if Jaime has stopped paying 
for them.
Ashley
5-Nov-2008
[7831]
Beer, Orca, RebGUI, Synapse were all setup by Jamie AFAIK (or did 
you setup Synapse).
Graham
5-Nov-2008
[7832x2]
No, Jaime did.
I did have my own account there as well, but closed it down due to 
too much trac spam.
Ashley
5-Nov-2008
[7834]
I wonder if there's a better [free] alternative these days?
Graham
5-Nov-2008
[7835x4]
Yes .... there are.
Can't tind the one I came across a while ago :(
The trouble with free hosting is .. that it often becomes not free, 
or you lose control.
BTW, geekisp.com was charging me $5/month.
Ashley
5-Nov-2008
[7839]
USD?
Graham
5-Nov-2008
[7840x3]
yes
Oh, table error .... how do you know it's data drive?
It's very odd .. the same data works sometimes, and other times it 
craps out.
Ashley
5-Nov-2008
[7843]
I've seen something similar before ... solution was to ensure all 
values were strings ... and to copy/deep the data block prior to 
passing it to the table widget. I think it has something to do with 
either a non-string value (e.g. a block) confusing things, or a shared 
series [value] being modified by soemthing other than the table widget.
Luis
5-Nov-2008
[7844]
http://www.assembla.com?
Graham
5-Nov-2008
[7845x2]
Not free.
I'm going to try copy/deep .. but the errors are occuring in a table 
that I already pre-process.
Graham
6-Nov-2008
[7847]
http://trac.geekisp.com/rebgui
is up again