Commit 553bf3f1 authored by Stefan Tauner's avatar Stefan Tauner
Browse files

fiji_scripts: add icon for fiji_setup.pl

parent 7bf17fd3
......@@ -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(
......
<?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>
This diff is collapsed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment