World: r3wp

ctrl-y does, in MEMACS: paste, in ConTEXT: delete current line, etc.

we should only keep basic ones, like copy-paste (ctrl-x,ctrl-c,ctrl-v), 
selection (ctrl-a, (ctrl)-shift-left/right), and undo/redo (ctrl-z,ctrl-Z?).

it's better that having users deleting all text with a bad keypress.

A policy of "least harm" applies with regard to key combos of different 
editors which contradict each other in a destructive way.

RebGUI 0.1.6 (b) version that includes cyphre's ctx-menu is done 
;) Well it was added as it and as I'm less an artist than Ashley 
I let it functionnal as it was mainly designed by cyphre. I add a 
little trick and some code to it to make it more resemblant to a 
common menu and add the possibility to draw text starting from left... 
I hope Ashley or others could take some amount of their precious 
time to see it and enhance this very first implementation to make 
it even more in the mood of RebGUI

you can grab it from here http://shadwolf.free.fr/RebGUI-016-cyphremenu.zip

that looks pretty sweet - like that installer example.

in this archive tour.r file countain the menu-bar new widget use 
description and the widgets.r file contains the declaration code 
for menu-bar

I like the grouping.

yes it's a very cool widget library ;)

Ashley, can we get a password field ?

Latest release available at: http://www.dobeash.com/files/RebGUI-017.zip

Highlights include:

	- New title-group and radio-group widgets
	- no-space keyword renamed to tight
	- Added indent keyword
	- Install example moved into title-group %tour.r example

 - RebGUI is now #include aware (you can run it or encap it with zero 
 changes)
	- Display User's Guide updated to reflect previous changes

Menu and Password-Field are being integrated into 0.1.8.

very nice work as usual I have one little impprovement that I would 
like to add to my ctx-menu adaptation to RebGUI is the size calculation 
instead of passing to it staticly it would be better to calculate 
in relation with the parent-face and be able to use the resize on 
it

have you some tips to implement this ?

the span field is enought  but I need to redraw the ctx-menu when 
a resize is done

The menu widget is over 500 lines and a bit of a global name-space 
polluter. My first-cut clean of it is here: http://www.dobeash.com/files/menu.r


You'll notice that "lefted" items and shadow-drop images have already 
been cut ... but a lot more has to come out.

Really impressive progress! My hat's off to Ashley and the RebGUI 
team.

Ashley I notice it it was done pretty quickly as a try Like a can 
I do this algorithma ;)

I'm missing a new_folder.png

the caculation/show on lefted popup menu are pertty un goodly calculated 
into menu feels ;)

ahh.. got the new distro.

buuuuuu you supres my nice lefted lol ;)

hehehe no problem I think firsst we will provide it easy and then 
we could enhance it maybe cyphre wants to apport some code to it 
and enbetter it

ctx-menu was in a early stage  :)

is the first character of the words supposed to overlap the images?

no ...

with my version it's not draw like this so 2 alternatives : or Ashley 
deleted some of the compositing code (don't think so ) or the images 
are to big and to avoid this to append again we need to add a static 
image menu resampling in order to get them fit the relevent value 
;)

Graham some indulgence please menu in rebgui are very alpha stage 
vefor sunday I don"t even know  what could be the result of having 
it to rebogui and if it was workable with older non AGG capable rebol/view 
;)

hehe .. not complaining, just asking ..

when I see it was relatively close in code motion to rebgui I started 
to wanted hardly to port it and better it a little (the famous lefted 
option ... to quick developed to convince every one  ;)

GRaham you point to good problems any way ;)

the ask is do we need to specify in hard coded way the resize of 
every image ...

or do we let user size it's image be it self ?

img: to image! make face [edge: none image: img size: 22x22]

hum hum  I saying craps ... the image is hard coded sized but maybe 
to big ...

Previous images were 18x18, while I'm using "standard" 22x22 ones. 
Everything else needs to be resized accordingly, but it's going to 
be hard-coded so a lot of the dynamic sizing code can go. Less is 
more. ;)

