World: r3wp

i'm trying to port area-tc to rebgui ... and I don't understand why

when i do

feel: make object! [
		redraw: detect: over: none
		engage: func [face act event /local txt] [
			probe act
			
		]; fin engage
	]


then i create the distrubution then i run my "demo" app in the widget 
area-tc (custom) I see time and mouse related events but i never 
see keyboard related event

I don't understand how to handle  events with rebGUI

feel/engage don't recieve keyboard events ...
which seems really strange.

rebgui-ctx.r >> 

system/view/screen-face/feel: none	; kill global events system (used 
by 'insert-event-func) 


the reason why area-tc will not be adapated to rebgui until ashley 
explain me how to map custom events for a custom face

on-key might be what you're after ( http://www.dobeash.com/RebGUI/user-guide.html#section-3.2.8
)

I guess Ashley wants to place Rebgui into a state of closure and 
move on.

But that shouldn't stop us from enhancing it further .. if we can!

i tried on-key too  the key events can't reach the wdget for some 
unknown reason 

Well anyway i won't loose more time with that issue.

Looks like all the tracs Jaime was sponsoring have lapsed ... http://trac.geekisp.com/

Maybe we need to shift rebgui over to another site eg. codeplex

I'm open to suggestions ... and if someone could setup an account 
and give me a 101 intro on how to use/access it I'll upload the latest 
source there and repoint my site links to it. Thanks.

Perhaps CureCode ... if Doc will have us! ;)

assemblia (the track i use for viva rebol and area-tc is easy to 
register but then the url are quite the pain

Do you need access to geekisp.com ?  I got an email from Jaime yesterday 
and could ask him ...

CureCode is just for issue/wishes tracking. Btw, the source code 
for CC is available, anyone can set it's own CC instance online (it 
needs some installation documentation). I'd like to work on a trac-like 
tool with SVN integration, thought.

I've created the rebgui project on codeplex.com and will have a go 
at uploading the sources I have.

Any subversion experts out there?  I tried to relocate my copy to 
the new site, but get a UUID mismatch.  The new repository  UUID 
doesn't match the existing one on my local copy, and presumably gets 
created when I created the new projecct.

Ok, I hacked it this way ... I created a new directory and checked 
out from the new repository.  Then I copied all the files from my 
local copy to the new directory but deleted all the svn directories. 
 I then committed all these files .. and it says it created a 116 
build ... I think it's supposed to be 118 :(

I then published the project http://rebgui.codeplex.com/

The svn url is https://rebgui.svn.codeplex.com/svn... not svn:// 
as in the geekisp.com site.

Ashley, this is what I think you should do ..  after signing up as 
a contributor, checkout the repository I uploaded.  Then copy all 
your source files over the ones in this new checkout, and then commit. 
 That should give us the latest.

codeplex has a source code browser and issue tracker.

Well, the build that's up there is 118, so I just synced against 
that. I'll have a play with this over the weekend (I've got a few 
changes to upload).

.

Ok, as long as I didn't make any changes while playing around ....

If anyone wants write access to the project, just sign up to codeplex 
and let us know so that we can join you to the Rebgui project.

In rebgui-widgets.r , any objections to changing

			attempt [remove find span #X]
			attempt [remove find span #Y]

to 

			all [ find span #X remove find span #X]
			all [ find span #Y remove find span #Y]

REMOVE accepts NONE as argument in the last versions.

2.7.6 ?

interesting.

It was a recent change, don't remember when it happened exactly.

makes it simpler.

still needs to be  
all [ series? span remove find span #Y ]

What is wrong with this line:  


current-projects: table (tab-size + 80x35) options ["Priority" right 
.03 "ProjectName" left .2 "ExchangeRate" left .2 "Objectives" left 
.3 "Deliverables" left .1] data [(SQL "select * from projects")]

where's your compose/deep ?

And if you sql thingy returns a block .. you don't need the extra 
[ ]

compose/only/deep, in that case

Graham and Izkata, thanks for the help.  But I must be misunderstanding 
something, as it is still not working. Here is what I have:

CONNECT/create/flat %cl.db

if error? err: try [
	SQL "select * from projects"
][
	er: disarm err
	if find er/arg1 "no such table" [

  SQL "create table projects (Priority, ProjectName, ExchangeRate, 
  Objectives, Deliverables)"
	]
]

do show-cc: make function! [] [
	display "CRITICAL LINKS Version 1.0.0" compose/only/deep [
		;image %chain.jpg
		return

  group-box "Critical Chain and Theory of Constraints principles" #W 
  data [

   text "1. REMEMBER YOUR PURPOSE" font [color: blue size: 26 shadow: 
   1x1]
			return
			;bar
			;return

   text "2. Free Up Your Major Constraint" font [color: red size: 20 
   shadow: none]
			return

   text "3, Focus on one project at a time---don't multi-task." font 
   [color: black size: 12 shadow: none]
		]
		at 103x14
		image %critical-chain.jpg 30x6
		at 133x2
		group-box "Redeem the Time" #W data [
			after 2
			label "   System Clock Time:" my-time:    text 28x7 "0:00:00"
			return
			bar
			return
			label "Average session time:" my-session: text 28x7 "0:00:00" 
		]
		return


  ;******************************************************************
		tab-panel #HWLV data [

                           ;******************************************************************
			"Projects" [
				label "Project Name:" ProjectName: field  141x5 

    label "Priority:" Priority: drop-list 30 #W "1" data ["1" "2" "3" 
    "4" "5" "6" "7" "8" "9" "10"] 10x5
				return
				label "Objectives:" 
				pad 131
				label "Exchange Rate" ExchangeRate: field 20x5
				return
				Objectives: area 200x10 
				return
				label "Deliverables:" 
				return
				Deliverables: area 200x10
				return
				label "Current Projects:"
				return

    current-projects: table (tab-size + 80x35) #HWLV options ["Priority" 
    right .03 "ProjectName" left .2 "ExchangeRate" left .2 "Objectives" 
    left .3 "Deliverables" left .1] data [(SQL "select * from projects")]
				return

                                                     button "Save" [

                     SQL reduce ["insert into projects values (?,?,?,?,?)" Priority/text 
                     ProjectName/text ExchangeRate/text Objectives/text Deliverables/text]
				    current-projects/redraw
			              ]
                                                      pad 20

                                                      radio-group 60x5 data [1 "Add" "Edit"]
				pad 20
				button "Quit" [quit]
                                         ]

>> describe "projects"

== [0 "Priority" "" 0 none 0 1 "ProjectName" "" 0 none 0 2 "ExchangeRate" 
"" 0 none 0 3 "Objectives" "" 0 none 0 4 "Deliverables" "...
>>

Graham, which braces were you talking about?

[(SQL "select * from projects")]

Graham, thanks. That fixed it.  Strange. I took those braces off 
right after you told me to, and it didn't work.  Well, I had been 
up all night working on this. So maybe I just did it in my mind. 
 : >)   Thanks again.

Thanks again to Izkata also.

Hummm.  After entering one record I'm now getting:

** Script Error: ProjectName has no value

The problem I have with GUI programming is that I don't know how 
to find bugs.  How do you guys do it?

Louis, I haven't looked at your code, but it might be as simple as 
predefining ProjectName, like ProjectName: "" or something.

You look at the error message .... and fix it.

They actually mean somet hing.

Ashley, what's happening here?

display "" [
	text "Enter some text and then enter" return
	field 
	on-focus [ clear-text face true ]
	on-click [ print face/text ]
]

do-events