AltME groups: search

Does anybody know if it's possible to catch third mouse-button's 
up and down events? I know of the scroll-line and scroll-page thing, 
but ...

http://www.rebol.com/docs/view-system.html#section-5.10- look at 
scroll-line and scroll-page events ...

something like this...

insert-event-func 	[
    switch event/type [
        key         	[]  
        time        	[]
        close       	[]  
        offset      	[]  
        resize      	[
		switch event/face [
			X [recalculate pos for face x]
			...
			...
		]
	]  
             scroll-line 	[]  
             scroll-page 	[]  
	up 		[]  
	move 		[] 
	down 		[]  
	active 		[]  
	inactive 	[]  
	alt-down	[]  
	alt-up		[]   
	minimize	[]  
	maximize	[]  
    ]
    event
]

Thankyou. Just one thing about scroll-page (ctrl + scroll wheel) 
handling: it could be used for changing the font-size instead of 
being equivalent to page-up/down.

I see I had fixes for scroll-line and scroll-page but looks like 
Cyphre has now fixed those.

just reporting this error ... no expectations

make object! [
   code: 300
   type: 'script
   id: 'no-value
   arg1: 'event
   arg2: none
   arg3: none
   near: [case [
           event/double-click [face/action/on-dbl-click face]
           act = 'up [face/action/on-click face]
           act = 'alt-up [face/action/on-alt-click face]

           act = 'key [face/action/on-key face event face/action/on-edit face]

           act = 'scroll-line [face/action/on-scroll face event/offset]

           act = 'scroll-page [face/action/on-scroll/page face event/offset]
       ]]
   where: 'wake-event
]

box red 10x10 on-click [print mold get in face 'feel]

make object! [
    redraw: none
    detect: none
    over: none
    engage: func [face act event][
        case [
            event/double-click [face/action/on-dbl-click face]
            event/type = 'time [face/action/on-time face]
            act = 'up [face/action/on-click face]
            act = 'alt-up [face/action/on-alt-click face]
            act = 'key [
                face/action/on-key face event
                face/action/on-edit face
            ]

            act = 'scroll-line [face/action/on-scroll face event/offset]

            act = 'scroll-page [face/action/on-scroll/page face event/offset]
        ]
    ]
]


Now how to get into the feel, and hook somehow into 'engage method 
:-)

Some more output from the R3 console:

>> length? system/words
== 1296

>> ? system/datatypes

SYSTEM/DATATYPES is a block of value: [end! unset! none! logic! integer! 
decimal

! percent! money! char! pair! tuple! time! date! string! binary! 
file! email! ur

l! tag! issue! bitset! unicode! vector! image! block! paren! path! 
set-path! get

-path! lit-path! dictionary! datatype! typeset! word! set-word! get-word! 
lit-wo

rd! refinement! native! action! routine! rebcode! op! closure! function! 
frame!

object! module! error! task! port! gob! event! handle! struct! library! 
utype!]

>> ? system/view/event-types
SYSTEM/VIEW/EVENT-TYPES is a block of value: [

    ignore interrupt device custom error init open close connect accept 
    read write wrote lookup ready done time show hide offset resize active 
    inactive minimize maximize restore move down up alt-down alt-up aux-down 
    aux-up key key-up scroll-line scroll-page drop-file
]