Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tweak to regproc |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e216eb7a364ee2b065edaf48f6c5dd2b |
| User & Date: | kevin 2017-06-21 03:52:01 |
Context
|
2018-08-17
| ||
| 02:12 | Start work on version 3.0 check-in: fb8785f34d user: kevin tags: trunk | |
|
2017-06-21
| ||
| 03:52 | Tweak to regproc check-in: e216eb7a36 user: kevin tags: trunk | |
|
2017-04-24
| ||
| 02:47 | Revbump for new release on Mac and Windows check-in: 2f1b1317d4 user: kevin tags: trunk | |
Changes
Changes to filemorph-changes.tcl.
|
| > | < | 1 2 | * Improved scrolling performance, security support on macOS. * Improved security support on Windows. |
Changes to filemorph-version.tcl.
|
| | | 1 | 2.9 |
Deleted maclibs/fullscreen1.1/libfullscreen1.1.dylib.
cannot compute difference between binary files
Deleted maclibs/fullscreen1.1/pkgIndex.tcl.
|
| < < < < < < < |
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]]"
|
Changes to scriptlibs/regproc/regproc.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
#regproc.tcl routines to register serial numbers
#Copyright 2015 WordTech Communications LLC
#MIT license
package provide regproc 1.4
package require http
package require xplat
image create photo _unlock -data {
R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj
ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm
ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85
tKZ5wkMBADs=
}
| > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
#regproc.tcl routines to register serial numbers
#Copyright 2015 WordTech Communications LLC
#MIT license
package provide regproc 1.4
package require http
package require xplat
image create photo _unlock -data {
R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj
ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm
ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85
tKZ5wkMBADs=
}
|
| ︙ | ︙ | |||
134 135 136 137 138 139 140 |
wm deiconify .purchase
focus .purchase.bottom.lower.install
if {[tk windowingsystem] eq "aqua"} {
after idle [list after 0 wm attributes .purchase -notify 1]
| | | 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 |
wm deiconify .purchase
focus .purchase.bottom.lower.install
if {[tk windowingsystem] eq "aqua"} {
after idle [list after 0 wm attributes .purchase -notify 1]
bind all <FocusIn> [list wm attributes . -notify 0]
}
}
#dialog after demo has expired
proc expiredPitch {} {
variable version
|
| ︙ | ︙ | |||
189 190 191 192 193 194 195 |
wm deiconify .expired
focus .expired.bottom.lower.install
if {[tk windowingsystem] eq "aqua"} {
after idle [list after 0 wm attributes .expired -notify 1]
| | | 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 |
wm deiconify .expired
focus .expired.bottom.lower.install
if {[tk windowingsystem] eq "aqua"} {
after idle [list after 0 wm attributes .expired -notify 1]
bind all <FocusIn> [list wm attributes . -notify 0]
}
}
#check for license, validate if found, set demo pitch if not found
proc readLic {application version} {
variable serial
|
| ︙ | ︙ |