Changeset 86930 for contrib/Pallet

Timestamp:

Nov 7, 2011, 7:53:28 AM (13 years ago)

Author:

jmr@…

Message:

Pallet: get default Tcl package path from MacPorts.framework when no value previously set

File:

• contrib/Pallet/MPActionsController.m (modified) (1 diff)

contrib/Pallet/MPActionsController.m

@@ -314 +314 @@
     NSString *pkgPath = [defaults objectForKey:@"PKGPath"];
     if (pkgPath == nil) {
-        [self openPreferences:self];
+        NSFileManager *fileManager = [NSFileManager defaultManager];
+        BOOL existsAsDirectory = NO;
+        BOOL containsMacPortsTcl = NO;
+        NSString *macportsDir;
+        NSString *macportsFile;
+        macportsDir = [[MPMacPorts PKGPath] stringByAppendingPathComponent:@"macports1.0"];
+        macportsFile = [macportsDir stringByAppendingPathComponent:@"macports.tcl"];
+        [fileManager fileExistsAtPath:macportsDir isDirectory:&existsAsDirectory];
+        if (existsAsDirectory) {
+                    containsMacPortsTcl = [fileManager fileExistsAtPath:macportsFile isDirectory:nil];
+            }
+        if (containsMacPortsTcl) {
+            [defaults setObject:[MPMacPorts PKGPath] forKey:@"PKGPath"];
+            [[MPActionLauncher sharedInstance]
+                    performSelectorInBackground:@selector(loadPorts) withObject:nil];
+        } else {
+            [self openPreferences:self];
+        }
     } else {
         [MPMacPorts setPKGPath:pkgPath];