#!/bin/sh
# ----------------------------------------------------------------------
#  DEMO: fontconfig in [incr Widgets]
# ----------------------------------------------------------------------
#\
exec itkwish "$0" ${1+"$@"}
package require Iwidgets 3.0
source load.tcl

#
# Demo script for Fontconfig class
#
font create f1 -family courier
iwidgets::fontconfig .fc

button .a -text config -font f1 -command { .fc activate f1 "Font of button:" }
pack .a

