Import build of Tcl/Tk 8.6.8

amd64/lib/tix8.4.3/demos/MkDirLis.tcl

@@ -0,0 +1,69 @@
+# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
+#
+#	$Id: MkDirLis.tcl,v 1.4 2004/03/28 02:44:56 hobbs Exp $
+#
+# MkDirLis.tcl --
+#
+#	This file implements the "Directory List" page in the widget demo
+#
+#	This file has not been properly documented. It is NOT intended
+#	to be used as an introductory demo program about Tix
+#	programming. For such demos, please see the files in the
+#	demos/samples directory or go to the "Samples" page in the
+#	"widget demo"
+#
+#
+# Copyright (c) 1996, Expert Interface Technologies
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+#
+
+proc MkDirList {nb page} {
+    set w [$nb subwidget $page]
+
+    set name [tixOptionName $w]
+    option add *$name*TixLabelFrame*label.padX 4
+
+    tixLabelFrame $w.dir  -label "tixDirList"
+    tixLabelFrame $w.fsbox -label "tixExFileSelectBox"
+    MkDirListWidget [$w.dir subwidget frame]
+    MkExFileWidget  [$w.fsbox subwidget frame]
+
+    tixForm $w.dir  -top 0 -left 0 -right %40 -bottom -1
+    tixForm $w.fsbox -top 0 -left %40 -right -1 -bottom -1
+}
+
+proc MkDirListWidget {w} {
+    set name [tixOptionName $w]
+
+    message $w.msg \
+	-relief flat -width 240 -anchor n\
+	-text "The TixDirList widget gives a graphical representation of\
+		the file system directory and makes it easy for the user\
+		to choose and access directories."
+
+    tixDirList $w.dirlist -options {
+	hlist.padY 1
+	hlist.width 25
+	hlist.height 16
+    }
+
+    pack $w.msg     -side top -expand yes -fill both -padx 3 -pady 3
+    pack $w.dirlist -side top  -padx 3 -pady 3
+}
+
+proc MkExFileWidget {w} {
+    set name [tixOptionName $w]
+
+    message $w.msg \
+	-relief flat -width 240 -anchor n\
+	-text {The TixExFileSelectBox widget is more user friendly \
+		   than the Motif style FileSelectBox.}
+
+    tixExFileSelectBox $w.exfsbox -bd 2 -relief raised
+
+    pack $w.msg    -side top -expand yes -fill both -padx 3 -pady 3
+    pack $w.exfsbox -side top  -padx 3 -pady 3
+}
+