AltME groups: search

no in a text area -- > windows clipboard

can you just select a text word by click in on a letter?

If you mean selecting a part of the text (hilighting) and sendind 
it to the clipboard, just hit CTRL+C ;-)

If you mean sending to the clipboard the word where the cursor is, 
it's a bit more complex.

Yes DideC what i am looking is to click on a character in the text 
area or field  and grab a whole word delimited maybe by spaces ( 
or any other character ) and send it to the clipboard or another 
field.

ctx: context bind [
	chars: charset [ #"A" - #"Z" #"a" - #"z" #"0" - #"9" #"-" #"_"]
	non-chars: complement chars

	set 'copy-word has [start end end-rule car-pos] [
		if any [not focal-face not caret] [exit]
		
		car-pos: index? caret
		end-rule: copy []
		
		parse/all head caret [
			any [
			 	start: some chars end: (

     if all [car-pos >= index? start car-pos <= index? end] [end-rule: 
     'break]
				) end-rule
				| some non-chars (start: end: none)
			]
		]

  if all [start end] [write clipboard:// probe copy/part start end]
	]
] in system/view 'focal-face

view layout [
	area "This is some text to test"

 text "To copy the word under the cursor : hit CTRL+K or press the 
 button bellow"
	button "Copy word" #"^K" [copy-word]
]

There's a nice example of BIND. The whole block of words is first 
BINDed to the system/view object. Only the words that already exist 
in system/view (like 'copy-word) will be rebinded, (because objects 
cannot be extended with new words).

*Then* CONTEXT starts building a new object! of its own, from the 
spec block of binded words. But it only puts the set-words (eg. chars: 
non-chars:   but *not* 'copy-word) into the new object.

So it's a double-bind :-)

Thank you DideC this is what i was looking , i thought that parse 
will do the trick  I just did not know how. All i need to do now 
is see how fast this works with a 100KB text file.

I'm not a parse guru myself. May be there is a simpler solution.

is it possible to use an object variable for a VID item, such as 
obj: make object! [t: none] where I would like view layout [obj/t: 
button "hello"] in some way? it doesn't work...

Yes, it is possible but requires a little work...

Speaking of double bind, I have no clue of the how-to to this clue. 
 In Ocaml we can make co-recursive definitions, also with negation. 
 But when I try this on Rebol, it claims the value before I have 
the time to define it:  a: not b and b: not a.   Interp: ** script 
error, b has no value.  What is the method ?  Or are we out of paradise? 
 I could use that as a form of loop, or a form of lexical closure 
to model some linguistic phenomenas.  But how?  We know the problems 
of complement of complement, but as a function value it should be 
feasible.

Do you have an example,  besides:
a: not b
b: not a

A pair number cant be defined without impair. pair is impair +1 and 
impair is pair +1.  So we have to define both at the same time.  
In logic, the negation is a function where true is false and false 
is true.  Not and complement are native to rebol.  If I try a: not 
'b b: not ''a. asking the value of a, :a, does not return not b but 
false.   Something like this does not seem to work.  What I want 
is criss-crossed functions one defined by the other.  In principle, 
Rebol being functionnal.   It should be simple, a one liner, but 
I am too newbee to find the elegant way to do this.

Normand, can you give us the actual code that is tripping you up 
here?  Perhaps with a look I could help you out...

Thanks for the answer.  I am aiming in the direction of corecursive 
types, to model a category thing.  So the following works.

Co-recursive types:
>> owed: func [x] [either paid? x [negate x][false]]

>> owed?: func [x] [either all [integer? x negative? x] [true] [false]]
>> paid: func [x] [either owed? x [negate x] [false]]

>> paid?: func [x] [either all [integer? x positive? x] [true] [false]]
>> a: 5
== 5
>> owed a
== -5
>> owed? a
== false
>> owed? b: owed 5
== true
>> a: paid b
== 5
>> paid? a
== true
>> paid? paid -5

--Type inference from a newbee point of view:

What if I wanted to form true (but un-native) datatypes ?  To program 
them, I shall use the same method as other types in Rebol: 

To mention the type as its value : seasoning!: seasoning!, like the 
definition of the type money!: 'money.

Rather, I would like to do type inference as they do, for example 
in ML (I adapt the example from Felleisen's LittleMLer):

So I would need to define a new type and verify the type of a word 
with type?
seasoning!: ('salt or 'pepper)
Unfortunately this does not seems possible 
** Script Error: Cannot use or~ on word! value
** Near: 'salt or 'pepper
In Rebol:
>> source integer!
integer!: integer!
type? 1
== integer!
but
natural!: (0 or natural +1)
Type inference:
seasoning? salt
Would like the answer == seasoning
is-of-type? 'salt seasoning
Would like the answer == true

Am I forced to turn to Ocaml to do this?  I am stuck.  Thanks for 
any help!

As far as I know it is not possible to define new types.


Not sure that would solve your problem anyway.  A word can point 
to a value that has only *one* type (ignoring the heirarchy -- eg 
block! is also series!). So complex assertions about something would 
not be easy.


Maybe rethink the need.....Use objects to hold both a value and a 
type:
>> item: make object! [value: 'salt type: 'seasoning]
>> item/type
== seasoning
>> 'seasoning = item/type
== true

You could encapsulate that in a couple of functions and expand the 
scope (maybe make type a block with multiple values)

Just reading the code... Needs a demo.
custom-types.r  needs  standard-actions.r

Hmm, there seems no easy way to make a demo. Gabriele is using an 
include mechanism (prebol.r I think) from the SDK . But it looks 
like
http://www.colellachiara.com/soft/YourValues/main.r
is the starting point.

(a version of prebol with some minor modifications.)

about an example: there should be a complex.r in that dir that is 
a bit outdated (lacks support for molding and loading) but should 
be a good start. also template.txt is the starting point to create 
a new type.

also, i would really discourage a newbie from using that stuff as 
it is very experimental :-)

and, i think an interpreted language would probably have a hard time 
at it, except for simple cases like the seasoning above.

the only advantage of having a real type in that case is type checking 
in fuction arguments; you don't get that with my custom-types (i 
don't think it is worth redefining FUNC etc. just for this), and 
it's not a big deal actually.

i'm using something close (i.e. a very dumbed down and specialized 
version of it) in the backend for the portals for the Detective

I've just noticed a new global word PATH existing since View 1.2.10, 
an undocumented function.

Thanks for all those suggestions.   I was out for quite a while and 
am very happy of all those remarks. It will help orient my trials&errs. 
 About  objects, dynamic versus static, If I understand it, in Rebol 
it is static?  I never had to use them except to encapsulate the 
whole of an app.  Is there a trick to mimick something dynamic to 
hold changing values?  Maybee a copied block is enough?  I wonder 
because I regularly try to add code to a bibliographic database, 
a kind of a variation on bibtex (never ended, allways in progress), 
And I am not too far from aiming the storage mechanism and wonder 
what I should use to hold something like from 5 to 10 thousand references 
(my actual need is 3.5K)  I used endnotes in the past, but dreamed 
about my own.  It is a lot of work (more than I expected as it is 
my first app).   Up to now I think I will use simply name-value pairs, 
like Carl's cardex.  This kind of data is more like a ragged array, 
the fields and their numbers allways vary, and I may amend their 
list with time.  The idea of using an object would be nice but need 
something where I may add or retract variable names and change their 
values.  By the way, I thank Volker for his edit-tools, that may 
help to add a writing pad.  And his double slider is refreshingly 
new for such and old paradigm as an editor.

The structure of an object is static (which fields in which order), 
but the values assigned to those fields are as dynamic as you want. 
Also, if you want to add or delete fields it is quite easy to create 
a new object with your changes at runtime. If you are just using 
an object as what other languages call a dictionary or hash map, 
you might as well use a block or hash type for your data.

Adding or deleting fields in objects can be tricky if you have multiple 
references to the object:
  obj: make object! [a: 1 b: 2]
  block: copy []
  append block obj
  obj/a: 9

  probe block     ; shows the object in the block is the same as obj
  obj: [a: 7]     ; attempt to update obj to remove b

  probe block     ; the object in the block still has a 'b -- it's 
  still the original

Otherwise, the technique is fine.

Or in other words, you can't add/remove fields in objects, but you 
can clone objects, and add/remove during cloning 

>> a: make object! [b: 1 c: 2]
>> b: make a [d: 3]
>> probe b

make object! [
    b: 1
    c: 2
    d: 3
]

>> c: make object! head remove/part find third b to set-word! 'c 
2
>> probe c

make object! [
    b: 1
    d: 3
]

Just as a little helper ...

>> third b
== [b: 1 c: 2 d: 3]

Thanks a lot.  It the kind of thing I normally learn the hard way, 
like the first time I was confronted to [ ] instead of copy [ ]. 
 Judging when it is better to use a block or object or structure, 
hash or else is not evident from a new eye.  The small Ladislav tutorial 
on blocks (series) is the kind of thing that helps a lot,, it help 
a newcommer realise how the language is articulated.

blocks are arrays. many items of the same kind. partners of loops. 
objects are records. items are addressed by names.

blocks are also good for records if you have only a few fields (2-3). 
like [key value]. then its sometimes easier to deal with offsets 
instead of names. block/1 -> key, block/2 -> value. less to declare.

blocks are also great for composing in, e.g creating a dynamic layout 
block to pass to the layout function or draw

Why not show them SIN: :SINE , COS: :COSINE or ALIAS 'COSINE "COS" 
etc.? They'd sure be baffeled again, but probably would dislike REBOL's 
strict left-to-right evaluation of formulas instead of having a bunch 
of operator preceedence rules to remember, too :)

But, yeah, they probably aren't *that* wrong. Has anyone ever used 
REMAINDER instead of // ? I do think that for the math function names 
this "be explicit" style is really a bit over-the-top.

Yes, Henrik, that's correct (par Carl). For complainers, use Christian's 
example to show them how easy it is to "fix" and maybe explain a 
little more about how REBOL works.

I've used REMAINDER here and there. Sometimes I use functions, rather 
than ops, for precedence control and clarity. A normal human should 
be able to understand what "remainder" means, but may not have a 
clue about the distinction between / and //.

It is, Gregg, understandable, of course, and a nicety to have for 
people not used to thinking in math terms. That's supposed to be 
the reason why both approaches are build in: Let people decide what 
fits their needs. Admittedly, me too apparently use REMAINDER, especially 
in cases where operators otherwise would catch a functions argument 
to it's left without parens.

I like the spelled-out math terms. Aside from the basic four, there 
is a lot of inconsistency between programming languages on operators. 
Spelling things out makes your code clearer. Besides, there will 
always be people who look at the word sin and think you are doing 
bad things.

Now if REBOL had unicode support, we could do a Fortress dialect 
for the people that actually know what the operators are supposed 
to be.

Help, help!

Well, I'm not exactly new... but I never before had noticed thisone:

A hidden field is showed when get focus...

I mean:

hide the second field by pressing the button, then go to the first 
field
and press enter, and the second field is showed again with focus.

I hope there is a simple way to void hidden objects get focus.

someone can help me?

It's a known issue: http://www.rebol.net/cgi-bin/rambo.r?id=3477&

I don't know if someone has a fix out there or not. You might try:

	deflag-face f2 'tabbed

Man, your code works!, thanks a lot!!

A simple patch would be to had the test of 'show? in ctx-text/next-field 
and ctx-text-backfield.

There is no such thing as "fully fixed" software. :-) 


