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
		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}







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







154
155
156
157
158
159
160














161
162
163
164
165
166
167
		return
	    }
	    
	}

    }















    #"busy" dialog
    proc checkingForUpdates {} {

	variable appname
	variable icon

	catch {destroy .updateprogress}
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
		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 *

}







<
<








338
339
340
341
342
343
344


345
346
347
348
349
350
351
352
		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 *

}