Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: |
Timelines: |
family
| ancestors
| descendants
| both
| trunk
|
Files: |
files
| file ages
| folders
|
SHA1: |
a54f5fbc36c68d69b485bc4c0f0b90460fd1ed96 |
User & Date: |
kevin
2018-02-24 22:28:35 |
Context
2018-02-24
| | |
23:16 |
|
check-in: ab476807e5 user: kevin tags: trunk
|
22:28 |
|
check-in: a54f5fbc36 user: kevin tags: trunk
|
22:25 |
|
check-in: 22d31afe7c user: kevin tags: trunk
|
| | |
Changes
Deleted 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 *
}
|
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
|
|
|
Deleted maclibs/fullscreen1.2/libfullscreen1.2.dylib.
cannot compute difference between binary files
Deleted 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]]"
|
<
<
<
<
<
<
<
|
|
|