Changeset 8549

Timestamp:

10/03/09 02:48:17 (2 years ago)

Author:

azawawi

Message:

[Padre] --desktop creates a shortcut on your Windows desktop :)

File:

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

trunk/Padre/script/padre

@@ -77 +77 @@
     if($^O eq 'MSWin32') {
         require File::Temp;
-        my ( $temp, $tempfile ) = File::Temp::tempfile();
+        my ( $temp, $tempfile ) = File::Temp::tempfile(SUFFIX => '.vbs');
         print $temp <<'CODE';
 ' Create a Padre shortcut on the current user's desktop 
@@ -87 +87 @@
 shortcut.WorkingDirectory = "c:\strawberry\perl\bin"
 shortcut.Save
+MsgBox "Padre has created a shortcut on your desktop", vbOKOnly Or vbInformation, "Information"
 CODE
         close $temp;