filemorph

Check-in [012fe31a83]
Login

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

Overview
Comment:Minor UI tweak
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 012fe31a83acd804d4a541eb734bd5e3e1e65f9c
User & Date: kevin 2020-05-15 02:50:17
Context
2020-11-28
16:24
Rebuild for Big Sur; lots of running to stay in place check-in: cec4ab9aea user: kevin tags: trunk
2020-05-15
02:50
Minor UI tweak check-in: 012fe31a83 user: kevin tags: trunk
2020-05-05
02:45
Tweak for hidden window check-in: d4e38fd03a user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to filemorph.pl.

286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
    -fill   => "both",
    -expand => "yes",
);

my $header = $listframe->new_ttk__label( -text => "File", );
$header->g_pack(
    -fill   => "both",
    -expand => "yes",
    -side   => "top",
);

my $boxframe = $listframe->new_ttk__frame;
$boxframe->g_pack(
    -fill   => "both",
    -expand => "yes",







|







286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
    -fill   => "both",
    -expand => "yes",
);

my $header = $listframe->new_ttk__label( -text => "File", );
$header->g_pack(
    -fill   => "both",
    -expand => "no",
    -side   => "top",
);

my $boxframe = $listframe->new_ttk__frame;
$boxframe->g_pack(
    -fill   => "both",
    -expand => "yes",

Changes to scriptlibs/darkaqua/darkaqua.tcl.

30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
	    event generate . <<DarkAqua>>
	} else {
	    event generate . <<LightAqua>>
	}
    }
    
    
   # bind all <<LightAqua>> {changeImagesLight}
  #  bind all <<DarkAqua>> {changeImagesDark}
    
    namespace export *
    
}

    #raise window if closed--dock click
    proc ::tk::mac::ReopenApplication {} {
	if { [wm state .] == "withdrawn"} {







<
<
<







30
31
32
33
34
35
36



37
38
39
40
41
42
43
	    event generate . <<DarkAqua>>
	} else {
	    event generate . <<LightAqua>>
	}
    }
    
    



    namespace export *
    
}

    #raise window if closed--dock click
    proc ::tk::mac::ReopenApplication {} {
	if { [wm state .] == "withdrawn"} {