Change 14066: Make GUSI resource work (MacPerl Bug #464638)

Change 14066 by pudge@pudge-mobile on 2002/01/04 20:16:47

	Make GUSI resource work (MacPerl Bug #464638)

Affected files ...

.... //depot/maint-5.6/macperl/macos/PerlGUSIConfig.cp#2 edit
.... //depot/maint-5.6/macperl/macos/macperl/MacPerl.r#5 edit
.... //depot/maint-5.6/macperl/macos/macperl/MacPerl.rsrc#3 edit

Differences ...

==== //depot/maint-5.6/macperl/macos/PerlGUSIConfig.cp#2 (text) ====
Index: perl/macos/PerlGUSIConfig.cp
--- perl/macos/PerlGUSIConfig.cp.~1~	Fri Jan  4 13:30:06 2002
+++ perl/macos/PerlGUSIConfig.cp	Fri Jan  4 13:30:06 2002
@@ -70,7 +70,7 @@
 extern "C" void GUSISetupConfig()
 {
 	GUSIConfiguration * config =
-		GUSIConfiguration::CreateInstance(GUSIConfiguration::kNoResource);
+		GUSIConfiguration::CreateInstance(GUSIConfiguration::kDefaultResourceID);
 
 	config->ConfigureSuffices(
 		sizeof(sSuffices)/sizeof(GUSIConfiguration::FileSuffix)-1, sSuffices);

==== //depot/maint-5.6/macperl/macos/macperl/MacPerl.r#5 (text) ====
Index: perl/macos/macperl/MacPerl.r
--- perl/macos/macperl/MacPerl.r.~1~	Fri Jan  4 13:30:06 2002
+++ perl/macos/macperl/MacPerl.r	Fri Jan  4 13:30:06 2002
@@ -9,6 +9,12 @@
 Language	:	MPW C
 
 $Log: MacPerl.r,v $
+Revision 1.12  2002/01/04 05:07:10  pudge
+GUSI template
+
+Revision 1.11  2002/01/03 21:52:18  neeri
+Enable preference resources (MacPerl Bug #464638)
+
 Revision 1.10  2001/10/03 19:23:16  pudge
 Sync with perforce maint-5.6/macperl
 
@@ -131,6 +137,7 @@
 
 include ":Obj:FontLDEF.rsrc";
 
+include "MacPerl.rsrc" 'GU…I'(10240);
 include "MacPerl.rsrc" 'BNDL'(128);
 include "MacPerl.rsrc" 'McPL'(0);
 include "MacPerl.rsrc" 'ICN#'(128);
@@ -1100,3 +1107,50 @@
 
 #include "MPTerminology.r"
 #include "MPBalloons.r"
+
+/************************** GUSI **************************/
+#define GUSI_PREF_VERSION '0150'
+
+type 'TMPL' {
+	wide array {
+		pstring;
+		literal longint;
+	};
+};
+
+resource 'TMPL' (10240, "GU…I") {
+	{
+		"Type of created files",		'TNAM',
+		"Creator of created files",	'TNAM',
+		"Automatically spin cursor", 	'DBYT',
+#if GUSI_PREF_VERSION > '0102'
+		"Not using chdir()",				'BBIT',
+		"Accurate stat()",				'BBIT',
+		"TCP daemon",						'BBIT',
+		"UDP daemon",						'BBIT',
+#if GUSI_PREF_VERSION >= '0150'
+		"Own Console",						'BBIT',
+#else
+		"Reserved",							'BBIT',
+#endif
+#if GUSI_PREF_VERSION >= '0180'
+		"Don't initialize QuickDraw",	'BBIT',
+		"Open files shared",				'BBIT',
+		"Raise SIGPIPE",					'BBIT',
+#else
+		"Reserved",							'BBIT',
+		"Reserved",							'BBIT',
+		"Reserved",							'BBIT',
+#endif
+		"Version (don't change)",		'TNAM',		
+#if GUSI_PREF_VERSION >= '0120'
+		"NumSuffices",						'OCNT',
+		"*****",								'LSTC',
+		"Suffix",							'TNAM',
+		"Type for suffix",				'TNAM',
+		"Creator for suffix",			'TNAM',
+		"*****",								'LSTE',
+#endif
+#endif		
+	}
+};

==== //depot/maint-5.6/macperl/macos/macperl/MacPerl.rsrc#3 (apple) ====

End of Patch.