:)

hey ashkey good to see you online at the same time than me

;;)

I was looking too it ... to see if we could only deplace to left 
the text  un menu popup

graham's menu problem patch

insert tail sub/pane make item-f [;menu item
						type: 'item
						text: itm
						offset: oft
						root: sub

      font-colors: either dis? [[172.168.153 172.168.153]] [font-colors]
						font: make font [align: 'left color: font-colors/2]

      para: make para [wrap?: false origin:  22x1 + (lineh * 1x0)]
						size: 0x2 + get-tsize/fnt itm font

starting line 132 just copy the para: value of item-f

The icons look about 20% bigger than the ones used in Trillian .. 
which I just downloaded.

hum

with a little  modification to para:  arround line 132 you can use 
both witout any over showing of text problem

para: make para [wrap?: false origin:  22x1 + (lineh * 1x0)]

can be para: make para [wrap?: false origin:  15x1 + (lineh * 1x0)] 
if you prefer

it's the first parameteer of para/origin: that needs to be changed 
;)

know what next task is a true challenge making tables in the style 
of GUI4CLI ... I'm affraid to turn mad ;)

G4C TUT_MCListview

// ===========================================================
// A Multi Column (or Database) Listview..
// ===========================================================

WINDOW 126 90 367 373 "Listview"
	winattr style resize

xOnLoad
	// add some records to the listview & open..
	gosub #this AddRecords
	guiopen #this

xOnClose
	guiquit #this

// ===========================================================
// The listview
// - This is a normal MULTISELECT listview (the default).
// For this type to be triggered, you must double-click it.
// ===========================================================

XLISTVIEW 0 0 0 0 'The Title' "" var

	attr ID mylv
	attr resize 0022
	attr frame sunk

	// Give it a grid and allow the user to drag, drop & re-arrange
	// the lines - You can add more styles here..
	attr style grid/arrange/drag/drop/arrange

	// Add some columns. The first one we state with a '#'
	// in front to indicate we mean the 1st column.
	attr LVCOLUMN '#Item/width/120/TITLE/Description'

 attr LVCOLUMN 'Units/width/60/TITLE/Units/TYPE/number/JUSTIFY/RIGHT'

 attr LVCOLUMN 'Amount/width/60/TITLE/Amount/TYPE/number/JUSTIFY/RIGHT'

 attr LVCOLUMN 'Total/width/60/TITLE/Total/TYPE/number/JUSTIFY/RIGHT'

	// show the line double clicked..

 SetWinTitle #this 'SUM: $%Units x $%Amount = $($%Units * $%Amount)'


// ===========================================================
// This is a routine to add 100 records with various
// meaningless values to the above listview. Note how
// the fields can be used as normal variables.
// ===========================================================

xRoutine AddRecords
	local c

	use lv #this mylv

	// before we start, we HIDE the listview. This will
	// stop Gui4Cli from visually refreshing it every time
	// we add a record and will GREATLY increase the speed.
	// This will have no effect if the window is closed.
	// After we finish, we show it again..
	setevent #this mylv HIDE

	for c 0 100
		// add an empty record..
		lv add ''

		// Fill the fields with various values..
		%Item   = "This is Item $c"
		%Units  = $($c * 3)
		%Amount = $(($%Units / 2)*1000)
		%Total  = $($%Units * $%Amount)

	endfor

	// Show the listview again, refreshing the display..
	setevent #this mylv SHOW

// ===========================================================
// Right mouse button handling - Some menu choices..
// ===========================================================

xOnRMB


 QuickMenu -1 -1 'Select All/Remove selected/Add 100 records/#sepa/cancel'
	use lv #this mylv
	docase $$choice
		case = 0			// Select All
			lv select all
			break
		case = 1			// Remove selected
			lv delete selected
			break
		case = 2			// Add some records..
			gosub #this AddRecords
	endcase