World: r3wp

4.8) "win-away-nobtn" combines 2, 3 and 5

if you have the sdk, look at view-object.r for how this is done.

Hi Anton, thanks, I'll try that.

Concise, clean and straight  to the point, Gabriele. It's information 
like this I expected to get through commented source code when I 
once bought the SDK. Invaluable information - it's fairly easy to 
see what code is doing, but hard to understand what code want's to 
accomplish. Thanks!

yes... i agree. that's indeed an important commenting rule (intent 
in the comments, action in the code)

i hope we can get this better for R3

How do most people handle drag and drop events so that the drag face 
doesn't go beyond the borders of the parent face?

I was thinking about this last night and a good modification to the 
face object might be good to include the item 'move-limit

No that's not necessary. We actually want to cut down on such bloat. 
The face object needs a bit of plastic surgery.

view center-face layout [
	box: box navy 300x300 with [
		pane: make-face/spec 'box [
			size: 80x80 
			offset: 40x40 
			color: red 
			text: "drag me"
			feel: make feel [
				engage: func [face action event][
					print remold [action event/offset]
					if find [over away] action [
						if drag-off [
							; we are dragging
							face/offset: face/offset + event/offset - drag-off
							; now constrain the face within its parent box
							;face/offset: confine face/offset face/size 0x0 box/size
							show face
						]
					]
					if action = 'down [drag-off: event/offset] ; begin drag
					if action = 'up [drag-off: none] ; end drag
				]
				drag-off: none
			]
		]
	]
]

What are you actually trying to do, Paul ?

I'm not trying to do anything actually - I actually do it from within 
the feel as well.  I agree that I don't want REBOL to bloat anymore 
than necessary.  I think this could be something that could be added 
to VID for example.  I think VID could even be pulled out of the 
system object and just loaded when needed.

That's how it works in the SDK.

Yes, but there must be some reason why you want to do this on this 
particular day :)  But I still don't agree it's good to add a new 
facet to the face object just for this one purpose. Consider how 
many different confining systems there can be. This is something 
that should remain user-programmable.

What are names of the registry function in View?

I need to get the install dir

They seem to be removed (at least from global context) in View 1.3.1 
(or maybe before). Previous betas had these (eg. View 1.2.7):
>> ? reg
Found these words:

   create-reg      native!   Creates a registry key and returns TRUE 
   on success...

   delete-reg      native!   Deletes a registry key. Returns TRUE if 
   deleted. (...

   exists-reg?     native!   Returns TRUE if registry key exists. (HKCU 
   is defa...

   get-reg         native!   Returns value of a registry key, else NONE. 
   (HKCU ...

   list-reg        native!   Returns a block of sub-keys for a registry 
   key. (H...

   set-reg         native!   Sets registry key value. Returns value 
   on success,...
   unset-reg-funcs function! [

(sorry that was in View 1.2.57)

or do you need the registry locations?

and it worked like this:
>> get-reg/hkcu "Software\Rebol\View" "Home"
== "d:\anton\dev\rebol\view"

Exactly, that's what I need. But latest view doesn't have those functions

Maybe for your situation you could start an older rebol beta just 
to get this info ?

The problem I have is, that I start a reblet from inside IOS but 
it needs the new View. So I cechk this and want to start View automatically. 
For this I need the install location, dynamically at runtime.

The reblet needs the new View (1.3.2) or IOS needs the new View (1.3.2) 
?

VIEW-ROOT doesn't give you what you want ?

(if it is available where you do the check)

Both :-) But for now the Reblet needs the new View but it's started 
from IOS.

VIEW-ROOT give the install dir of Link but not where the user might 
have installed View.

You want to start view from ios? Would that work with fileextension? 
If you browse the .r-script, browser would launch rebol?

I can try this.

.

.

.

.

hey, enough is enough ;-) You don't need to post dot in each specific 
group to force syncing imo ... that is why we have dot group here 
...

Using...what is it...RUN from IOS should run the associated app. 
So, assuming they set up a .r association, you could run a test .r 
script and look at system/options/boot.

on '95 regedithad commandline-options for import/export, maybe that 
would work to read key? http://techsupt.winbatch.com/ts/T000001029F18.html

manual resync...

I have set my 'view (1.3.2.3.1 5-Dec-2005 pro) to not open the desktop 
on startup, now I start it from a windows link like this:

 C:\Programme\Rebol\View\rebol.exe -s "C:\Dokumente und Einstellungen\ingo\Anwendungsdaten\rebol\start-desktop.r"
(You'll imagine, what the script does ;-)

Now, if I click on a rebol file which accesses a dll I get a security 
question whethter I really want to allow access to the dll. shouldn't 
this be allowed with the -s switch?

desktop uses launch which is not launching with -s

KEY123 (please ignore)

I think I knew this once, but need reminding :(

How to create a draw block dynamically with a number of different 
fonts.  You are not allowed to create the font inside the draw block 
as evaluation is not permitted, but word lookup is.

The only way I can see is to create the word that holds the font 
dynamically, and use reduce to insert the new word into the draw 
block.

or use the same word but different contexts

does draw honour the colour attribute of a font object ?  Seems not.

Quick question .. how to get the text out of an area widget formatted 
in the same way as it is on screen ( word wrapped etc ) ?

Or, is there a way to reuse the word wrapping routines that VID uses 
?

I've never seen a way to do that.

I think the 'textinfo function is used for that (used in ctx-text/text-edit). 
But we have no infos on how to use it and what it does exactly.