#!./mofeperl

&wafe_cmd(<<'__');
mergeResources topLevel \
        *background gray80

mRowColumn rc topLevel
mToggleButton toggle1 rc labelString "toggle me"
mToggleButton toggle2 rc labelString "me too"
mPushButton b rc labelString Quit activateCallback quit

realize
__

# &wafe_set('LABEL', 'something that [Tcl] does not "really" $$Like$${{{');
# &wafe_cmd("sV toggle2 labelString [set LABEL]");
# &wafe_cmd('realize');

# calling the xt event loop
&wafe_process_events();



