on *:Dialog:Toolbartest:init:*: {
  dcx Mark $dname tb_dcx_call
  xdialog -c $dname 100 toolbar 1 1 100 100 flat tooltip arrows top
  xdid -l $dname 100
  xdid -w $dname 100 +n 1 system\images\eicons.icl
  xdid -a $dname 100 0 +a 0 1 0 $chr(9) Button 1
}