Modified to work together with BBPy

jackjansen · jackjansen · commit 92ca16c3352e · 1996-10-23T15:38:26.000Z
Re-enabled splash screen
diff --git a/Mac/Tools/twit/mactwit_app.py b/Mac/Tools/twit/mactwit_app.py
@@ -17,6 +17,7 @@
 import mactwit_browser
 import mactwit_edit
 import macfs
+import string
 
 # Resource-id (for checking existence)
 ID_MODULES=512
@@ -37,6 +38,7 @@ def __init__(self, sessiontype, arg=None):
 		AE.AESetInteractionAllowed(AppleEvents.kAEInteractWithAll)
 		self.installaehandler('aevt', 'odoc', self.ae_open_doc)
 		self.installaehandler('aevt', 'quit', self.do_quit)
+		self.installaehandler('pyth', 'EXEC', self.do_bbpyexec) # BBpy execute event
 
 		self.dbg_menu_bar = Menu.GetMenuBar()
 		self.setstate(sessiontype)
@@ -175,6 +177,19 @@ def ae_open_doc(self, object=None, **args):
 		fss, changed = object.Resolve()
 		self.runfile(fss.as_pathname())
 		
+	def do_bbpyexec(self, object=None, NAME=None, **args):
+		if type(object) <> type(''):
+			if AE.AEInteractWithUser(AppleEvents.kAEDefaultTimeout) == 0:
+				EasyDialogs.Message('EXEC AppleEvent arg should be a string')
+			return
+		if self.state <> 'none':
+			if AE.AEInteractWithUser(AppleEvents.kAEDefaultTimeout) == 0:
+				if not self.asknewsession():
+					return
+		stuff = string.splitfields(object, '\r')
+		stuff = string.joinfields(stuff, '\n')
+		self.runstring(stuff)
+			
 	def do_run(self, *args):
 		if not self.asknewsession():
 			return
diff --git a/Mac/Tools/twit/twit.py b/Mac/Tools/twit/twit.py
@@ -12,9 +12,8 @@
 
 import os
 if os.name == 'mac':
-# Not supported in distributed 1.4b3:
-##	import MacOS
-##	MacOS.splash(515)	# Try to show the splash screen
+	import MacOS
+	MacOS.splash(515)	# Try to show the splash screen
 	import mactwit_app; twit_app = mactwit_app
 else:
 	try:
@@ -32,8 +31,8 @@
 	
 def main():
 	twit_app.Initialize()
-##	if os.name == 'mac':
-##		MacOS.splash()
+	if os.name == 'mac':
+		MacOS.splash()
 	twit_app.Twit('none', None)
 	
 def run(statement, globals=None, locals=None):
diff --git a/Mac/Tools/twit/twit.rsrc.hqx b/Mac/Tools/twit/twit.rsrc.hqx
