From 76628025cfe09819a66b93ccaaa62925ebd63fe0 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 16 Nov 2006 11:22:31 +0000
Subject: Added example

---
 ChangeLog        |  4 ++++
 doc/labelframe.n | 43 ++++++++++++++++++++++++++++++++++++++++---
 2 files changed, 44 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b15566b..ab7aa9d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-16  Donal K. Fellows  <dkf@users.sf.net>
+
+	* doc/labelframe.n: Added an example.
+
 2006-11-15  Donal K. Fellows  <dkf@users.sf.net>
 
 	* doc/label.n: Added an example and some See Also refs.
diff --git a/doc/labelframe.n b/doc/labelframe.n
index 7a5c6ec..fb3ea2f 100644
--- a/doc/labelframe.n
+++ b/doc/labelframe.n
@@ -6,7 +6,7 @@
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
 '\"
-'\" RCS: @(#) $Id: labelframe.n,v 1.1 2001/09/26 21:36:19 pspjuth Exp $
+'\" RCS: @(#) $Id: labelframe.n,v 1.2 2006/11/16 11:22:32 dkf Exp $
 '\" 
 .so man.macros
 .TH labelframe n 8.4 Tk "Tk Built-In Commands"
@@ -134,14 +134,51 @@ modifies the given widget option(s) to have the given value(s);  in
 this case the command returns an empty string.
 \fIOption\fR may have any of the values accepted by the \fBlabelframe\fR
 command.
-
 .SH BINDINGS
 .PP
 When a new labelframe is created, it has no default event bindings:
 labelframes are not intended to be interactive.
+.SH EXAMPLE
+This shows how to build part of a GUI for a hamburger vendor. The
+\fBlabelframe\fR widgets are used to organize the available choices by
+the kinds of things that the choices are being made over.
+.PP
+.CS
+grid [\fBlabelframe\fR .burger -text "Burger"] \\
+     [\fBlabelframe\fR .bun    -text "Bun"] -sticky news
+grid [\fBlabelframe\fR .cheese -text "Cheese Option"] \\
+     [\fBlabelframe\fR .pickle -text "Pickle Option"] -sticky news
+foreach {type name val} {
+    burger Beef    beef
+    burger Lamb    lamb
+    burger Vegetarian beans
+
+    bun    Plain   white
+    bun    Sesame  seeds
+    bun    Wholemeal brown
 
+    cheese None    none
+    cheese Cheddar cheddar
+    cheese Edam    edam
+    cheese Brie    brie
+    cheese Gruy\\u00e8re gruyere
+    cheese "Monterey Jack" jack
+
+    pickle None    none
+    pickle Gherkins gherkins
+    pickle Onions  onion
+    pickle Chili   chili
+} {
+    set w [radiobutton .$type.$val -text $name -anchor w \\
+            -variable $type -value $val]
+    pack $w -side top -fill x
+}
+set burger beef
+set bun    white
+set cheese none
+set pickle none
+.CE
 .SH "SEE ALSO"
 frame(n), label(n)
-
 .SH KEYWORDS
 labelframe, widget
-- 
cgit v0.12