From 34265ee069c1cb3edeaf7d6bf42d69f0ddaa92ad Mon Sep 17 00:00:00 2001
From: dkf <dkf@noemail.net>
Date: Tue, 25 May 2004 15:30:18 +0000
Subject: Add example

FossilOrigin-Name: 8fc77935f6063421649a7bb2ae01742bba7d7ec2
---
 doc/registry.n | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/doc/registry.n b/doc/registry.n
index 8d1352b..879fc32 100644
--- a/doc/registry.n
+++ b/doc/registry.n
@@ -5,7 +5,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-'\" RCS: @(#) $Id: registry.n,v 1.9 2004/03/03 23:58:14 hobbs Exp $
+'\" RCS: @(#) $Id: registry.n,v 1.10 2004/05/25 15:30:19 dkf Exp $
 '\" 
 .so man.macros
 .TH registry n 1.1 registry "Tcl Bundled Packages"
@@ -179,9 +179,24 @@ In addition to the symbolically named types listed above, unknown
 types are identified using a 32-bit integer that corresponds to the
 type code returned by the system interfaces.  In this case, the data
 is represented exactly in Tcl, including any embedded nulls.
-
 .SH "PORTABILITY ISSUES"
 The registry command is only available on Windows.
+.SH EXAMPLE
+Print out how double-clicking on a Tcl script file will invoke a Tcl
+interpreter:
+.CS
+package require registry
+set ext .tcl
+
+# Read the type name
+set type [registry get HKEY_CLASSES_ROOT\e\e$ext {}]
+# Work out where to look for the command
+set path HKEY_CLASSES_ROOT\e\e$type\e\eShell\e\eOpen\e\ecommand
+# Read the command!
+set command [registry get $path {}]
+
+puts "$ext opens with $command"
+.CE
 
 .SH KEYWORDS
 registry
-- 
cgit v0.12