#acupoftea - mail.ontime-ae.com

System	:	Linux server1.ontime-gulf.com 4.18.0-553.5.1.el8_10.x86_64 #1 SMP Wed Jun 5 09:12:13 EDT 2024 x86_64
Software	:	Apache
Server	:	162.0.230.206
Domains	:	40 Domain
Permission	:	[ drwxr-xr-x ]
	:	/ usr / share / tk8.6 / ttk /

216.73.216.49

Home

File cursors.tcl

#
# Map symbolic cursor names to platform-appropriate cursors.
#
# The following cursors are defined:
#
#	standard	-- default cursor for most controls
#	""		-- inherit cursor from parent window
#	none		-- no cursor
#
#	text		-- editable widgets (entry, text)
#	link		-- hyperlinks within text
#	crosshair	-- graphic selection, fine control
#	busy		-- operation in progress
#	forbidden	-- action not allowed
#
#	hresize		-- horizontal resizing
#	vresize		-- vertical resizing
#
# Also resize cursors for each of the compass points,
# {nw,n,ne,w,e,sw,s,se}resize.
#
# Platform notes:
#
# Windows doesn't distinguish resizing at the 8 compass points,
# only horizontal, vertical, and the two diagonals.
#
# OSX doesn't have resize cursors for nw, ne, sw, or se corners.
# We use the Tk-defined X11 fallbacks for these.
#
# X11 doesn't have a "forbidden" cursor (usually a slashed circle);
# "pirate" seems to be the conventional cursor for this purpose.
#
# Windows has an IDC_HELP cursor, but it's not available from Tk.
#
# Tk does not support "none" on Windows.
#

namespace eval ttk {

variable Cursors

# Use X11 cursor names as defaults, since Tk supplies these
    # on all platforms.
    #
    array set Cursors {
	""		""
	none		none

standard	left_ptr
	text 		xterm
	link		hand2
	crosshair	crosshair
	busy		watch
	forbidden	pirate

hresize 	sb_h_double_arrow
	vresize 	sb_v_double_arrow

nresize 	top_side
	sresize 	bottom_side
	wresize 	left_side
	eresize 	right_side
	nwresize	top_left_corner
	neresize	top_right_corner
	swresize	bottom_left_corner
	seresize	bottom_right_corner
	move		fleur

}

# Platform-specific overrides for Windows and OSX.
    #
    switch [tk windowingsystem] {
	"win32" {
	    array set Cursors {
		none		{}

standard	arrow
		text		ibeam
		link		hand2
		crosshair	crosshair
		busy		wait
		forbidden	no

vresize 	size_ns
		nresize 	size_ns
		sresize		size_ns

wresize		size_we
		eresize		size_we
		hresize 	size_we

nwresize	size_nw_se
		swresize	size_ne_sw

neresize	size_ne_sw
		seresize	size_nw_se
	    }
	}

"aqua" {
	    if {[package vsatisfies [package provide Tk] 8.5]} {
		# appeared 2007-04-23, Tk 8.5a6
		array set Cursors {
		    standard	arrow
		    text 	ibeam
		    link	pointinghand
		    crosshair	crosshair
		    busy	watch
		    forbidden	notallowed

hresize 	resizeleftright
		    vresize 	resizeupdown
		    nresize	resizeup
		    sresize	resizedown
		    wresize	resizeleft
		    eresize	resizeright
		}
	    }
	}
    }
}

## ttk::cursor $cursor --
#	Return platform-specific cursor for specified symbolic cursor.
#
proc ttk::cursor {name} {
    variable Cursors
    return $Cursors($name)
}

## ttk::setCursor $w $cursor --
#	Set the cursor for specified window.
#
# [ttk::setCursor] should be used in <Motion> bindings
# instead of directly calling [$w configure -cursor ...],
# as the latter always incurs a server round-trip and
# can lead to high CPU load (see [#1184746])
#

