AltME groups: search

maybe I'll do some tests when I get time :-)

I am using mysql-wrapper.r . In function db-last-insert-id there 
should be one less "first" command to get the result. I think this 
is a bug, pls confirm

BTW, parse has to be parse/all . Also I get some  ERROR 1065: Query 
was empty .- maybe empty line at the end

yes, we have very good mysql driver, I wonder why it is not submitted 
there. IIRC I talked to Doc about it, and he told me, that some time 
ago it was there, but then mySQL IIRC redesigned site or something 
like that. He wated to wait for 1.0 release. It is now released, 
works with latest incarnations, so maybe we could ask Doc to submit 
it to mysql.com folks? Or just to get his approval to do so? It would 
be nice, if rebol would be listed there ...

2) Get a packet analyser tool (Ethereal for example) and try to track 
the TCP exchange on port 3306 to see what the server is really sending 
to the client.

node: db-get 'node [] {id=1}

db-get 'node [id name data] [{id=?} 1]

Am I missing something wihen querying multiple columns... seems I 
get the results as a single string.. 
ie: send-sql "select a, b from table";

returns something like     "aresultbresult" ?

Trying to use the new [/flat] option for Doc's diver. If I use: "Insert 
db "SELECT * FROM jobs"I get the expected blocks withing block. But 
if I use the command: "SEND-SQL/FLAT db "SELECT * FROM jobs" I get 
"NONE"

I just found that there is a serious bug in sql-escape functions 
which is part of mysql-protocol...  new versions of MySQL for example 
autoconvert "'" to ' which MUST be escaped or you will get error 
or your query may be injected! Current sql-escape function do not 
escape such a cases.

hm... already found how to get the correct port number so now it's 
not important

I have a mysql wrapper that I use in production but haven't released 
because it need cleaning and docs, but if there is interest I could 
release for testing as is. id does things like:

print .db/get/all/sort/debug [mailing/m mailingLog/ml] [ml.dc m.email 
ml.url] [{ml._mailing=m.id}] [m.email asc ml.dc desc]

SELECT `ml`.`dc`,`m`.`email`,`ml`.`url` FROM `mailing` `m`,`mailingLog` 
`ml` WHERE ml._mailing=m.id ORDER BY `m`.`email`,`ml`.`dc` DESC
print .db/set/debug 'mailing 12 reduce['active false] 
UPDATE `mailing` SET `active`=0 WHERE id=12.0

print .db/get/all/flat/debug '_node_tree [_node _media] [{_tree=? 
AND _issue=?} 5443 22]

SELECT `_node`,`_media` FROM `_node_tree` WHERE _tree='5443' AND 
_issue='22'
..

James: sorry for the delay, still not found time for docs but her 
it is "as is.."  /debug is your friend, get started, load Dock driver 
, then load  http://reboot.ch/rebol/mysql-wrapper.txtthen:
;set a list of connections:
.db/databases: [
  ;local
  mydb1.local mysql://user:[password-:-127-:-0-:-0-:-1]/mydb1
  mydb2.local mysql://user:[password-:-127-:-0-:-0-:-1]/mydb2

  ;online
  mydb1 mysql://user:[password-:-127-:-0-:-0-:-1]:3307/mydb1
  mydb2 mysql://user:[password-:-127-:-0-:-0-:-1]:3307/mydb2
]
;use a db (if not open will open it automatically):	
.db/use 'mydb1

BTW, Maarten told me that he knows for sure that you can get the 
number of result sets in advance, if he doesn't show up here (he 
can't be much in front of a computer these days), maybe you could 
email him to get more info.

;without wrapper:
do http://softinnov.org/tmp/mysql-protocol-41.r
db: open mysql://localhost/db1
nodes: send-sql/named {SELECT `id` `name` `data` FROM `node`}

node: send-sql/named {SELECT `id` `name` `data` FROM `node` WHERE 
`id`='1'}

;with wrapper:
do http://softinnov.org/tmp/mysql-protocol-41.r
do http://reboot.ch/rebol/mysql-wrapper.txt
.db/databases: [
	db1 mysql://localhost/db1
	db2 mysql://localhost/db2
]
.db/use 'db1
nodes: .db/get/all 'node [id name data] none
node: .db/get 'node [id name data] [{`id`=?} 1]
;if you follow the rule to name your primary-key "id",
;you can use this shorter version:
node: .db/get 'node [id name data] 1

