Changeset 8577

Timestamp:

10/03/09 08:41:55 (2 years ago)

Author:

azawawi

Message:

[Padre] padre --desktop now creates a desktop shortcut and creates the shell context menu "Edit with Padre"

File:

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

trunk/Padre/script/padre

@@ -89 +89 @@
 if ($DESKTOP) {
     if ( $^O eq 'MSWin32' ) {
+        # Create Padre's Desktop Shortcut
         require File::Temp;
-        my ( $temp, $tempfile ) = File::Temp::tempfile( SUFFIX => '.vbs' );
-        print $temp <<'CODE';
+        my ( $vbs, $vbsfile ) = File::Temp::tempfile( SUFFIX => '.vbs' );
+        print $vbs <<'CODE';
 ' Create a Padre shortcut on the current user's desktop 
 Set shell = CreateObject("WScript.Shell")
@@ -102 +103 @@
 MsgBox "Padre has created a shortcut on your desktop", vbOKOnly Or vbInformation, "Information"
 CODE
-        close $temp;
-        system(qq{wscript "$tempfile"});
+        close $vbs;
+        system(qq{wscript "$vbsfile"});
+
+        # Integrate with registry via regedit...
+        # VBScript and registry on vista = Does not work!
+        my ($reg, $regfile ) = File::Temp::tempfile( SUFFIX => '.reg' );
+        print $reg <<'REG';
+Windows Registry Editor Version 5.00
+
+[HKEY_CLASSES_ROOT\*\shell\Edit with Padre]
+
+[HKEY_CLASSES_ROOT\*\shell\Edit with Padre\Command]
+@="c:\\strawberry\\perl\\bin\\padre.exe \"%1\""
+REG
+        close $reg;
+        system(qq{regedit /S "$regfile"});
+
     } else {
         warn "--desktop not implemented for " . $^O . "\n";