r3wp [groups: 83 posts: 189283]
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

World: r3wp

[View] discuss view related issues

[unknown: 5]
31-Mar-2006
[4652]
I was thinking about this last night and a good modification to the 
face object might be good to include the item 'move-limit
Anton
31-Mar-2006
[4653x3]
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 ?
[unknown: 5]
31-Mar-2006
[4656]
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.
Ashley
31-Mar-2006
[4657]
That's how it works in the SDK.
Anton
31-Mar-2006
[4658]
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.
Robert
1-Apr-2006
[4659x2]
What are names of the registry function in View?
I need to get the install dir
Anton
1-Apr-2006
[4661x4]
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"
Robert
1-Apr-2006
[4665]
Exactly, that's what I need. But latest view doesn't have those functions
Anton
1-Apr-2006
[4666]
Maybe for your situation you could start an older rebol beta just 
to get this info ?
Robert
1-Apr-2006
[4667]
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.
Anton
1-Apr-2006
[4668x3]
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)
Robert
1-Apr-2006
[4671x2]
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.
Volker
1-Apr-2006
[4673]
You want to start view from ios? Would that work with fileextension? 
If you browse the .r-script, browser would launch rebol?
Robert
1-Apr-2006
[4674]
I can try this.
Thør
2-Apr-2006
[4675x4]
.
.
.
.
Pekr
2-Apr-2006
[4679]
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 
...
Gregg
3-Apr-2006
[4680]
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.
Volker
3-Apr-2006
[4681]
on '95 regedithad commandline-options for import/export, maybe that 
would work to read key? http://techsupt.winbatch.com/ts/T000001029F18.html
Thør
4-Apr-2006
[4682]
manual resync...
Ingo
5-Apr-2006
[4683]
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?
Gabriele
5-Apr-2006
[4684]
desktop uses launch which is not launching with -s
[unknown: 9]
9-Apr-2006
[4685]
KEY123 (please ignore)
Graham
14-Apr-2006
[4686x3]
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.
Gabriele
15-Apr-2006
[4689]
or use the same word but different contexts
Graham
15-Apr-2006
[4690x3]
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 
?
Anton
16-Apr-2006
[4693]
I've never seen a way to do that.
DideC
16-Apr-2006
[4694]
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.
Henrik
16-Apr-2006
[4695x2]
>> ? textinfo
USAGE:
    TEXTINFO face line-info line

DESCRIPTION:
     Sets the line text information in an object for a face.
     TEXTINFO is a native value.

ARGUMENTS:

     face -- The face for which the information is defined. (Type: object)

     line-info -- The object where the information will be set. (Type: 
     object)

     line -- The line to get information for. (Type: number any-string)
There is a fairly detailed description of TEXTINFO in http://www.rebol.com/docs/view-system.html
section 6.9.2
Graham
16-Apr-2006
[4697x2]
Ahh..after I implemented my own line wrapping routine :(
Anyway, good to know.
Henrik
16-Apr-2006
[4699]
does it work?
Graham
16-Apr-2006
[4700]
What work?
Henrik
16-Apr-2006
[4701]
your line wrapping routine