From a0d18e6a62b5536a65210f0b6cca18a08e3e9c04 Mon Sep 17 00:00:00 2001
From: Stefan Urbanek <stefan@agentfarms.net>
Date: Sun, 4 May 2003 12:09:57 +0000
Subject: [PATCH] Renamed file to ScriptingInfo.plist (I was too tired)

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@16621 72102866-910b-0410-8b05-ffd578937521
---
 ApplicationScripting/Support/STScriptingSupport.m | 15 ++++++++++-----
 ...ScriptingSupport.plist => ScriptingInfo.plist} |  0
 2 files changed, 10 insertions(+), 5 deletions(-)
 rename ApplicationScripting/Support/{ScriptingSupport.plist => ScriptingInfo.plist} (100%)

diff --git a/ApplicationScripting/Support/STScriptingSupport.m b/ApplicationScripting/Support/STScriptingSupport.m
index 7da7faa..7e31d67 100644
--- a/ApplicationScripting/Support/STScriptingSupport.m
+++ b/ApplicationScripting/Support/STScriptingSupport.m
@@ -38,6 +38,8 @@
 #include <Foundation/NSBundle.h>
 #include <Foundation/NSEnumerator.h>
 #include <Foundation/NSFileManager.h>
+#include <Foundation/NSPanel.h>
+#include <Foundation/NSPathUtilities.h>
 #include <Foundation/NSString.h>
 
 @interface NSApplication (STPrivateMethods)
@@ -52,9 +54,12 @@
 
     if(![self isScriptingSupported])
     {
-        NSRunAlertPanel(@"Scripting is not available",
-                        @"Application scripting bundle is not installed. ",
+        NSRunAlertPanel(@"Invalid usage of scripting support",
+                        @"Please, contact the author of this application "
+                        @"and let him know about this error. The author forgot "
+                        @"to check whether the scripting is supported or not.",
                         @"Cancel", nil, nil);
+
         return NO;
     }
 
@@ -82,8 +87,8 @@
     }
     else
     {
-        NSRunAlertPanel(@"Cannot initialize scripting",
-                        @"Unable to load application scripting bundle.",
+        NSRunAlertPanel(@"Broken scripting support",
+                        @"Application scripting bundle cannot be loaded.",
                         @"Cancel", nil, nil);
         return NO;
     }
@@ -154,7 +159,7 @@
         NSLog(@"Error occured while loading application scripting support");
 
         isIn = NO;
-        return;
+        return nil;
     }
     
     isIn = YES;
diff --git a/ApplicationScripting/Support/ScriptingSupport.plist b/ApplicationScripting/Support/ScriptingInfo.plist
similarity index 100%
rename from ApplicationScripting/Support/ScriptingSupport.plist
rename to ApplicationScripting/Support/ScriptingInfo.plist