Changeset 8548

Timestamp:

10/03/09 02:40:39 (2 years ago)

Author:

azawawi

Message:

[Padre] --desktop: The evil desktop-VBS-based-win32-integration experiment :)

File:

• trunk/Padre/script/padre (modified) (2 diffs)

trunk/Padre/script/padre

@@ -33 +33 @@
 my $HOME    = undef;
 my $session = undef;
+my $DESKTOP = undef;
 my $getopt  = Getopt::Long::GetOptions(
     'help'      => \$USAGE,
     'home=s'    => \$HOME,
     'session=s' => \$session,
+    'desktop'   => \$DESKTOP,
     'version'   => \$VERSION,
 );
@@ -72 +74 @@
 }
 
+if($DESKTOP) {
+    if($^O eq 'MSWin32') {
+        require File::Temp;
+        my ( $temp, $tempfile ) = File::Temp::tempfile();
+        print $temp <<'CODE';
+' Create a Padre shortcut on the current user's desktop 
+Set shell = CreateObject("WScript.Shell")
+desktop = shell.SpecialFolders("Desktop")
+Set shortcut = shell.CreateShortcut(desktop & "\Padre.lnk")
+shortcut.Description = "Padre - The Perl IDE"
+shortcut.TargetPath = "C:\strawberry\perl\bin\padre.exe"
+shortcut.WorkingDirectory = "c:\strawberry\perl\bin"
+shortcut.Save
+CODE
+        close $temp;
+        system( qq{wscript "$tempfile"} );
+    } else {
+        warn "--desktop not implemented for " . $^O . "\n";
+    }
+    exit(1);
+}
+
+
 my $app = Padre->new(%opts);
 unless ($app) {