[Hwgui-developers] rollup (ownerbutton)

[ATZCT <at...@ob...>]

#include "windows.ch"
#include "guilib.ch"

func main()
local w0
Local fnt1 := HFont():Add( "Verdana", 0, -12, , 1 )
Local fnt2 := HFont():Add( "lucida console", 0, -12, , 1 )
init window w0 Main title "browse & combo test" at 0,0 size 400,300
@20,20 OwnerButton text "jump font 1" size 100,70 On click {||nil} font 
fnt1 flat
@20,120 OwnerButton text "jump font 2" size 100,70 On click {||nil} font 
fnt2 flat
w0:activate()
return nil

Rollup observed, after mouse pointer directed on ownerbutton.

Best regards,
Alexey Myronenko