SVN: vfmg/trunk/VFMG/e17-desktop_out.pm

[sparky]

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();