OpenEuphoria

Re: Win32Lib: IDE - new version

• Posted by Dan B Moyer <DANMOYER at PRODIGY.NET> Oct 05, 2000
• 653 views

OOPS!  :(

Forgot:

Also, in Ide_edit.ew,
after all 4 instances of "onClick[Menuxxx]..." (delete, copy, etc),
ADD:
onClick[PopUp_xxx]...",
each sending to the *same* routine as "onClick[Menuxxx]..."

in order to cause each to actually be done.

in other words:

--* added :

onClick[MenuCut]=routine_id("onClick_MenuCut")
--* added:
onClick[PopUp_Cut]=routine_id("onClick_MenuCut")

onClick[MenuCopy]=routine_id("onClick_MenuCopy")
--* added:

--* added:

Dan

----- Original Message -----
From: "Dan B Moyer" <DANMOYER at prodigy.net>
To: "Euphoria Programming for MS-DOS" <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Thursday, October 05, 2000 7:45 AM
Subject: Re: Win32Lib: IDE - new version


> Judith,
>
> Dunno if you've already done it or not, but in case you didn't & are
> interested, I made the cut'n paste in your IDE work from right mouse click
> ('cause that's how I like to use it);  here's what I did:
>
> in Ide_code.ew,
> after
>     setCheck( CodeWinRuler, 1 )
>
> I added:
> --* create a popup menu for editing in code window:
> global constant
> EditPopup  = create( Popup, "", CodeWin, 0, 0, 0, 0, 0 ),
> PopUp_Delete = create( MenuItem, "Delete", EditPopup, 0, 0, 0, 0, 0 ),
> PopUp_Cut    = create( MenuItem, "Cut", EditPopup, 0, 0, 0, 0, 0 ),
> PopUp_Copy   = create( MenuItem, "Copy", EditPopup, 0, 0, 0, 0, 0 ),
> PopUp_Paste  = create( MenuItem, "Paste", EditPopup, 0, 0, 0, 0, 0 )
>
> ----------------------------------------------
> then, in Ide_edit.ew,
> at the very end of the procedure Editor_Mouse,
> before end if,
> I added:
>
> --* right mouse click brings up popup menu for editing:
>     elsif event = RightDown then
>
>  if anchorOn = False then
>       setEnable( PopUp_Delete, 0 )
>       setEnable( PopUp_Cut, 0 )
>       setEnable( PopUp_Copy, 0 )
>  else
>       setEnable( PopUp_Delete, 1 )
>       setEnable( PopUp_Cut, 1 )
>       setEnable( PopUp_Copy, 1 )
>       setEnable( PopUp_Paste, 1 )
>  end if
>         popup( EditPopup, x, y )
> -----------------------------------------------------------------
>
> What I haven't looked at yet is making the Paste work to *replace*
selected
> text instead of *adding* it at the "anchor point".
>
> Dan
>
>
>
>