;/debug is your friend, use it to see the generated query

.db/get/debug 'node 'id 1   
;   "SELECT `id` FROM `node` WHERE id=1.0 LIMIT 0,1"

get "Access denied for user ['root'-:-'localhost'] (using password: No 
)

No, there's no such callback. But you can easily add one in my driver 
by inserting a call to "read-net" in the FOREVER loop inside READ-ROWS 
function. Can you describe briefly the situation where you need to 
get large query results and display a progress bar (just curious)?

Maarten has one that's waiting Reichart approval to get released 
8)

No, not really...

One table would be much easier and I do not think the db would get 
so large that I would see major performance problems. (I always underestimate 
the speed of these db's.)

Thanks for the advice, Sunanda.

Also, i have some datestamp issues.
rebol attaches the zone code to now when getting the date/time

but when using mysql timestamp I do not get a time zone attached 
and its screwing me up.
Is there a way to add time zone to datestamp in mysql?

hm.. I think you use load to get rebol data back from string

ok, but what is rebol reading to get the time?

Rebol must get the zone from the computer but why is it different?

Has anyone tried to get Doc's mysql stuff to run with R3 yet?


@Doc: Do you think it can be ported/adapted to work with R3 without 
to much effort?

Here is a simple example but basically you just create a script that 
reads from the DB locally and prints. Your remote app reads the printout 
when it reads from the page:

#!/user/cgi-bin/REBOL -cs
REBOL [Title: "Get Roster"]

do %mysql-protocol.r

db_ip: mysql://user:[password-:-localhost]:3306/bighouse

db: open db_ip
insert db "SELECT * FROM roster"
		dat: copy db
close db

print dat

but not needed now .... (fast cgi), I get my sql query result in 
some 0.03 sec even for plain cgi ...., which is nice

yes, pressing enter under the linux midnight commander runs cgi in 
console. I just can't get it to work from browser, but that might 
be another problem ...

win-lib: make object! [
	
	user-lib: load/library %user32.dll

	SetWindowText: make routine! [
		handle			[integer!]
		Title			[string!]
		return:			[integer!]
	] user-lib "SetWindowTextA"
	
	set 'WindowTitle func [
		Title [string!] 
	] [
		SetWindowText get-modes system/ports/system 'window Title
	]	
]

is there any way to get an encapped application to send data to normal 
DOS stdout stderr (NOT IN REBOL CONSOLE)... I don't care how kludgy, 
even if it means compiling or using a dll with stdio.h included, 
just to access it...

thanks Volker, I have been trying to get to grips with the SDK.  
Somehow, I am lost when trying to find specific information... many 
times I try subjects, and I either encounter unfinished, incomplete 
or missing docs.   I do find some usefull tidbits here and there.... 
but its a pretty dry ride so far...

hehe, so where do I get your version of async-call  ;-)

Gab: it's not using 'async-modes at all, it's related to REBOL calling 
automatically 'get-sub-port when port/in/state/inbuffer points to 
a string! value.

then timers to do polling on the pipes. on linux instead, you just 
get a signal when the command finishes, and read from the pipe - 
no polling needed.

If I setup the path environment and use an encapped application using 
only the filename, windows resolves the path for me, but I get the 
following error:

I just wonder why other apps know about the path where DOS prompt 
actually is at, and why encapped apps do not get that info...

it should get the dos prompt path, but if the program is not there, 
it will fail. i don't know the details, maybe there's just a bug 
in the code.

i have had issues because of this too, so i'll remember to talk about 
it to carl when we get to a r3 sdk :)

maybe that could get pushed in too.  it seems to me like a very easy 
fix...

bye, got to go get some zzzzzz  thanks for the chat  :-)

It just lies down on its back, vomits out some meaningless error 
messages (perhaps confessing past sins), then quits breathing. Doesn't 
even blink an eye.  Then I click a button and it completely disappears, 
buried somewhere on my hard drive.  I dig it up and try to revive 
it, but it is hopeless....at least for now. :>) I'm trying to get 
over it, but it is hard.

Oldes, I have to eat some words. 2.6.2 encaps the script. But when 
I run the encapped script I get this error message:

Misplaced item: "imanXw"
** Script Error: Cannot use path on word!
value
** Near: insert tail funds fb/1
** Press enter to quit...

I think we've all hit this at one time or another. REBOL won't write 
to the Windows console. I was just trying a test to use the API to 
do it, and can't get that to work either, so it's still piping or 
nothing.

How can I change/get rid of the REBOL word in the title?

when not in view:  (on windows)  Graham posted this a while back:

win-lib: make object! [
	
	user-lib: load/library %user32.dll

	SetWindowText: make routine! [
		handle			[integer!]
		Title			[string!]
		return:			[integer!]
	] user-lib "SetWindowTextA"
	
	set 'WindowTitle func [
		Title [string!] 
	] [
		SetWindowText get-modes system/ports/system 'window Title
	]	
]

without a a line picked I get 0.047 seconds with a line selected 
I get 0.157 seconds ...

As Shadwolf has done a super job to get the MDP-Browser (that's how 
I want to name it) done, based on Ashleys base, I want to playback 
the result to the community. And IMO we should take this project 
to stress-test RebGUI because it's quite complex.

Actually, locating rebgui is a problem.  How does a script such as 
the above get the latest distribution and unzip it ?  I would prefer 
the rebgui files to be uncompressed (or compressed using rebol, at 
least) and there should be a standard way of determining the latest 
version.

So a script should be able to check for the latest version and download 
it into the public cache (which may be successful or not, depending 
if net connection is available), eg:
	do load-thru http://www.dobeash.com/it/rebgui/get-latest.r
and then just
	do path-thru http://www.dobeash.com/it/rebgui/rebgui.r

to initialize (which automatically falls back to any previously cached 
version).

Ammon :when I type rebgui in the firefox 1.0.4 location bar I get 
the redirection to the rebol france article (in french) I wrote ;) 
king of little presentation for french readers

Ashley, very nice work. I have probably asked everyone in this group 
at one time or another about how VID works (or doesn't seem to). 
I really appreciate that you are working on something like this. 
I had all but given up trying to get my interfaces to function the 
way I wanted them to. At some point one has to just give in and focus 
on the actual program. Now I'm thinking I can have my cake and eat 
it too. Thanks big guy.

ashley I'll take a look at auto-fill on the weekend, and try and 
get it to behave like the VID version does. anything to look out 
for?

Here's another issue:
rebgui 0.2.4 defines a new global word 'edit

  This interfered with my custom edit function, which I use to launch 
  my favourite editor.
  I'm not changing it for you ! :)

  This is an example of the problem of adding words to the global context 
  without doing
  an environmental impact study first.

  The user should be given the choice whether to export your words 
  to the global context or not.
  But probably most of them don't need to be out there at all.

  My advice is to add only these words to the global context: [

 ctx-rebgui display show-text show-data show-title splash request-color 
 request-date request-file
  ]
  
  --- rebgui.r ---
  
	CTX-REBGUI: context [

		...

		edit: none
		widgets: none
		requestors: none
		display: none

		foreach [word file][
			edit		%rebgui-edit.r
			widgets		%rebgui-widgets.r
			requestors	%rebgui-requestors.r
			display		%rebgui-display.r
		][
			if none? word [set word do file]
		]
	]

	;if not value? 'edit [do %rebgui-edit.r]
	;if not value? 'widgets [do %rebgui-widgets.r]
	;if not value? 'requestors [do %rebgui-requestors.r]
	;if not value? 'display [do %rebgui-display.r]

	; export DISPLAY and the accessor functions to global context
	foreach word [display show-text show-data show-title splash][
		set word get in ctx-rebgui word
	]


  And each file no longer has a *named* context:

  --- edit.r ---

	REBOL [...]
	
	context [...]


  The above changes should mean few changes to the rebgui code. For 
  example, the body

  of the display function refers to the widgets context, but this is 
  still accessible
  because both DISPLAY and WIDGETS are inside ctx-rebgui.

ChristianE

 1) LED color / design choices. Agreed. Can anyone point me to where 
 this has been solved? Or suggest a design alternative?

 2) Red, Green, Blue. These were example LED titles (much like the 
 previous "One Two Three" example) *not* a statement about the actual 
 LED colors. ;) If the example's that confusing I'll change it.

 3) Sliders / Scrollers. Agreed. The priority has been to get a complete 
 set of widgets, *then* ensure each is functionally complete, and 
 *then* ensure they are aesthetically pleasing as a whole and in their 
 own right. As I'm no graphics artist, I've taken the easy approach 
 at first by mimicking what I'm familiar with: Windows XP.

