Manpower

Check-in [229b883386]
Login

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:229b883386b0475636afa9f530caf8e09a6908a0
User & Date: kevin 2017-06-21 03:51:35
Context
2017-12-08
13:50
Rev bump check-in: a697eb5bcd user: kevin tags: trunk
2017-06-21
03:51
Tweak to regproc check-in: 229b883386 user: kevin tags: trunk
2017-04-24
03:01
Rev bump check-in: 29b5a8441f user: kevin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

libs/regproc/pkgIndex.tcl became a regular file.


Changes to libs/regproc/regproc.tcl.

     3      3   #Copyright 2015 WordTech Communications LLC
     4      4   
     5      5   #MIT license
     6      6   
     7      7   package provide regproc 1.4
     8      8   package require http
     9      9   package require xplat
           10  +
    10     11   
    11     12   image create photo _unlock -data  {
    12     13       R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj
    13     14       ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm
    14     15       ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85
    15     16       tKZ5wkMBADs=
    16     17   }
................................................................................
   134    135   
   135    136   	wm deiconify .purchase
   136    137   	focus .purchase.bottom.lower.install
   137    138   
   138    139   	if {[tk windowingsystem] eq "aqua"} {
   139    140   	    after idle [list after 0 wm attributes .purchase -notify 1]
   140    141   
   141         -	    bind all <FocusIn> [list add [list  wm attributes . -notify 0]]
          142  +	    bind all <FocusIn> [list  wm attributes . -notify 0]
   142    143   	}
   143    144   
   144    145       }
   145    146   
   146    147       #dialog after demo has expired
   147    148       proc expiredPitch {} {
   148    149   	variable version 
................................................................................
   189    190   
   190    191   	wm deiconify .expired
   191    192   	focus .expired.bottom.lower.install
   192    193   
   193    194   	if {[tk windowingsystem] eq "aqua"} {
   194    195   	    after idle [list after 0 wm attributes .expired -notify 1]
   195    196   
   196         -	    bind all <FocusIn> [list add [list  wm attributes . -notify 0]]
          197  +	    bind all <FocusIn> [list  wm attributes . -notify 0]
   197    198   	}
   198    199       }
   199    200   
   200    201       #check for license, validate if found, set demo pitch if not found
   201    202       proc readLic {application version} {
   202    203   
   203    204   	variable serial