gaiser.org - c99shell

!C99Shell v. 1.0 pre-release build #13!
Software: Apache/2.0.54 (Unix) mod_perl/1.99_09 Perl/v5.8.0 mod_ssl/2.0.54 OpenSSL/0.9.7l DAV/2 FrontPage/5.0.2.2635 PHP/4.4.0 mod_gzip/2.0.26.1a uname -a: Linux snow.he.net 4.4.276-v2-mono-1 #1 SMP Wed Jul 21 11:21:17 PDT 2021 i686 uid=99(nobody) gid=98(nobody) groups=98(nobody) Safe-mode: OFF (not secure) /usr/lib/tix8.1/demos/ drwxr-xr-x Free 318.33 GB of 458.09 GB (69.49%) Encoder Tools Proc. FTP brute Sec. SQL PHP-code Update Feedback Self remove Logout


# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#    $Id: MkDirLis.tcl,v 1.1.1.1.2.1 2001/11/04 05:10:08 idiscovery 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
}

:: Command execute ::
Enter:	Select: