Import build of Tcl/Tk 8.6.8

2018-02-22 22:59:06 +00:00
parent f62dd320ed
commit 4ee57ea08c
2576 changed files with 365752 additions and 0 deletions
--- a/amd64/lib/tix8.4.3/OldUtil.tcl
+++ b/amd64/lib/tix8.4.3/OldUtil.tcl
@@ -0,0 +1,108 @@
+# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
+#
+#	$Id: OldUtil.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $
+#
+# OldUtil.tcl -
+#
+#	This is an undocumented file.
+#	   Are these features used in Tix : NO.
+#	   Should I use these features    : NO.
+#
+# Copyright (c) 1993-1999 Ioi Kim Lam.
+# Copyright (c) 2000-2001 Tix Project Group.
+# Copyright (c) 2004 ActiveState
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+#
+
+proc setenv {name args} {
+    global env
+
+    if {[llength $args] == 1} {
+        return [set env($name) [lindex $args 0]]
+    } else {
+        if {[info exists env($ename)] == 0} {
+            bgerror "Error in setenv: "
+                    "environment variable \"$name\" does not exist"
+        } else {
+            return $env($name)
+        }
+    }
+}
+#----------------------------------------------------------------------
+#
+#
+#           U T I L I T Y   F U N C T I O N S  F O R   T I X 
+#
+#
+#----------------------------------------------------------------------
+
+# RESET THE STRING IN THE ENTRY
+proc tixSetEntry {entry string} {
+    set oldstate [lindex [$entry config -state] 4]
+    $entry config -state normal
+    $entry delete 0 end
+    $entry insert 0 $string
+    $entry config -state $oldstate
+}
+
+# GET THE FIRST SELECTED ITEM IN A LIST
+proc tixListGetSingle {lst} {
+    set indices [$lst curselection]
+    if {$indices != ""} {
+	return [$lst get [lindex $indices 0]]
+    } else {
+	return ""
+    }
+}
+
+#----------------------------------------------------------------------
+# RECORD A DIALOG'S POSITION AND RESTORE IT THE NEXT TIME IT IS OPENED
+#----------------------------------------------------------------------
+proc tixDialogRestore {w {flag -geometry}} {
+    global tixDPos
+
+    if {[info exists tixDPos($w)]} {
+	if {![winfo ismapped $w]} {
+	    wm geometry $w $tixDPos($w)
+	    wm deiconify $w
+	}
+    } elseif {$flag eq "-geometry"} {
+	update
+	set tixDPos($w) [winfo geometry $w]
+    } else {
+	update
+	set tixDPos($w) +[winfo rootx $w]+[winfo rooty $w]
+    }
+}
+#----------------------------------------------------------------------
+# RECORD A DIALOG'S POSITION AND RESTORE IT THE NEXT TIME IT IS OPENED
+#----------------------------------------------------------------------
+proc tixDialogWithdraw {w {flag -geometry}} {
+    global tixDPos
+
+    if {[winfo ismapped $w]} {
+	if {$flag eq "-geometry"} {
+	    set tixDPos($w) [winfo geometry $w]
+	} else {
+	    set tixDPos($w) +[winfo rootx $w]+[winfo rooty $w]
+	}
+	wm withdraw $w
+    }
+}
+#----------------------------------------------------------------------
+# RECORD A DIALOG'S POSITION AND RESTORE IT THE NEXT TIME IT IS OPENED
+#----------------------------------------------------------------------
+proc tixDialogDestroy {w {flag -geometry}} {
+    global tixDPos
+
+    if {[winfo ismapped $w]} {
+	if {$flag eq "-geometry"} {
+	    set tixDPos($w) [winfo geometry $w]
+	} else {
+	    set tixDPos($w) +[winfo rootx $w]+[winfo rooty $w]
+	}
+    }
+    destroy $w
+}