#! ../mofe --f

mergeResources topLevel \
	*leftAttachment ATTACH_WIDGET \
	*FontList  "-b&h-lucida-medium-r-*-*-14-*-*-*-p-*-iso8859-*=ft,-b&h-lucida-bold-r-*-*-14-*-*-*-p-*-iso8859-*=bft" \
	*background gray90

mRowColumn rc topLevel

mPushButton t rc {
  labelString "^ft Das ist ^bft Spitze^ft !"
  activateCallback {echo <[gV %w labelString]>}
}
mFileSelectionBox fs rc {
  okCallback "echo ok for <%s>"
}
realize