There are many many many things on the list that didn't get in, and 
even a little change like this--which may seem safe and easy--means 
more testing and inspection, often a lot more than you expect. 


In this case, let's look at how many people are screaming that this 
particular issue is killing their apps; not many; it's been around 
a while. Let's also look at whether we can work around it even if 
1.3 doesn't fix it; yes we can, and without too much trouble it seems. 
So, as one person hammering on RT to ship 1.3, I'd vote to ship without 
it.

Gregg - I am not talking about one particular issue mentioned above, 
more about installer etc. issues. You should distinguish between 
a bug fix importances, as if Installer is not solved in a good way, 
it can annoy many ppl!

Yes, I think we all agree Petr; it's a balancing act. Carl is *very* 
aware of the importance of these things, but also knows that "shipping 
is a feature".

Consider: The installer is run once per version, and the only problems 
left in its function are the location of registry entries that aren't 
visible from View anyway. The problems that affect day-to-day View 
operation have been fixed with the use of a seperate sandbox directory. 
The rest can be fixed in later versions with automagic migration 
code and no REBOL scripts would know the difference. Once installed, 
View can be used in a multiuser environment now (as of 1.2.117); 
we can make the installer multiuser-safe later.

I mean in terms of leaving View in a workable state - internal installer 
functionality has been fixed somewhat since then.

