view release on metacpan or  search on metacpan

demos/biglist.tcl  view on Meta::CPAN

	if {$::thisPlatform ne "windows"} {
	    set message [string map {\n ""} $message]
	}
	$::buttonCmd $w.b3 -text "Anal Probe Wizard..." -command [list tk_messageBox \
	    -parent . -message $message -title "Anal Probe 2.0"]

	grid $w.label1 -row 0 -column 0 -sticky w -padx {0 8}
	grid $w.entry1 -row 0 -column 1 -sticky w -pady 4
	grid $w.label2 -row 1 -column 0 -sticky w -padx {0 8}
	grid $w.mb2 -row 1 -column 1 -sticky w -pady 4
	grid $w.b3 -row 3 -column 0 -columnspan 2 -sticky we -pady {0 4}

	AddBindTag $w DemoBigListChildWindow
	AddBindTag $w TagIdentify

	if {$Priv(noise)} { dbwin "create window $w" }
    }

    # Tie the widgets to the global variables for this citizen
    $w.entry1 configure -textvariable ::DemoBigList::Priv(name,$I)
    $w.mb2 configure -textvariable ::DemoBigList::Priv(threat,$I)

demos/inspector.tcl  view on Meta::CPAN

    #

    panedwindow $w.splitterV -orient vertical
    TreePlusScrollbarsInAFrame $w.splitterV.f1 1 1
set f $w.splitterV.f1
grid rowconfigure $f 0 -weight 0
grid rowconfigure $f 1 -weight 1
grid configure $f.sh -row 2
grid configure $f.t -row 1
grid configure $f.sv -row 1
grid [label $f.label -text "Headers" -bg {light blue}] -row 0 -column 0 -columnspan 2 -sticky we
    $w.splitterV add $w.splitterV.f1

    set T $w.splitterV.f1.t
    $T configure -showroot no
    $T element create e1 text -fill [list $::SystemHighlightText {selected focus}]
    $T element create e2 rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] \
	-showfocus yes
    $T style create s1
    $T style elements s1 {e2 e1}
    # Tk listbox has linespace + 1 height

demos/inspector.tcl  view on Meta::CPAN

    # Sub-Instance
    #

    TreePlusScrollbarsInAFrame $w.splitterV.f2 1 1
set f $w.splitterV.f2
grid rowconfigure $f 0 -weight 0
grid rowconfigure $f 1 -weight 1
grid configure $f.sh -row 2
grid configure $f.t -row 1
grid configure $f.sv -row 1
grid [label $f.label -text "Header columns" -bg {light blue}] -row 0 -column 0 -columnspan 2 -sticky we
    $w.splitterV add $w.splitterV.f2

    set T $w.splitterV.f2.t
    $T configure -showroot no
    $T element create e1 text -fill [list $::SystemHighlightText {selected focus}]
    $T element create e2 rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] \
	-showfocus yes
    $T style create s1
    $T style elements s1 {e2 e1}
    # Tk listbox has linespace + 1 height