Author: sparky
Date: Sun Dec 3 00:40:51 2006
New Revision: 8050
Modified:
vfmg/trunk/VFMG/e17-desktop_out.pm
Log:
- support Window Class, Name, Title and Role
Modified: vfmg/trunk/VFMG/e17-desktop_out.pm
==============================================================================
--- vfmg/trunk/VFMG/e17-desktop_out.pm (original)
+++ vfmg/trunk/VFMG/e17-desktop_out.pm Sun Dec 3 00:40:51 2006
@@ -57,6 +57,28 @@
print F_OUT $common_desk;
print F_OUT "GenericName=$$d{GenericName}\n"
if exists $$d{GenericName};
+
+ if ( defined $DR{wcnt} and exists $DR{wcnt}{$$d{file}}
) {
+ my $wcnt = $DR{wcnt}{$$d{file}};
+ print F_OUT "StartupWMClass=$$wcnt[0]\n" if
defined $$wcnt[0];
+ print F_OUT
"X-Enlightenment-WindowName=$$wcnt[1]\n"
+ if defined $$wcnt[1];
+ print F_OUT
"X-Enlightenment-WindowTitle=$$wcnt[2]\n"
+ if defined $$wcnt[2];
+ print F_OUT
"X-Enlightenment-WindowRole=$$wcnt[3]\n"
+ if defined $$wcnt[3];
+ } else {
+ if ( $$d{term} == 1 ) {
+ if ( defined $main::opt{termapp_class}
) {
+ (my $tapp =
$main::opt{termapp_class}) =~ s/%1/$$d{bin}/g;
+ print F_OUT
"StartupWMClass=$tapp\n";
+ }
+ if ( defined $main::opt{termapp_name} )
{
+ (my $tapp =
$main::opt{termapp_name}) =~ s/%1/$$d{bin}/g;
+ print F_OUT
"X-Enlightenment-WindowName=$tapp\n";
+ }
+ }
+ }
print F_OUT "StartupNotify=true\n" if exists
$$d{StartupNotify}
and $$d{StartupNotify} =~ /^(1|true)$/;
print F_OUT "Exec=$$d{Exec}\n",
@@ -85,7 +107,6 @@
sub do_menu() {
VFMG::Icons::init();
-=to implement later
$main::opt{wcnt_file} = "" unless defined $main::opt{wcnt_file};
$DR{wcnt} = {};
foreach my $wcnt_file (split /\s*;\s*/, $main::opt{wcnt_file}) {
@@ -107,7 +128,6 @@
close F_IN;
}
$DR{wcnt} = undef unless %{$DR{wcnt}};
-=cut
e17($main::opt{strip}, $main::opt{destdir}, "");
VFMG::Icons::do_fork();
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