I am trying to add a newline to separate blocks of hashs I add to 
a file withe the save command.

[idkey: 1 objectname: "article" creator: "Lec, Norm" fulltitle: "Title 
1" pageread: "1"] {#"^^/"} [idkey: 2 objectname: "article" ...
with the line: append bib mold/all newline

Unfortunately I dont find the way to dispose the blocks in a pleasing 
format because the newline separating them is in source format.

I did try a dozen of combination with reduce, form mold and compose 
and the various newline forms I know ^/ "^/" but to no avail.

It shure is stupid but I am stock with this.  If I use write I am 
OK, but would like to learn the trick with save. Thanks.

In last View version (1.3.x) and last Core, there is a 'new-line 
function to format a block in lines. I think it does not work on 
hash! (just try), but you can use 'to-block on your hash! to be able 
to use it.

>> help new-line
USAGE:
    NEW-LINE block value /all /skip size

DESCRIPTION:
     Sets or clears the new-line marker within a block.
     NEW-LINE is a native value.

ARGUMENTS:
     block -- Position in block to change marker (Type: block)
     value -- Set TRUE for newline. (Type: any)

REFINEMENTS:
     /all -- Set/clear marker to end of block

     /skip -- Set/clear marker periodically to the end of the block
         size -- (Type: integer)
>> a: [1 2 3 4 5 6 7 8 9 10]
== [1 2 3 4 5 6 7 8 9 10]
>> new-line a true
== [
    1 2 3 4 5 6 7 8 9 10
]
>> new-line a false
== [1 2 3 4 5 6 7 8 9 10]
>> new-line/skip a true 2
== [
    1 2
    3 4
    5 6
    7 8
    9 10
]

It's a new feature and it's not currently documented, just mentioned 
in the View 1.3 change log page.

Hello all.. I need help!  I am trying to append a series within a 
series..  i.e.  [ [a b c] [d e f] ].  How would I add [g h i] to 
the end of my series so that I would have [ [abc] [ d e f] [g h i] 
], and not [ [a b c] [d e f] g h i ] ?

append/only [ [a b c] [d e f] ] [g h i]

How to make this work?

>> foreach line read/lines request-file [prin "before " prin line 
print " after"]

** Access Error: Invalid port spec: /C/Documents and Settings/meta/Desktop/node_list.txt
** Where: halt-view

** Near: foreach line read/lines request-file [prin "before " prin 
line print " after"]
>>

I'm trying to read each line from a file and add something before 
and after

thanks

Hello everyone,

I have an EditME me that I'm using to manage a project this summer. 
I would like to use Rebol to logon to my wiki, edit some pages and 
attach files to pages.

Are their any code exemples that I could use to understand how to 
go about this. I need to be able to fill in forms and send them in 
to my wiki. 
many thanks

There is no PRINTF-like function in REBOL right now. Eric Long wrote 
one which should be available somewhere (or write to me privately). 
RT has mentioned it more than once; the hard part will be designing 
the interface to it. I wouldn't want a standard FORMAT function to 
work like PRINTF myself, but I think it would be good if there was 
one out there for pople to use who wanted it.

I know I've been around for a while, but it's been so long since 
I submitted anything to the REBOL.org script library that all the 
rules have changed. So I'm new again :(


What headers should I add to the script to integrate it into the 
script library? I'd like to BSD license it - how do I indicate that? 
Are there any other headers that are necessary? How do I indicate 
that a minimum version of REBOL is required (Core compatible, but 
I use a few recent features)?


This is related to an extended version of the compress-source function 
I made for the Canvas section.

If there is a page on REBOL.org that explains this, could someone 
post the link?

Alternatively. try to upload without a Library header.....One'll 
get added, and you can then edit it.


[It'd be good to get one more script in the Library. Right now we 
have 666, and that's an iconic number for some people :-)]

Hello, everyone... Ii am using encryption in Rebol/SDK, and I would 
like to store the actual binary value returned from the port as a 
string... not the to-string value, but the binary value... for example, 
if I get back #{455121D505CD240595E530589ADCD7787F22EF9DE899D6D8} 
from the port, I would like to store 455121D505CD240595E530589ADCD7787F22EF9DE899D6D8 
as a string in a file... does anyone know if this is possible?

Hey all, what is the current expected syntax for the Needs header 
of a REBOL script?

Last time I checked (a while ago) it was undocumented.

i am testing version 2.0.1 of RebDB, and I am having problems doing 
a selection with an equality 'where' predicate... 
do %db.r
if any [ exists? %my-table.ctl 
         exists? %my-table.dat ] 
       [ delete/any %my-table* ]
db-create my-table [col1 col2 col3 col4 col5]
db-insert my-table [next "1" "2" "3" "4"]
db-commit my-table
test: db-select/where * my-table 1
print ["key: " test] 
test: db-select/where * my-table 
	'col1= 1 'col2= "1" 'col2= "2"
print ["eq:  " test]
test: db-select/where * my-table 
	all ['col1= 1 'col2= "1" 'col2= "2"]
print ["eq:  " test]
test: db-select/where * my-table 
	[all ['col1= 1 'col2= "1" 'col2= "2"]]
print ["eq:  " test]

The where refinement expects a block, so just use code like the following:

	db-select/where * my-table [col1 = 1]
	db-select/where * my-table [all [col1 = 1 col2 = "1"]]

Could you help me anybody? I have a simple sequences of commands: 
  view layout [label "hello"]  tx: request-text "something" ... I 
need invoke request-text immediately after main window showed - not 
after the main window is closed...

you can also, if you have a console running in the background, restart 
a "stopped" view window with DO-EVENTS

great, that i needed, thanks a lot for explanation..

I can not understand behaviour of my example:
If i have a script1.r:
view layout [ ...
  btn "script2" [
    do %script2.r      
    print 123
  ]
]
... and sript2.r has: view layout [.....]
I expected that <print 123> will not execute because 
script2 has view layout... (no view/new layout [...])

Bobik, looks like you want to make a script launcher. See if you 
can use LAUNCH to run your script. (limited to one level though.)

modal? How - it was one of bobik's earlier questions, we tried a 
lot, but nothing worked for us ...

as for always-on-top or other modes of Windows, it is a pity we don't 
have them. It is just one single function call, which even C lamer 
as me was able to wrap ;-) ShowWindow or ShowWindowPos

aha .... it is a bit tricky, because you can get-to-it, exactly as 
you said - so it does not receive events, but it can get focus, so 
your dialog-box may go under the initial window and user might think 
app is blocked ...

altme does something like this (try to open a subwindow, like a group 
window and so on)

I am not sure Rebol low level windowing system is not weak a bit 
... Rebol should imo detect two or more monitors and put them in 
system/view/screen-face .... as a several blocks .... or even it 
should probably get to multiple desktops ....

ah, changing it in pane? Cute ..... :-) Bobik came up with other 
trick - he simply made bitmap of underlying window and he does his 
dialog on that bitmap. So user thinks he still sees his bacground 
window, while it is only a bitmap .... or something like that. Not 
sure I understood him correctly ...

ehhm - Pekr  has explained this idea, so thanks a lot...

is there any standary way to specify a search path for library kind 
of rebol source files what are tipically imported to end-user programs?

i have seen #include in rebgui.r but as help #include says as well, 
its an issue, not a function.. :/ (i read about it somewhere that 
its a kind of "directive" for the rebol/sdk or what?)

#include is an encap ( well, a pre-rebol ) directive.

prebol is a preprocessor. it puts all files in one script. if you 
want, a dialect for merging scripts. and #include is one of its commands.

Maxim has a library manager which is in the library.

thx! will have a look at it later

It collects lonely values and puts them in facets. a string is put 
in /text, a tuple in /color etc. multiple values are put in /texts, 
/colors etc.

but you can try and force a synchronisation by posting a "." in each 
channel :(

Hey Brian, there is something else you can try, it is a theory I 
have.  Uninstall AltME. Reinstall, and sync back up.  When you think 
it is finished, close out, and start again, let it sync again.
If you are willing....



I never see this "." problem, but many do.  Most people in our office 
don't, and it just might have something to do with the way it was 
originally synced.

it sometimes help for me to logout and in a few times...

there's also sometimes a thing with how altME detects a lost connection. 
this doesn't always happen, so that could be when sync is lost

haven't done it that many times (4-5 times maybe), but it usually 
resyncs after the first relogin. I can't remember if there is a specific 
timeframe there was held up, between relogins

It's not going to be a good bug report :-) I don't have enough details. 
I only know that sometimes it helps to relogin again

That helps.  since this one is such a pain we like to know everything 
about it.  Eveyr little bit helps.  But we are not convinced it is 
inside AltME.  it might be a little deeper.

Not that I know of.  This is the very type of bug that hides from 
debuggers.  If we dump all the states, it all looks good.  We are 
pretty good at finding bugs (actually we are award winning).  It 
is not like we have not tried a bunch of things.  We will nail this. 
 The work we are doing with IOS + Rebol will probably reveal it.

Resyncs sometimes happen in a group if you are connected at the moment 
someone posts a message to it.

That may explain some random resyncs. though not all.....So simply 
staying connected for a long while may be beneficial.