proc ttk::setCursor {w name} {
    variable Cursors
    if {[$w cget -cursor] ne $Cursors($name)} {
	$w configure -cursor $Cursors($name)
    }
}

## Interactive test harness:
#
proc ttk::CursorSampler {f} {
    ttk::frame $f

set r 0
    foreach row {
	{nwresize nresize   neresize}
	{ wresize move       eresize}
	{swresize sresize   seresize}
	{text link crosshair}
	{hresize vresize ""}
	{busy forbidden ""}
	{none standard ""}
    } {
	set c 0
	foreach cursor $row {
	    set w $f.${r}${c}
	    ttk::label $w -text $cursor -cursor [ttk::cursor $cursor] \
		-relief solid -borderwidth 1 -padding 3
	    grid $w -row $r -column $c -sticky nswe
	    grid columnconfigure $f $c -uniform cols -weight 1
	    incr c
	}
	grid rowconfigure $f $r -uniform rows -weight 1
	incr r
    }

return $f
}

if {[info exists argv0] && $argv0 eq [info script]} {
    wm title . "[array size ::ttk::Cursors] cursors"
    pack [ttk::CursorSampler .f] -expand true -fill both
    bind . <KeyPress-Escape> [list destroy .]
    focus .f
}

#*EOF*

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2024-03-13 04:40:23
..	DIR	-	drwxr-xr-x	2024-03-13 04:40:23
altTheme.tcl	text/plain	3.46 KB	-rw-r--r--	2019-10-16 05:25:10
aquaTheme.tcl	text/plain	1.95 KB	-rw-r--r--	2019-10-16 05:25:10
button.tcl	text/plain	2.91 KB	-rw-r--r--	2019-10-16 05:25:10
clamTheme.tcl	text/plain	4.49 KB	-rw-r--r--	2019-10-16 05:25:10
classicTheme.tcl	text/plain	3.6 KB	-rw-r--r--	2019-10-16 05:25:10
combobox.tcl	text/plain	12.13 KB	-rw-r--r--	2019-10-16 05:25:10
cursors.tcl	text/plain	3.91 KB	-rw-r--r--	2019-10-16 05:25:10
defaults.tcl	text/plain	4.25 KB	-rw-r--r--	2019-10-16 05:25:10
entry.tcl	text/plain	16.01 KB	-rw-r--r--	2019-10-16 05:25:10
fonts.tcl	text/plain	5.45 KB	-rw-r--r--	2019-10-16 05:25:10
menubutton.tcl	text/plain	4.8 KB	-rw-r--r--	2019-10-16 05:25:10
notebook.tcl	text/plain	5.49 KB	-rw-r--r--	2019-10-16 05:25:10
panedwindow.tcl	text/plain	1.88 KB	-rw-r--r--	2019-10-16 05:25:10
progress.tcl	text/plain	1.06 KB	-rw-r--r--	2019-10-16 05:25:10
scale.tcl	text/plain	2.63 KB	-rw-r--r--	2019-10-16 05:25:10
scrollbar.tcl	text/plain	3.02 KB	-rw-r--r--	2019-10-16 05:25:10
sizegrip.tcl	text/plain	2.34 KB	-rw-r--r--	2019-10-16 05:25:10
spinbox.tcl	text/plain	4.16 KB	-rw-r--r--	2019-10-16 05:25:10
treeview.tcl	text/plain	8.65 KB	-rw-r--r--	2019-10-16 05:25:10
ttk.tcl	text/plain	4.44 KB	-rw-r--r--	2019-10-16 05:25:10
utils.tcl	text/plain	8.36 KB	-rw-r--r--	2019-10-16 05:25:10
vistaTheme.tcl	text/plain	9.12 KB	-rw-r--r--	2019-10-16 05:25:10
winTheme.tcl	text/plain	2.58 KB	-rw-r--r--	2019-10-16 05:25:10
xpTheme.tcl	text/plain	1.88 KB	-rw-r--r--	2019-10-16 05:25:10

~ ACUPOFTEA - mail.ontime-ae.com