I'm a little puzzled. Is this supposed to be inside an application
written in FORTH, or are you supposed to redefine the mouse behavior
globally for other applications running under Windows?
     The former is pretty easy. I imagine the global thing would be
difficult.
     Separate issue, is the 3 button mouse code available?

> ----------
ooo
  3 button mouse to produce characters as if typed from the keyboard.
ooo
  take over the mouse roller ball in Forth and
> produce the effects of the 4 different arrow keys, as if the arrow keys
> were
> actually pressed.
ooo

.

>From gene_at_tekdata.com Mon Nov 8 15:53:31 1999
To: sftalk_at_forth.com
Message-Id: <m0000609_at_gerd.forthinc.com>
Date: Mon, 8 Nov 1999 15:53:31 -0600
From: "Gene LeFave" <gene_at_tekdata.com>
Subject: OFN-DIALOG

I've created a choose file dialog using the OFN-DIALOG words. It
seems to work ok, but I can't figure out how to get it to open in a
default directory other then C:\.

The code I'm using is:

.

>From gene_at_tekdata.com Mon Nov 8 16:01:36 1999
To: sftalk_at_forth.com
Message-Id: <m0000610_at_gerd.forthinc.com>
Date: Mon, 8 Nov 1999 16:01:36 -0600
From: "Gene LeFave" <gene_at_tekdata.com>
Subject: OFN-DIALOG

Oops, I was too fast on the trigger, here is my open file dialog:

Gene

256 BUFFER: IRLFILE
OFN-DIALOG SUBCLASS CHOOSE-FILE-DIALOG
        CREATE IRL-FILES
                ,Z" IRL files (*.IRL)" ,Z" *.IRL"
                0 ,

        : CUSTOM ( --title filter flags)
             Z" Choose IRL file" IRL-FILES
             OFN_HIDEREADONLY
             OFN_LONGNAMES OR
             OFN_FILEMUSTEXIST OR
             OFN_NOCHANGEDIR OR ;
END-CLASS

: CHOOSE-FILE ( --)
   [OBJECTS
       CHOOSE-FILE-DIALOG MAKES CFD
    OBJECTS]
    CFD CHOOSE IF
    CFD FILENAME ZCOUNT IRLFILE PLACE
      ELSE 0 IRLFILE ! THEN ;

.
Received on Fri Nov 05 1999 - 13:08:18 PST