// // DoubleClickDemo.vdm Christian Ziemski 05.02.2003 // // // Simply execute this macro and then double-click on parts of text... // Reg_Set(116,% if(At_EoF || (CC==13) || (CC==32 && CC(+1)==32)){ // try to check if on text, NOT PERFECT! Reg_Set(99, "==No word found==") }else{ BB(CLEAR) Mark_Word() Update Reg_Copy_Block(99, BB, BE) } Dialog_Input_1(1,"`DoubleClickDemo`, `The word found is:`, `|@(99)`", WORKAREA+CENTER,0,0) %)