fiji_scripts: add icon for fiji_setup.pl

fiji_setup.pl

@@ -6,6 +6,7 @@ use warnings;
 use Log::Log4perl qw(get_logger);
 use Tk;
 use Tk::widgets qw(LabFrame Label Entry Button Dialog FBox Checkbutton);
+use Tk::PNG;
 
 use FIJI::Settings;
 use Tk::FIJISettingsViewer;
@@ -25,7 +26,6 @@ sub main {
 
   my %hash;
   my $self = bless(\%hash);
-  # my $self = bless(\%hash, $class);
 
   my %cfg;
   if (!Config::Simple->import_from($cfgname, \%cfg)) {
@@ -60,13 +60,25 @@ sub main {
 
   $mw->FIJISettingsViewer(
     -settings => $self->{'settings'},
-    # -borderwidth => 5,
-    # -relief => 'groove'
   )->pack(
     '-fill' => 'both',
     '-expand' => 1
   );
 
+  my $icon_base;
+  if ($^O eq "MSWin32") {
+    $icon_base = 'lib/fiji_logo';
+  } else {
+    $icon_base = 'lib/fiji_logo_hires';
+    # The .xbm is needed for transparency, generate with e.g. GIMP
+    my $iconmask_path = "$icon_base-mask.xbm";
+    $mw->iconmask("\@$iconmask_path") if -r $iconmask_path;
+  }
+  my $fiji_icon = $mw->Photo(-file => "$icon_base.png", -format => 'PNG');
+  $mw->iconimage($fiji_icon);
+
+  $mw->update();
+  $mw->minsize($mw->width() + 5, $mw->height()); # the + 5 is an awful hack
   MainLoop;
 
   $logger->trace("=== Stopping execution ===");
@@ -153,6 +165,7 @@ sub _ctrl_frame {
   return $fr_ctrl;
 }
 
+
 sub _save_file {
   my ($self, $filename) = @_;
   my $err = ${$self->{'settings'}}->save($filename);
@@ -167,6 +180,7 @@ sub _save_file {
 
 }
 
+
 sub _save {
   my ($self) = @_;
   if (!defined($self->{'ini_name'})) {
@@ -176,6 +190,7 @@ sub _save {
   }
 }
 
+
 sub _save_as {
   my ($self) = @_;
   my $filename = $self->{'mw'}->FBox(

lib/fiji_logo.svg

+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!-- Created with Inkscape (http://www.inkscape.org/) -->
+
+<svg
+   xmlns:dc="http://purl.org/dc/elements/1.1/"
+   xmlns:cc="http://creativecommons.org/ns#"
+   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+   xmlns:svg="http://www.w3.org/2000/svg"
+   xmlns="http://www.w3.org/2000/svg"
+   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
+   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
+   height="360"
+   id="svg6271"
+   inkscape:version="0.48.4 r9939"
+   sodipodi:docname="fiji_logo.svg"
+   sodipodi:version="0.32"
+   width="360"
+   version="1.1"
+   inkscape:export-filename="fiji_logo.png"
+   inkscape:export-xdpi="8"
+   inkscape:export-ydpi="8">
+  <metadata
+     id="metadata3">
+    <rdf:RDF>
+      <cc:Work
+         rdf:about="">
+        <dc:title>Island, palm, and the sun</dc:title>
+        <dc:description />
+        <dc:subject>
+          <rdf:Bag>
+            <rdf:li />
+            <rdf:li>vacation</rdf:li>
+            <rdf:li>palm</rdf:li>
+            <rdf:li>sun</rdf:li>
+            <rdf:li>plants</rdf:li>
+            <rdf:li>island</rdf:li>
+            <rdf:li>plant</rdf:li>
+          </rdf:Bag>
+        </dc:subject>
+        <dc:publisher>
+          <cc:Agent
+             rdf:about="http://www.openclipart.org">
+            <dc:title>Claygirl</dc:title>
+          </cc:Agent>
+        </dc:publisher>
+        <dc:creator>
+          <cc:Agent>
+            <dc:title>Claygirl</dc:title>
+          </cc:Agent>
+        </dc:creator>
+        <dc:rights>
+          <cc:Agent>
+            <dc:title>Claygirl</dc:title>
+          </cc:Agent>
+        </dc:rights>
+        <dc:date />
+        <dc:format>image/svg+xml</dc:format>
+        <dc:type
+           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
+        <cc:license
+           rdf:resource="http://web.resource.org/cc/PublicDomain" />
+        <dc:language>en</dc:language>
+      </cc:Work>
+      <cc:License
+         rdf:about="http://web.resource.org/cc/PublicDomain">
+        <cc:permits
+           rdf:resource="http://web.resource.org/cc/Reproduction" />
+        <cc:permits
+           rdf:resource="http://web.resource.org/cc/Distribution" />
+        <cc:permits
+           rdf:resource="http://web.resource.org/cc/DerivativeWorks" />
+      </cc:License>
+    </rdf:RDF>
+  </metadata>
+  <defs
+     id="defs3" />
+  <sodipodi:namedview
+     bordercolor="#666666"
+     borderopacity="1.0"
+     id="base"
+     inkscape:current-layer="layer1"
+     inkscape:cx="58.121181"
+     inkscape:cy="174.77506"
+     inkscape:document-units="px"
+     inkscape:pageopacity="1"
+     inkscape:pageshadow="2"
+     inkscape:window-height="1031"
+     inkscape:window-width="1920"
+     inkscape:window-x="0"
+     inkscape:window-y="0"
+     inkscape:zoom="1.979899"
+     pagecolor="#0a246a"
+     showgrid="false"
+     fit-margin-top="0"
+     fit-margin-left="0"
+     fit-margin-right="0"
+     fit-margin-bottom="0"
+     inkscape:snap-bbox="true"
+     inkscape:bbox-nodes="true"
+     inkscape:bbox-paths="true"
+     inkscape:snap-bbox-midpoints="true"
+     inkscape:snap-bbox-edge-midpoints="true"
+     inkscape:object-paths="true"
+     inkscape:snap-intersection-paths="true"
+     inkscape:object-nodes="true"
+     inkscape:snap-smooth-nodes="true"
+     inkscape:snap-midpoints="true"
+     inkscape:snap-object-midpoints="true"
+     inkscape:snap-global="false"
+     inkscape:window-maximized="1" />
+  <g
+     id="layer1"
+     inkscape:groupmode="layer"
+     inkscape:label="Layer 1"
+     transform="translate(-91.190219,-209.74744)">
+    <g
+       id="g2989"
+       transform="translate(-8.576486,-11.544973)">
+      <path
+         inkscape:connector-curvature="0"
+         style="font-size:317.1362915px;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;writing-mode:lr-tb;text-anchor:start;fill:#67bb27;fill-opacity:1;fill-rule:nonzero;stroke:#000000;stroke-width:5;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:0;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0;font-family:Bitstream Charter"
+         sodipodi:nodetypes="cccccccccccccc"
+         inkscape:export-ydpi="90.000000"
+         inkscape:export-xdpi="90.000000"
+         inkscape:export-filename="/home/clay/solano02.png"
+         id="path3708"
+         d="m 142.19185,546.29704 80.03335,-6.11575 c -59.94724,-28.79554 12.10553,-181.59108 20.15829,-203.38662 28.43237,11.50475 12.86474,58.00949 68.29711,76.51424 -22.90096,-40.16192 -15.80193,-83.32385 -65.70289,-84.48577 50.44143,-4.87381 79.88285,-34.74763 90.32428,-49.62144 -91.89191,20.12619 -71.78381,27.25237 -95.67572,41.37856 4.88285,-20.08096 46.76571,-40.16192 32.64856,-85.24288 -15.89191,27.95952 -46.78381,40.91903 -47.67572,83.87855 -28.77929,-52.85357 -57.55858,-27.70715 -96.33787,-40.56072 -6.77929,12.14643 35.44143,12.29285 89.66214,48.43928 -57.22524,-2.04048 -77.45048,52.91904 -75.67572,65.87856 31.10809,-40.70715 34.18573,-14.36353 84.29382,-55.07068 -109.86997,215.0613 -75.27864,184.93141 -84.34963,208.39467 z" />
+      <path
+         inkscape:connector-curvature="0"
+         style="fill:#ffaa08;fill-opacity:1;fill-rule:nonzero;stroke:#000000;stroke-width:4.42563581;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0"
+         id="path7055"
+         d="m 304.31323,454.99989 c -48.89737,0 -88.59455,33.66007 -88.59456,75.12062 0,4.1728 0.50449,8.23895 1.27739,12.22716 l 174.61269,0 c 0.77291,-3.98821 1.2774,-8.05436 1.2774,-12.22716 0,-41.46055 -39.67554,-75.12061 -88.57292,-75.12062 z" />
+      <path
+         inkscape:connector-curvature="0"
+         style="fill:#e6cc00;fill-opacity:1;fill-rule:evenodd;stroke:#000000;stroke-width:4.86841011;stroke-linecap:butt;stroke-linejoin:round;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
+         sodipodi:nodetypes="ccc"
+         id="path6292"
+         d="m 103.72595,567.31324 c 1.32344,-85.80661 266.58981,-81.34143 352.08151,0 z" />
+    </g>
+  </g>
+</svg>