CTX-REBGUI: context [

	...

	edit: none
	widgets: none
	requestors: none
	display: none
		
	#do [edit: do #include %rebgui-edit.r]
	if none? edit [edit: do %rebgui-edit.r]
	#do [widgets: do #include %rebgui-widgets.r]
	if none? widgets [widgets: do %rebgui-widgets.r]
	#do [requestors: do #include %rebgui-requestors.r]
	if none? requestors [requestors: do %rebgui-requestors.r]
	#do [display: do #include %rebgui-display.r]
	if none? display [display: do %rebgui-display.r]
	...

]


CTX-REBGUI: context [

	...

	edit: none
	widgets: none
	requestors: none
	display: none
		
	smart-do: func ["helper function to reduce repetition"
		ignored [issue!] block [block!]
	][
		if none? get first block [do replace copy block [#include][]]
	]
	smart-do #do [edit: do #include %rebgui-edit.r]
	smart-do #do [widgets: do #include %rebgui-widgets.r]
	smart-do #do [requestors: do #include %rebgui-requestors.r]
	smart-do #do [display: do #include %rebgui-display.r]
	...

]

Roadmap updated. The only thing I have left to do is fill in all 
the "Features" and "To Do" entries, which I need to think on for 
a while.


shadwolf: Good work, you can get the complete widget set from the 
updated roadmap (table 3.4). With regards to the DokWiki ... build 
it and they will come, but you may want to refresh folks memory (mine 
included) with how to register / access (point form summary). Also, 
it's not just widgets that need more work ... localization could 
do with some native language assistance. ;)

Petr: that link times out, i'll check again later. anyway, i don't 
know win32 nor i do know how rebol does even processing internally. 
i know how key events are usually processed in various platform, 
and most applications just work in the higher level when they get 
characters, not keys.

That's just an initial impression. I will see if I get used to it 
nicely or badly :)

What I dislike in "current" release (1.3) is that there is two rendering 
engine: one for 'effect and one for 'draw. So you have capabilities 
(ie: better alphachannel handling) with Draw that you don't get with 
'effect.
So to make a more than 2 colors gradient, you need Draw.
I hope that 1.4 will fix that

If anyone can work out why popup/away doesn't work from within display 
(by uncommenting the display line and commenting the view line), 
please let me know.

	REBOL []

	do %rebgui.r

	;display "test" [
	view layout [

  button "Click here" [show-popup/away make system/standard/face [] 
  do-events]
		text "Then here."
	]

	do-events

It would be very good to get this working [with RebGUI].

I couldnt' get Anton's slider to work on this account

sorry I get a computer crash and I does see that it was yet posted 
to altme

Ok, so do you want me to do it or do you think you can get around 
the problem ?

I don't get the point ...  people that work on a widget of rebgui 
must be noticed to the public  ;)

Where's the cooking-widgets page?  I get a 404 when I go to rebolfrance.org 
and use the link there...

** Script Error: scroller has no value
** Where: display
** Near: attribute-color: get arg
>>


This is all I get when I start 031 after installing it on top of 
030...

I get the same error.  A quick hack is to add this before the last 
line in rebgui-widgets.r:

I can CTRL+A and CTRL+C to get password field.

I get lot of problems with the new slider implementation into listview 
widget

3) on refresh with new data  I get an internal  crash in rebgui

I get now this error message when I start the list ...

Ashley, I just ran the data section in View and then did a mold/all 
on the data to get the first version and wrote it to the clipboard 
and pasted it in a text editor. I copied the binary sections to a 
block and then ran a: "" foreach x data [append a rejoin ["64#{" 
enbase/base x 64 "}"]] , and then wrote a to the clipboard and edited 
in the #[image! ... specs into the resulting data. I may have missed 
a step, or there may have been duplicate images in the source data. 
The process could be automated easily though.

