FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

CLIPBOARD

Handle your own Edit menu


Roll your own edit menu, and use this function to handle it...

CLEAR LOCAL FN handrollededitmenu (itemid)
  AUTOCLIP=0 'autoclip must of off for these to work...
  IF itemid=3 THEN CALL TECUT (WINDOW(_efhandle)) : gdirty=1
  IF itemid=4 THEN CALL TECOPY (WINDOW(_efhandle))
  LONG IF itemid=5
    scrapsize%=FN GETSCRAP (_nil,_"TEXT",offset&)
    LONG IF scrapsize%+WINDOW (_eftextlen)<=32000 'do not exceed 32k
      CALL TESTYLPASTE (WINDOW(_efhandle)) : gdirty=1
    XELSE
      BEEP
    END IF
  END IF
  IF itemid=6 THEN CALL TEDELETE (WINDOW(_efhandle)) : gdirty=1
  IF itemid=8 then SETSELECT 0,_maxint
  AUTOCLIP=1 'if desired...
END FN : REM handrollededitmenu

Bowerbird