World: r3wp

i would like to know how a can do en print screen from a menu

i find this one in docuement of rebgui

;print screen avec F3
ctx-rebgui/on-fkey/f3: make function! [face event] [
    save/png %screen.png to image! face
    browse %screen.png ; or call %screen.png
]

but i would like to use it form a menu

menu #LW data [
		"Maintenance" [
			"Bienvenue"	[panel-master/select-tab 1]
			"Joueurs" 	[table_joueur 'rsh panel-master/select-tab 2]
			"Periodes" 	[panel-master/select-tab 3]
			"Jeux"		[panel-master/select-tab 4]
		]
		"Option" [
			"Quit"		[quit]
			"Print Screen"  [print "do a print screen" ]
		]
	]

any hlep please

help

m: menu ...
	...
	"Option" [
		...
		"Print Screen" [save/png %screen.png to image! m/parent-face]
	]
]

an example of CRUD will be very  good

REBOL []





do %db.r

do %rebgui.r




display "RebDB Test" [
	button "Create" [
		db-create my-table [ID Date]
	]
	button "Insert" [
		db-insert my-table reduce ['next now/date]
	]
	button "Select" [
		display "My Table" [

   table options ["ID" right .2 "Date" right .8] data (db-select * my-table)
		]
	]


]





do-events

Also, the use of get-values and set-values can make getting db data 
into and out of forms (a display with lots of basic input widgets) 
significantly easier [than individual widget addressing].

thank you very much ashley to your help ;-)

first for the print screen how to !!!

when i ask for a CRUD example i think about a optimize way of => 
1 - select data from a table-widget  2 - show values of each data 
of a row 3 - accept insert & update & remove 4 - check values before 
insert or update table-db and table-widget.

have a look on my little test to do a application http://users.skynet.be/fc078613/carte.r
  you mus select in the menu "maintenace/joueurs" this is a CRUD 
like i think

i think it is working but i am asking to optimize my code and with 
your help code better ;-)

RebGUI build#117 released. Release notes here:http://www.dobeash.com/RebGUI/release.html#section-11

http://www.dobeash.com/RebGUI/release.html#section-11

http://www.dobeash.com/RebGUI/release.html#section-11

tree is not new is it??

Since the last release (build#101) it is. Not everyone gets the developer 
releases ;)

so, the actual changes are few then??

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.

Ashley, there is still a problem with Click/Button and over.
The colour is irreversibly changing to the default in your demo

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

That's pretty good. I've uploaded build#118 to SVN with your changes.

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

félicitations ^^

le copy sert a rien ...  mais a part ca ca va

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 ]] [

and again :(


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

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.

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]