Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * scripts/mwutil.tcl: Updated. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: | 2788da0211457d7d4aeb8773d748412f2511b2e74ea8158177bea93b17de9d86 |
| User & Date: | csaba 2020-06-23 09:54:45 |
Context
|
2020-06-23
| ||
| 09:55 | * scripts/scaleutil.tcl: New file containing scaling-related stuff: getting the display's DPI scaling percentage; scaling the default width of the Tk core scrollbars on X11, the default width of the ttk::scrollbar widget in a few built-in themes, the arrows of the ttk::combobox, ttk::spinbox, and ttk::menubutton widgets, and the indicators of the ttk::checkbutton and ttk::radiobutton widgets; a workaround for a long-standing scaling-related bug in the implementation of the ttk::checkbutton and ttk::radiobutton widgets in the "vista" and "xpnative" themes. check-in: 7b9cee071f user: csaba tags: trunk | |
| 09:54 | * scripts/mwutil.tcl: Updated. check-in: 2788da0211 user: csaba tags: trunk | |
| 09:52 | * CHANGES.txt: Updated to reflect the changes. * doc/*.html: check-in: 014399cfac user: csaba tags: trunk | |
Changes
Changes to modules/scrollutil/scripts/mwutil.tcl.
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
...
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
|
# ========================
#
namespace eval mwutil {
#
# Public variables:
#
variable version 2.15
variable library
if {$::tcl_version >= 8.4} {
set library [file dirname [file normalize [info script]]]
} else {
set library [file dirname [info script]] ;# no "file normalize" yet
}
................................................................................
focus $focusWin
}
}
#------------------------------------------------------------------------------
# mwutil::windowingSystem
#
# Returns the current windowing system ("x11", "win32", "classic", or "aqua").
#------------------------------------------------------------------------------
proc mwutil::windowingSystem {} {
if {[catch {tk windowingsystem} winSys] != 0} {
switch $::tcl_platform(platform) {
unix { set winSys x11 }
windows { set winSys win32 }
macintosh { set winSys classic }
|
|
|
|
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
...
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
|
# ========================
#
namespace eval mwutil {
#
# Public variables:
#
variable version 2.16
variable library
if {$::tcl_version >= 8.4} {
set library [file dirname [file normalize [info script]]]
} else {
set library [file dirname [info script]] ;# no "file normalize" yet
}
................................................................................
focus $focusWin
}
}
#------------------------------------------------------------------------------
# mwutil::windowingSystem
#
# Returns the windowing system ("x11", "win32", "classic", or "aqua").
#------------------------------------------------------------------------------
proc mwutil::windowingSystem {} {
if {[catch {tk windowingsystem} winSys] != 0} {
switch $::tcl_platform(platform) {
unix { set winSys x11 }
windows { set winSys win32 }
macintosh { set winSys classic }
|