Good  NEWS I just solved the problems with the listview widget and 
0.31 I make some improvements too... REFER TO THE the DOKUWIKI REBOLFRANCE.INFO 
PAGE TO GET THE SOURCE CODE (same version 0.51)

I told DideC not to go to the beach unless I get to go too.

Pekr: I know that Cyphre has put a few large city maps into DRAW, 
and they looked pretty good. We just need to get him to tell us more 
about it.

I remember talking to Dave Haynie and he told me, that when working 
in Scala, they had to code own sub-os, to get precise timers, synchronisation 
etc. So - dunno. Took lots of work for them. And Rebol has to be 
cross-platform, so, maybe it is impossible to achieve. But you know 
better - you're the media guy! :-)

Graham - it is basic logic - try to move face per pixel - you get 
very jerky result, slow. Then download some Scala demo - AMAZING. 
You will FEEL the difference. And Carl told us some time ago, that 
rebol already uses double-buffering ...

This should get you going:

display "Test" [
	a: area 100x50 "Title {}"
	do [
		rebfocus a
		system/view/caret: back system/view/caret
		show a
	]
]


The RebGUI edit-text function (and indeed the majority of the edit 
context) is designed to be used from within RebGUI widgets ... it's 
not "user-space" functionality. Manipulating text and / or focus 
is done via the standard view mechanisms (system/view/caret, focal-face, 
highlight-start & highlight-end) ... RebGUI just provides an encapsulated 
front-end to these. Depending on what sort of operations need to 
be performed (e.g. move the cursor to the Nth character), we can 
certainly add additional user-space functions (much like rebfocus), 
we just need to define what these functions are and how common their 
use would be.

I have done the set of svg icons you ask me using inskscape plain 
text svg (the lighter svg format ...) you can get it here http://shadwolf.free.fr/RebGUI-svg-icons.zip
 .It's not author marking and it's my own work so no problems with 
rights issue.

SVG format is so blury that you can't match it to a predeterminate 
struture you have to do a structure analyst for each leaf of the 
the object tree then get the needed information from leaf and nodes 
then convert them to rebol then apply the draw

I think that's because technologie issue (graphics libs that would 
be used to normally render SVG files to screen are different from 
AGG ) then you have plenty of possibilities SVG can be seen as a 
VID  widget tree where youonly get relevent informations but the 
structure have some recusing consept

Any chance to get the multi-column list to work in the next release? 
So that it's possible to select, add, delete entries. How about in-cell 
editing?

Yes, the list works to show stuff, but I can't select an entry and 
get a feedback into my code. Or is it possible?

I hope mine will be able to do that when I get something more meaningful 
done. selected columns for viewing is already now something you don't 
need to worry about in my list, but I still have much work to do...

with 3.4 when i run the tour.r i get: Access Error: Cannot open /C/Temp/Rebol 
View/RebGui/images/logo.png
** Near: image: load %images/logo.png
size: image/size

Hi, just few notes .... 


1) why new versions are not released as complete ones? The download 
is small already. I tried to point out my friend to it, and he missed 
0.3 version or so, which is required ...


2) box definitely does not resize properly. Still, so far, Romano's 
system was the most complete and the least errorless version I saw. 
Try to move resizing window here or there and you will get even cases 
as three lines of color boxes, no spacing, mixed together ...


3) lists - are we ready to overcome rebol limitation here? It works 
better, but still not flawlessly and not in system friendly manner: 
a) when moving "too fast" with mouse, it stays open b) in above and 
and other cases, ESC shoudl close it c) I understand we have use 
some "excuses" and workaraound for now, but that is not the way to 
go in future d) when moving away, it should stay open, last hilited 
item should stay hilited, close on esc, close on click-away, should 
be foxusable, ability to be driven by keyboard  - that is the only 
system friendly way


4) text-list multi mode - ctrl works, shift too, ctrl A too, but 
not in a system friendly way once again. Maybe I should check first, 
but IIRC, it should work following way - ctrl selects particular 
items. BUT - it should also deselect them - try ctrl A and then, 
holding Ctrl, press some item - it does not deselects them - that 
is imo wrong. Also - shift should mark all items between point of 
last press and active mouse position, deselecting all the rest, even 
if previsously selected ...

