filemorph

Check-in [d7660b61b7]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:More tweaks
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:d7660b61b713e44e1505bd028d661df7df040691
User & Date: kevin 2017-01-16 16:38:02
Context
2017-01-16
17:14
Update data for Windows build check-in: d125720056 user: kevin tags: trunk
16:38
More tweaks check-in: d7660b61b7 user: kevin tags: trunk
16:15
Update build script check-in: 5a0c23d92e user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to filemorph.pl.

660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
sub Tkx::tkAboutDialog {

    Tkx::tk___messageBox(
        -parent  => $mw,
        -title   => "About FileMorph",
        -icon    => "info",
        -message => "FileMorph: File Modification Tool",
        -detail  => "(c) 2016 WordTech Communications LLC"
    );
}

#handle errors in Tk
sub errlog {
    my $msg = shift;
    if ($IS_AQUA) {







|







660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
sub Tkx::tkAboutDialog {

    Tkx::tk___messageBox(
        -parent  => $mw,
        -title   => "About FileMorph",
        -icon    => "info",
        -message => "FileMorph: File Modification Tool",
        -detail  => "(c) 2017 WordTech Communications LLC"
    );
}

#handle errors in Tk
sub errlog {
    my $msg = shift;
    if ($IS_AQUA) {

Changes to scriptlibs/machelp/help.txt.

133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
 * Windows executable deployment based on code from [http://perl-node-interface.blogspot.com/2011/03/deploy-perl-application-on-windows.html]
 

-------------------
title: FileMorph Version History
alias: History

'''2.8 (January 15, 2016):'''
 * Improved security in update process.
 * Minor UI improvements.

'''2.7 (May 2, 2016):'''
 * Fix for frequent crashes on some Windows system.
 * Minor UI enhancements.

'''2.6 (November 15, 2015):'''
 * Different approach to Windows deployment; startup is now much faster and smoother. 







|
|
|







133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
 * Windows executable deployment based on code from [http://perl-node-interface.blogspot.com/2011/03/deploy-perl-application-on-windows.html]
 

-------------------
title: FileMorph Version History
alias: History

'''2.8 (January 15, 2017):'''
 * Improved security in application update process.
 * Updates to UI.

'''2.7 (May 2, 2016):'''
 * Fix for frequent crashes on some Windows system.
 * Minor UI enhancements.

'''2.6 (November 15, 2015):'''
 * Different approach to Windows deployment; startup is now much faster and smoother. 

Changes to scriptlibs/softwareupdate/softwareupdate.tcl.

154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
...
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
		return
	    }
	    
	}

    }

    proc winPitch {name newversion oldversion} {
	set answer [tk_messageBox  -icon info -title "New Version Available" -message "New Version Available" -detail "$name $newversion is available--you have $oldversion. Would you like to download it now?" -type yesno
		   ]

	switch -- $answer {
	    yes {

		xplat::launch https://www.codebykevin.com/$name.html
	    }
	    no {
		return
	    }
	}
    }
    #"busy" dialog
    proc checkingForUpdates {} {

	variable appname
	variable icon

	catch {destroy .updateprogress}
................................................................................
		tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version."
		return
	    }
	}

	catch {destroy .downloadprogress}

	

    }




    namespace export *

}







<
<
<
<
<
<
<
<
<
<
<
<
<
<







 







<
<








154
155
156
157
158
159
160














161
162
163
164
165
166
167
...
338
339
340
341
342
343
344


345
346
347
348
349
350
351
352
		return
	    }
	    
	}

    }















    #"busy" dialog
    proc checkingForUpdates {} {

	variable appname
	variable icon

	catch {destroy .updateprogress}
................................................................................
		tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version."
		return
	    }
	}

	catch {destroy .downloadprogress}



    }




    namespace export *

}