OpenEuphoria

Re: w32engin does not detect clicks when button is within a group box

• Posted by BRyan Apr 26, 2015
• 1476 views

-- Around line number 20095 in w32engin.ew 
-- 
-- CHANGE THIS LINE BELOW 
-- {"BUTTON",   #50000007,#00000000}, -- Group 
-- 
-- CHANGE THIS TO READ AS FOLLOWS 
-- {"BUTTON",   #50002007,#00000000}, -- Group 
-- 
-- 
-- Use without warning to eliminate not used warning message 
-- for Group because it is a static control. 
without warning 
 
 
include w32engin.ew 
 
constant 
-- 
  Win = create( Window, "myApp", 0, Default, Default, 300, 200, 0 ), 
 
  Group = create( Group, "myGroup", Win, 8, 8, 260, 140, 0 ), 
 
  btnKO= create( PushButton, "KO",  Win, 32, 32, 88, 32, 0 ), 
 
  btnOK= create( PushButton, "OK",  Win, 32, 72, 88, 32, 0 ) 
 
atom result 
 
  procedure btnKO_onClick(sequence p) 
    p = p -- use p to elimation not used warning 
    result = message_box( "Button KO clicked", "KO MESSAGE", 0 ) 
  end procedure 
  onClick[ btnKO ] = routine_id("btnKO_onClick") 
 
  procedure btnOK_onClick(sequence p) 
    p = p -- use p to elimation not used warning 
    result = message_box( "Button OK clicked", "OK MESSAGE", 0 ) 
  end procedure 
  onClick[ btnOK ] = routine_id("btnOK_onClick") 
 
  WinMain( Win, Normal )