head	1.4;
access;
symbols
	iwidgets-4-0-1:1.4
	iwidgets-4-0-0:1.4
	iwidgets_overhaul:1.1.0.2;
locks; strict;
comment	@# @;


1.4
date	2001.09.07.15.24.02;	author smithc;	state Exp;
branches;
next	1.3;

1.3
date	2001.08.20.19.10.08;	author smithc;	state Exp;
branches;
next	1.2;

1.2
date	2001.08.07.19.56.47;	author smithc;	state Exp;
branches;
next	1.1;

1.1
date	2001.08.07.19.22.50;	author smithc;	state dead;
branches
	1.1.2.1;
next	;

1.1.2.1
date	2001.08.07.19.22.50;	author smithc;	state Exp;
branches;
next	;


desc
@@


1.4
log
@Found this on Windows while testing ticket #227914.  Modified the extbutton
demo slightly by using $iwidgets::library instead of $itk::library.
@
text
@# ----------------------------------------------------------------------
#  DEMO: extbutton in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0

iwidgets::extbutton .eb1 -text "Bitmap example" -bitmap info \
  -background bisque -activeforeground red -bitmapforeground blue \
  -defaultring 1 -command {puts "Bisque is beautiful"}

iwidgets::extbutton .eb2 -text "Image example" -bd 3 -image \
  [image create photo -file $iwidgets::library/demos/images/clear.gif] \
  -font 9x15bold -background lightgreen -imagepos e \
  -activebackground lightyellow

pack .eb1 .eb2 -pady 8
@


1.3
log
@Updating demos for Iwidgets4.0.0 release.
@
text
@d11 1
a11 1
  [image create photo -file $itk::library/../iwidgets/demos/images/clear.gif] \
@


1.2
log
@Merging iwidgets_overhaul branch to CVS head.
@
text
@d4 1
a4 2
package require Iwidgets 3.0
wm geometry . 420x120
a5 3
#
# Demo script for Extbutton class
#
d15 1
a15 1
pack .eb1 .eb2 -side left -expand 1
@


1.1
log
@file extbutton was initially added on branch iwidgets_overhaul.
@
text
@d1 19
@


1.1.2.1
log
@Demo for new iwidget.
@
text
@a0 19
# ----------------------------------------------------------------------
#  DEMO: extbutton in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 3.0
wm geometry . 420x120

#
# Demo script for Extbutton class
#
iwidgets::extbutton .eb1 -text "Bitmap example" -bitmap info \
  -background bisque -activeforeground red -bitmapforeground blue \
  -defaultring 1 -command {puts "Bisque is beautiful"}

iwidgets::extbutton .eb2 -text "Image example" -bd 3 -image \
  [image create photo -file $itk::library/../iwidgets/demos/images/clear.gif] \
  -font 9x15bold -background lightgreen -imagepos e \
  -activebackground lightyellow

pack .eb1 .eb2 -side left -expand 1
@

