HI Carl,
I took the IMDD example that ships with C8. Plain Vanilla with only the IMDD extension. I created a new window with a string Entry field and the DropID. I get the + when I drop over the entry field but the embeds do not trigger!
THisstring STRING(240) !
QuickWindow WINDOW(‘Window’),AT(,260,235),FONT(‘Microsoft Sans Serif’,8,FONT:regular,CHARSET:DEFAULT), |
RESIZE,CENTER,GRAY,HLP(‘new_window’)
BUTTON(’&OK’),AT(100,180,49,14),USE(?Ok),LEFT,ICON(‘WAOK.ICO’),FLAT,MSG(‘Accept operation’), |
TIP(‘Accept Operation’)
BUTTON(’&Cancel’),AT(162,180,49,14),USE(?Cancel),LEFT,ICON(‘WACANCEL.ICO’),FLAT,MSG(‘Cancel Operation’), |
TIP(‘Cancel Operation’)
BUTTON(’&Help’),AT(209,180,49,14),USE(?Help),LEFT,ICON(‘WAHELP.ICO’),FLAT,MSG(‘See Help Window’), |
STD(STD:Help),TIP(‘See Help Window’)
PROMPT(‘TH isstring:’),AT(64,129),USE(?THisstring:Prompt)
ENTRY(@s240),AT(114,128,60,10),USE(THisstring),DROPID(’~FILE’,’~TEXT’)
END
ThisWindow CLASS(WindowManager)
Init PROCEDURE(),BYTE,PROC,DERIVED
Kill PROCEDURE(),BYTE,PROC,DERIVED
TakeFieldEvent PROCEDURE(),BYTE,PROC,DERIVED
END
ThisWindow.TakeFieldEvent PROCEDURE
ReturnValue BYTE,AUTO
Looped BYTE
CODE
LOOP ! This method receives all field specific events
IF Looped
RETURN Level:Notify
ELSE
Looped = 1
END
ReturnValue = PARENT.TakeFieldEvent()
CASE FIELD()
OF ?THisstring
CASE EVENT()
OF EVENT:Drop
THisstring=DropID()
DISPLAY
Message('Event Drop ENT = ’ & DropID() )
END
END
RETURN ReturnValue
END
ReturnValue = Level:Fatal
RETURN ReturnValue
Plain and simple - but just does not trigger the embed code!
Ron