[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier bringToFront,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21644

Modified Files:
	bringToFront 
Log Message:
work around bug in Frontier v10.0a3 on Mac OS X

Index: bringToFront
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/bringToFront,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** bringToFront	26 Mar 2005 19:42:47 -0000	1.1.1.1
--- bringToFront	14 Jun 2005 04:21:27 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.bringToFront
  
! on bringToFront () {
	local (path = Frontier.getProgramPath ());
	return (sys.bringAppToFront (file.fileFromPath (path)))}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.bringToFront
  
! on bringToFront () {
	ÇChanges
		Ç11/24/04; 10:08:10 PM by TAC - work around bug in Frontier v10.0a3 on Mac OS X.
	local (path = Frontier.getProgramPath ());
	if system.environment.isMac {
		if not (date.versionLessThan (Frontier.version (), "10.0a0")) {
			if string.lower (path) endsWith ".app:" { // 11/24/04; 10:08:53 PM by TAC
				path = path - ".app:"}}};
	return (sys.bringAppToFront (file.fileFromPath (path)))}
\ No newline at end of file