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: |
8c55ae041a66b3f217e31cfe7951d155 |
User & Date: | kevin 2019-11-29 02:28:28 |
Context
2019-12-02
| ||
00:19 | Add new image check-in: 565b0fa7c0 user: kevin tags: trunk | |
2019-11-29
| ||
02:28 | More tweaks check-in: 8c55ae041a user: kevin tags: trunk | |
2018-08-21
| ||
12:41 | Update version strings/Mac check-in: 51384e28d4 user: kevin tags: trunk | |
Changes
Changes to FileMorph.icns.
cannot compute difference between binary files
Changes to filemorph.ico.
cannot compute difference between binary files
Changes to filemorph.pl.
︙ | ︙ | |||
44 45 46 47 48 49 50 | use Config::IniFiles; use File::Temp qw(tempfile); Tkx::set( '::argv0', $ARGV[0] || "" ); Tkx::catch('console hide'); Tkx::package_require('tkdnd'); | < | | | < < < < | | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | use Config::IniFiles; use File::Temp qw(tempfile); Tkx::set( '::argv0', $ARGV[0] || "" ); Tkx::catch('console hide'); Tkx::package_require('tkdnd'); Tkx::package_require('regproc'); Tkx::package_require('machelp'); Tkx::package_require('softwareupdate'); Tkx::package_require('widget::dateentry'); Tkx::package_require('xplat'); Tkx::package_require('tooltip'); if ($IS_AQUA) { Tkx::package_require('cocoaprint'); Tkx::package_require('darkaqua'); } if ($IS_WINDOWS) { Tkx::package_require('dde'); Tkx::dde_servername('FileMorph'); } |
︙ | ︙ | |||
133 134 135 136 137 138 139 | ); $applemenu->add_command( -label => "About FileMorph", -command => \&Tkx::tkAboutDialog, ); | < < < < | 128 129 130 131 132 133 134 135 136 137 138 139 140 141 | ); $applemenu->add_command( -label => "About FileMorph", -command => \&Tkx::tkAboutDialog, ); $applemenu->add_command( -label => "Check for Updates", -command => \&checkUpdate, ); $applemenu->add_separator(); } |
︙ | ︙ | |||
203 204 205 206 207 208 209 | if ($IS_WINDOWS) { $helpmenu->add_command( -label => "About FileMorph", -command => \&Tkx::tkAboutDialog, ); | < < < < | 194 195 196 197 198 199 200 201 202 203 204 205 206 207 | if ($IS_WINDOWS) { $helpmenu->add_command( -label => "About FileMorph", -command => \&Tkx::tkAboutDialog, ); $helpmenu->add_command( -label => "Check for Updates", -command => \&checkUpdate, ); } $mw->configure( -menu => $menubar ); |
︙ | ︙ | |||
508 509 510 511 512 513 514 | $textframe->add($listframe); $textframe->add($noteframe); $mw->g_wm_geometry("900x800"); $mw->g_wm_deiconify; | < < < < < > < | < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | > > > > > > > > > > > > > | | > | | > > > > > > > > > > > > > | < < | | 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 | $textframe->add($listframe); $textframe->add($noteframe); $mw->g_wm_geometry("900x800"); $mw->g_wm_deiconify; Tkx::after(50); #This is necessary to get the listbox to draw; sometimes it does not render until the mouse hovers over it Tkx::focus( -force => $listbox ); if ($IS_AQUA) { &createAppleScriptCommands; } if ($IS_WINDOWS) { &createDDECommands; } Tkx::MainLoop(); exit; ###----subroutines sub shutdown { &Tkx::regproc__makePitch; &Tkx::exit; } sub makeImage { my $data = "R0lGODlhQABAAOf/AAACABQfLicoJgAykQY0ZgswlQAznVEpMDIzMQA8oAA8pQE9mlooUhY8hz4xhjY7Pzo8OTU9SABFrg9EqABJrk02dypDbhNHpT9CQQ1Osx1MkZkyAABUqQBTt0dJRjlGo5A0OTlNcjNMoQBZwxJZvUpRWFBLjp4+E0BUaABgx54+HVFTUKNBAgBkzUhXZypbp0hWeKBDKBFlyVddYkpgdRppx55MOl1fXUpjgldhflRhohVx1VtkcUZnt2VnZSty0VxqgZhaY59bU1BvkmJsihl84Ftvi21riTZ40mlwiZ9jYlF1tlN2wUR6zW90eG50hnN1cmJ4jimE6Fl8n8FrD2t5rHJ7pnB+liaO8kOI3Gp/vLpyMnx/fFWE0XuBiT+M5nqBk16G11GM1FuMuU+QzlOO3TmY/n2Lo4iKhyud/zuZ+GiSt4eLmmWU2F+XzYmPl2yVu6CKgYaOunyTqXyRxj+g/8qGNZeNpV+Z5WKa0IqToXiWx0Si/5KUkWydy2Se3kqk95GWnFCk/+yJBoyarEep/1en9OyPDlSr/9iTN5CfuPCRAJmepmyn5JyfnOqTDeiTG5Wgsnuk5JKgyW+o7Feu/4ij32Wt9WKx/9ucQKGnr6WopGa0/3iw7p6qt5eq03mw/4Ow4HO095quwuyhMZWvzKisr3C3/+ClTqivt4W2756x46iwy/+lFXq7/q+yr+etTo66/6e3zP+rIK63xbO3uo6/8obB/4zA+be5tqa83/+xMLm+wP22Mry/u5HH/5/F9rDD2LPC4rrCzP+5PrXC6afH7pnK/sDEx63J+pzO//+/SsbJxcXKzaTR///EVcbN2MvNyrTR9a3T+//HX7nS8MLR6LHZ/8fW8cvX673a/s7Y59XY1MTb88Ta/7je/8Hc+tPZ39Hb6urZtOLcw7/i/s3f/8fi/9bf7uHf0N/h3s3k/drk8tDo/9zm9d7m7uTn49fr/uLp8t7q/9ru/+fu99/x/ufx/+rx+u30/e/09vH4//X6/Pn9//3//P///yH5BAEKAP8ALAAAAABAAEAAAAj+AP8JHEiwoMGDCBMqXMiwocOHECP+Q0CxokWJGB1S9LHJV7Ro6rgx87UJDQSKGVMWpOgIZDRktTTJ1MTrIzNHKxCoVImACzduyALlCHElklE9RCyAMcXsJgadOyMiyKUOGZsQnsLp49evKz9972hdgaEpmi8fUKMyRIAhGjdTWPX180e3bt1++qAReYKMGRQEw7IJzoYNWza1BBG4Rapurt3HdutFgsHL74xu4Na1ixcP3GHECHxxY3NFLuTTdPuxkxWi8o1AXb22wwa6jzpNSfShRl0PHTpxsmAgywWhmVd+9Loh9gCPFwzdux/ze+f7tzhCYKL1ubGVH797yqP+InjF7ckwx9Hp6mPHrro4cdlwMPWAzDu/fJ7Fw6uVBH36euy159t728gChHZOeLcPfp+lhIBtYECTXmryvBOge+JsE18tviCgzj4gntNgRggw04wF0EXXjzwVXjhghtkookc0N/AC4j7rjIgRAtzUAsaE/LDYInsYahjMgWgEcmM7OkqEADyMpJIeP/UIaSGRL2qYDQHROOLEjfHQllEKGvigDhsS7qZPPVWyeKWA1mlJ2SYPMLHgOtI41EILKfSZAhJdLMHFmc2ghhebbQ4JJ4GCGcHLKwhQYI897UzTZEEt/FAGHqoAI0078+QzzKBsFHqaPvggaqWLcTbKyyb+CEiQzT3xWKpQC22sk09X+dB6jjaleKCOHsNAhheqqrrJKqPZWIAMnRlYM6kzlw70AzjzaOPMMdx2G4qHmnjy2LHIsrkqlq1aY4F2LjAhzLTV/tNCGecc88u9996ibyeK8UKEXeSWm+ibRWYjyxPRcGFEF5/YQ48zYh407zH6umLxKRhjIooLuUQDAzx0eafPyAKfuyiMZzDCjAdwtEEHPfRcY41CTdxyCia3ADONOfPcs+AbUKgTSCrHkVyysugy6iykoUiyBMzaVHOrNvn4c9+knHEmi2LIPNePyCSnai7SJ2+jCBsJ02CLKhLQE885eSaUgjT+5JP13Uw60Qf+N3ow8vVXYSerKIbWtJYLAmscg4sE3cSzjq0IpQBMP3dX7k4qJTKTAzRgjyz2wMtuYwQj0UBBQyjcSlBNPO1QK3cn/Uw6aT693nOPPdB44QM3zqkDuOeCEzzgGdk58gActnDbgy6cHRNvCn8sSDvttt9ujzu0zIBGNLXAoFXgYw/+2xlJMJMLBlOEgi8Tn3DmeuRi3DN97dY7vI0nGLTUPS3gg04kNEbwwkhWYAQ/4AJfYqAD66Yxs4Q0YR7Sq57sYBaPYOCvDy8BAxGggY/PnWsbhAhBWXLhgQj4QRX4usUftMC6a1RDDgaIYQwJIoN1LEiCk6IgZ4IxihJAwSP+/IGBJ6Dxjja9Yxu0OIMF9ICMLkFAAADAAS5wEQp9UeIC7WhH1CZBh0noQgsGIEgKtLEPHDoMb+vgIQ8g0AdmRIMXjHhCCAhgAQIQIAds0EQzopELHzxgCmMIAACOYIMtBEEVomBcO8AhjXCkgxzv0EEBxAiM70zQbVnLYjvSKAtClAADaHjFRz6CjD3aZBNoocEY/OCHMRyABbCgBiqC0AnVteMc0+DGOMbRjTCKEXaXxJsm13GOYMhiFHPgAQI8AAU0OGITm+gDGtASgSGsMg+dUMUeYkCKZTxDlkH4gC426YxwjIMcn5gkQUaAh33kUJhZXAcxz3GOauiiFPj+nEMUaICCfqIAB9Z0gxvy0AiLuUIOVNhFL4jxTVSA4BObVMY2xqEOLQygICMoQz50yBlNbpKeIAXHN4wRClYK9KQoJahBLSaJE0BiFrsgxjJkqYRurANi4xCHLwvyQHvAU54gPcc1lHGLlXaiE41oxB/+kFRRiMIVGIvqKShhBZfCVKbPQEVNGUgOXaizIDU4B61YN8x5nsMZRV2pWqEq1bZG9RJkqOojrupNrRqjGuGgw0UNMgJt3MOjH6UnWtfq1sK2FROIhWsVTjDXmNY1CMLohggQMgJg5KOs9NTGL9hq2MIi9rOg/axiVdBYrKJCCKzYKUYpsY94gvQanO3+bGhnS1vEGoIMVYhBab2ZCRA4gLLtDKxQPVvb4n4WEchNLiIMIYbcNnahz8jEBiibhXvMsxzauJlxjavc7noXEGLQgQoO0QqFylS6BxkBEuZBzHKU4xbbBa1359vdQtjXvl94wR3GOwu6otcgYb1lOZxRW/oaGBH3TXCCBSEIGQhjDyY4AXn9O12MTiMe7r3Zgemr4A4zuBAMDnERLLEOLHCgAhJuBV0TUeGBjAAX9viGMzaM3A4v+MMhzjEfdsyHLyDhHoIwgwwaEIcYTNixLF4nJe7xjVvU18b3DTGIc8xgHluZx2poATpiYQYz7KADhDjCCRahYsfaYZ1f2Mf+NzAB5SlTWcdXvnId5jxnNexgFd7ospc78IkGMIAFZL5qItb542lEWRBuhnOcrUznRtM5DWkoQhjuoQY9F4EEPVAnoFUMCRYQpAM/mMcx3rxoOTv60ZBOdaqx0IJ5gELPZpBCChTwVRYM4hAtHogMvJGMUu/41I1WtbAhDWsz1KAYycCCFIqwgx3sSQF7FcgGcj2QDuABFzwGNqqHnepie7sIe9pTCkjQgQxMIAEJcEgHSKCGU3O7296ONxawwOwalPvc6B5AtCHSARm8Ow3xlveydyADEkjg4OhOwAIQ848M7CDgAme2DDpw8Ange+EMP4jDI07wDFTc4gvAeMYgG+JwKTRbBhnIAAVWPoELjHwnKV+5y19O85rb/OYQCQgAOw== "; $icon = Tkx::image_create_photo( -data => $data ); my $folderdata = " #define xbm_folder_sans_32_width 32 #define xbm_folder_sans_32_height 32 static char xbm_folder_sans_32_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xFF, 0x03, 0x00, 0x00, 0xFF, 0x03, 0x00, 0x00, 0x03, 0xFF, 0xFF, 0x3F, 0x03, 0xFF, 0xFF, 0x3F, 0x03, 0xFF, 0xFF, 0xFF, 0x03, 0xFF, 0xFF, 0xFF, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0x03, 0x00, 0x00, 0xC0, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, }; } "; $folderimage = Tkx::image_create_bitmap( -data => $folderdata ); my $filedata = "#define xbm_document_sans_32_width 32 #define xbm_document_sans_32_height 32 static char xbm_document_sans_32_bits[] = { 0xFF, 0xFF, 0x07, 0x00, 0xFF, 0xFF, 0x0F, 0x00, 0x03, 0x00, 0x1F, 0x00, 0x03, 0x00, 0x3B, 0x00, 0x03, 0x00, 0x73, 0x00, 0x03, 0x00, 0xE3, 0x00, 0x03, 0x00, 0xFF, 0x00, 0x03, 0x00, 0xFF, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0x03, 0x00, 0xC0, 0x00, 0xFF, 0xFF, 0xFF, 0x00, 0xFF, 0xFF, 0xFF, 0x00, }; "; $fileimage = Tkx::image_create_bitmap( -data => $filedata ); } #check filelist for error handling sub checkfilelist { if ( scalar(@filelist) == 0 ) { |
︙ | ︙ | |||
1107 1108 1109 1110 1111 1112 1113 | } #-----AppleScript and DDe handlers------$ if ($IS_AQUA) { sub createAppleScriptCommands { | | | | | | | | | | > | | | | | 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 | } #-----AppleScript and DDe handlers------$ if ($IS_AQUA) { sub createAppleScriptCommands { Tkx::interp_alias( "", "set_directory_path", "", [ \&scriptSetDir ] ); Tkx::interp_alias( "", "set_file_path", "", [ \&scriptSetFile ] ); Tkx::interp_alias( "", "set_old_extension", "", [ \&scriptOldExt ] ); Tkx::interp_alias( "", "set_new_extension", "", [ \&scriptNewExt ] ); Tkx::interp_alias( "", "change_extension", "", [ \&scriptChangeExt ] ); Tkx::interp_alias( "", "set_old_text", "", [ \&scriptOldText ] ); Tkx::interp_alias( "", "set_new_text", "", [ \&scriptNewText ] ); Tkx::interp_alias( "", "change_text", "", [ \&scriptChangeText ] ); Tkx::interp_alias( "", "set_added_text", "", [ \&scriptAddedText ] ); Tkx::interp_alias( "", "set_prefix_or_suffix", "", [ \&scriptPrefixOrSuffix ] ); Tkx::interp_alias( "", "add_text", "", [ \&scriptAddText ] ); Tkx::interp_alias( "", "set_time", "", [ \&scriptSetTime ] ); Tkx::interp_alias( "", "change_file_time", "", [ \&scriptFileTime ] ); } } if ($IS_WINDOWS) { sub createDDECommands { Tkx::interp_alias( "", "set_directory_path", "", [ \&scriptSetDir ] ); |
︙ | ︙ |
Changes to filemorph.png.
cannot compute difference between binary files
Added scriptlibs/darkaqua/darkaqua.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 | #MIT license package provide darkaqua 1.0 namespace eval darkaqua { proc changeImagesDark {} { foreach item [image names] { if {[image type $item] eq "bitmap"} { $item configure -foreground white } } } proc changeImagesLight {} { foreach item [image names] { if {[image type $item] eq "bitmap"} { $item configure -foreground black } } } proc checkDarkMode {} { set mode [catch {exec defaults read -g AppleInterfaceStyle} msg] if {$msg eq "Dark"} { event generate . <<DarkAqua>> } else { event generate . <<LightAqua>> } } bind all <<LightAqua>> {changeImagesLight} bind all <<DarkAqua>> {changeImagesDark} namespace export * } |
Added scriptlibs/darkaqua/pkgIndex.tcl.
> > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 | # Tcl package index file, version 1.1 # This file is generated by the "pkg_mkIndex" command # and sourced either when an application starts up or # by a "package unknown" script. It invokes the # "package ifneeded" command to set up package-related # information so that packages will be loaded automatically # in response to "package require" commands. When this # script is sourced, the variable $dir must contain the # full path name of this file's directory. package ifneeded darkaqua 1.0 [list source [file join $dir darkaqua.tcl]] |