scaling - cool! But resizing works a bit strange sometimes, especially 
if you lower window size under some acceptable limit .... dunno if 
that one could be automatically calculated or not, but sometimes 
you get destructed (non-functional) gui

... e.g. with text-list, resizing up and down few times, and you 
get buttons over text-list, the same way bar over text-list, text-list 
not fully visible even if maximising window ....

But this allows you to resize a window below an invisible threshold 
only to have your resize [partially] ignored when the layout jumps 
back to it's minimum size. I still maintain that setting a realistic 
min-size is not only subjective but the role of the GUI designer 
... if RebGUI tries to infer this setting it will invariably get 
it wrong ("why did it let my title field shrink to less than three 
characters ... everyone knows a one-char field is useless" type of 
issues).

In this example I can't get vertical positioning working 

display "" [  
    at 0x150
    

    text-list 30x15 #YH data [ "Joe" "Adam" "Bill" "Artur" "Phil" "Simone" 
    ] [ show-text chattofld pick face/data first face/picked ]

        chatarea: area 150x10 #YWH "Intra office chat appears here" slider 
        5x10 #YXH data [arrows]
 
    at 32x160
    chattofld: field 15 #Y chatfld: field 140 #YW [ 

            show-text chatarea rejoin [ chatarea/text newline chattofld/text 
            ": " chatfld/text] 
            show-text chatfld "" rebfocus chatfld
    ]

    ] do-events

another "bug" - maximize demo .... move last column to righ, minimize 
back - you can't see last column and there is no chance how to get 
to it .... I would expect horizontal scroller to appear ...

Any plans to write accessor functions like 'get-text ?

No plans with 'get-text, unless it was to do something over and above 
what face/text does (i.e. trim then show).


The alert problem is related to RebGUI's liberal use of hide-popup 
to cope with drop-lists and edit-lists that need to be closed when 
another one is opened. I figured at the time that having more than 
one non-modal dialog open at the same time probably didn't make much 
sense - although an alert from within one is a valid case [in hindsight].

From my experience with Cyphre's table style, it makes sense to use 
a name/value block for the data. With this you can throw a block 
in any order and even one, that has more fields than being displayed. 
The latter makes a lot of sense if you just want to get back an internal 
ID.

Back in old DOS days, with tools we worked with, we had following 
available:


1) VTG (Variable To Get) function - you could specify VTG$("AB"), 
and user was able to only enter A or B letter, nothing more - we 
used it to limit letters for floppy disk access


2) we had system of field-masks .... e.g. tel-number: (999) - 999 
999 - then all non num chars were displayed in field, you could not 
delete them, they were skipped, and you was only able to write numbers 
.... if you wanted to allow chars, you used "X" insted of "9". Pretty 
powerfull concept - not too much complicated, and allowing you to 
limit bugs ppl can enter ...

I'm doing some async io, which works with View, but in Rebgui, I 
get the following error when I click on my button

make object! [
    code: 312
    type: 'script
    id: 'cannot-use
    arg1: 'path
    arg2: 'none!
    arg3: none
    near: [if pf/data <> face/data [
            old: pf/data
            if old [
                clear skip pf/pane/:old/effect/draw 7
                show pf/pane/:old
            ]
            pf/data: face/data

            insert tail face/effect/draw [pen leaf fill-pen leaf circle 6x10 
            3]
            show face
            face/action face
        ]]
    where: 'switch
]

Graham, I've messaged you privately. When I get back from the DevCon 
(November 1st) I'll put some screen-shots of some of my commercial 
apps up. Maybe a demo or two as well.

I'm setting a radio-group using the following code

field/pane/2/feel/engage field/pane/:value 'down none


The radio group appears in a pane, and if I display that pane first, 
then there is no problem.  But if I try it before I display the pane 
containing the radio-group, I get this error.

it's been a while since i don't get internet connection so I hope 
it works fine with rebgui  0.37

List view is  thinked like a rendering engine you give to it a stutured 
list of datas then you get it on screen