Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add fullscreen bits |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d5e76360d546162aecbbe4e1d918399e |
| User & Date: | kevin 2017-04-25 03:02:49 |
Context
|
2017-06-21
| ||
| 03:51 | Tweak to regproc check-in: 533d0d077f user: kevin tags: trunk | |
|
2017-04-25
| ||
| 03:02 | Add fullscreen bits check-in: d5e76360d5 user: kevin tags: trunk | |
| 03:01 | Update fullscreen library check-in: 59924e6214 user: kevin tags: trunk | |
Changes
Added maclibs/fullscreen1.2/fullscreen.tcl.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 |
#fullscreen: provides Cocoa-native fullscreen windows for Tk apps on OS X in a manner consistent with wm attributes api's.
namespace eval fullscreen {
if {![info exists library]} {
variable library [file dirname [info script]]
}
load [file join $library libfullscreen1.2.dylib]
image create photo _resize -data {
R0lGODlhEAAQAIABALm5uf///yH5BAEKAAEALAAAAAAQABAAAAIhjI+gim3LXIMy
0RpglBfghU1h5o3kNnkXp4Wtu1ZaaZoFADs=
}
proc fullscreen {windowname} {
variable w
set w $windowname
fullscreen::addfullscreenbutton $w
}
proc togglefullscreen {} {
variable w
if {[wm attributes $w -fullscreen] == 1} {
fullscreen::restorewindow
} else {
fullscreen::makefullscreen
}
fullscreen::fullscreen $w
}
proc makefullscreen {} {
variable originalsize
variable title
variable w
set originalsize [wm geometry $w]
set title [wm title $w]
wm withdraw $w
wm attributes $w -fullscreen 1
set m [$w cget -menu]
menu $m._resize
$m add cascade -image _resize -menu $m._resize
$m._resize add command -label "Restore Normal Window" -command fullscreen::restorewindow
wm deiconify $w
}
proc restorewindow {} {
variable originalsize
variable w
variable title
set m [$w cget -menu]
$m delete end
destroy $m._resize
wm attributes $w -fullscreen 0
wm geometry . $originalsize
wm title $w $title
}
bind all <<ToggleFullScreen>> fullscreen::togglefullscreen
namespace export *
}
|
Added maclibs/fullscreen1.2/libfullscreen1.2.dylib.
cannot compute difference between binary files
Added maclibs/fullscreen1.2/pkgIndex.tcl.
> > > > > > > | 1 2 3 4 5 6 7 |
#
# Tcl package index file
#
package ifneeded fullscreen 1.2 "
package require Tk 8.5-
if {\"AppKit\" ni \[winfo server .\]} {error {TkAqua Cocoa required}}
source [list [file join $dir fullscreen.tcl]]"
|