OpenOffice.org Launcher Icon Code

From NeoWiki

Revision as of 22:41, 6 August 2006 by ( | contribs)
(diff) ←Older revision | Current revision (diff) | Newer revision→ (diff)
Jump to: navigation, search

This is for applescripts to launch individual programs in oo.ox11 2.0. This script is a modified version of the oo.o.app applescript.

the progToOpen property is the only change between the files



(*************************************************************************
 *
 *  OpenOffice.org - a multi-platform office productivity suite
 *
 *  $RCSfile: main.applescript,v $
 *
 *  $Revision: 1.2 $
 *
 *  last change: $Author: obo $ $Date: 2005/10/13 09:46:35 $
 *
 *  The Contents of this file are made available subject to
 *  the terms of GNU Lesser General Public License Version 2.1.
 *
 *
 *    GNU Lesser General Public License Version 2.1
 *    =============================================
 *    Copyright 2005 by Sun Microsystems, Inc.
 *    901 San Antonio Road, Palo Alto, CA 94303, USA
 *
 *    This library is free software; you can redistribute it and/or
 *    modify it under the terms of the GNU Lesser General Public
 *    License version 2.1, as published by the Free Software Foundation.
 *
 *    This library is distributed in the hope that it will be useful,
 *    but WITHOUT ANY WARRANTY; without even the implied warranty of
 *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *    Lesser General Public License for more details.
 *
 *    You should have received a copy of the GNU Lesser General Public
 *    License along with this library; if not, write to the Free Software
 *    Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 *    MA  02111-1307  USA
 *
 *************************************************************************)

--
-- the default handlers: run, open, idle, quit
--

-- progToOpen
-- which program?
-- choices are:
-- swriter, scalc, sdraw, simpress, sbase

property progToOpen : "sbase"

on run
	openSoffice("-")
end run

on open (theFiles)
	openFiles(theFiles)
end open

on idle
	-- close icon only if ooo has terminated
	if isOOoRunning() = 0 then
		tell me to quit
	end if
	-- check all x seconds if ok to quit
	return 3
end idle

on quit
	if isOOoRunning() = 0 then
		continue quit
	end if
end quit

-------------------------------------------------------------

on isOOoRunning()
	set soffice to getProgramPath() & "/soffice"
	set isRunning to do shell script "_FOUND_=`ps -wx -o command | grep \"" & soffice & "\" | grep -v grep`; echo $_FOUND_"
	if isRunning ≠ "" then
		return 1
	else
		return 0
	end if
end isOOoRunning

on openSoffice(aFile)
	set oooProgramPath to getProgramPath()
	--display dialog "getProgramPath"
	set theDisplay to startXServer()
	--display dialog "start x"
	set theEnv to "DISPLAY=" & theDisplay & " ; export DISPLAY; "
	set theCmd to "sh \"" & oooProgramPath & "/" & progToOpen & "\" "
	--display dialog "soffice"
	do shell script theEnv & theCmd & aFile & " &>/dev/null & echo $!"
end openSoffice

on startXServer()
	-- First try standard X11 location, then try standard XDarwin location
	set Xserverloc to "/Applications/Utilities/X11.app"
	set whichserver to do shell script "if [ -d " & Xserverloc & "  ]; then echo \"X11\"; else echo \"NOXSERVER\"; fi"
	if whichserver = "NOXSERVER" then
		set Xserverloc to "/Applications/XDarwin.app"
		set whichserver to do shell script "if [ -d " & Xserverloc & " ]; then echo \"XDarwin\"; else echo \"NOXSERVER\"; fi"
	end if
	
	-- if nothing found yet try using locate, first with X11.app and then with XDarwin.app
	if whichserver = "NOXSERVER" then
		set Xserverloc to do shell script "locate X11.app/Contents/MacOS/X11 | sed -e 's-/Contents/MacOS/X11--g'"
		if Xserverloc ≠ "" then
			set whichserver to "X11"
		end if
	end if
	if whichserver = "NOXSERVER" then
		set Xserverloc to do shell script "locate XDarwin.app/Contents/MacOS/XDarwin | sed -e 's-/Contents/MacOS/XDarwin--g'"
		if Xserverloc ≠ "" then
			set whichserver to "XDarwin"
		end if
	end if
	
	set now_running to ""
	set now_running to do shell script "INX=`ps -wcx | grep  \"" & whichserver & "\"`; echo $INX"
	if whichserver = "NOXSERVER" then
		-- display dialog "No XServer Found"
		set now_running to "Skip"
	end if
	
	-- display dialog "now running is " & now_running
	if now_running = "" then
		if whichserver = "X11" then
			-- enable keyboard extension for X11 for proper Alt key handling 
			set x11cmd to Xserverloc & "/Contents/MacOS/X11 +kb &>/dev/null & echo $!"
			do shell script x11cmd
			-- save process id
			set x11pid to the result
			-- wait until the window manager is started which is the second child process of x11
			set numchildrencmd to "ps -x -o ppid | grep " & x11pid & " | wc -l"
			set numchildren to 0
			set d to current date
			set t1 to time of d
			repeat while numchildren ≠ 2
				set d to current date
				set t2 to time of d
				-- give up after 30 seconds
				if t2 - t1 > 30 then
					display dialog "Command timed out"
					exit repeat
				end if
				set result to do shell script numchildrencmd
				set numchildren to result as integer
			end repeat
		else -- startup XDarwin
			do shell script "open " & "\"" & Xserverloc & "\"" & " >> /dev/null 2>&1"
			do shell script "sleep 4"
		end if
	end if
	
	
	if whichserver = "X11" then
		-- the DISPLAY variable is different for every user currently logged in
		-- X11 passes the DISPLAY as the last command line parameter to its child process
		-- we can use ps to read the command line and parse the trailing :0, :1, or whatever
		set xdisplay to do shell script "ps -wx -o command | grep X11.app | grep \":.$\" | sed \"s/^.*:/:/g\""
		-- display dialog xdisplay
		return xdisplay
	else
		-- TODO: find out how XDarwin does it
		return ":0"
	end if
end startXServer

on checkPath(aPath)
	set pathFound to do shell script "if [ -d \"" & aPath & "\" ]; then echo \"true\"; else echo \"false\"; fi"
	--display dialog quoted form of aPath
	if (pathFound = "true") then
		return 1
	else
		return 0
	end if
end checkPath

-- getInstallPath
-- finds the path to the oo.o installation
-- checks the path to make sure there is something there
-- returns true if so, or error message if not

on getInstallPath()
	set myPath to (path to me)
	--set oooInstallPath to "/Applications/OpenOffice.org 2.0.app/Contents/openoffice.org"
	tell application "Finder" to set j to POSIX path of (application file id "org.openoffice.script" as string)
	set oooInstallPath to j & "/Contents/openoffice.org"
	if checkPath(oooInstallPath) = 0 then
		display dialog "No valid installation found at: " & oooInstallPath
		return ""
	else
		return oooInstallPath
	end if
end getInstallPath

on getProgramPath()
	return getInstallPath() & "/program"
end getProgramPath


on openFiles(fileList)
	if (count of fileList) > 0 then
		repeat with i from 1 to the count of fileList
			set theDocument to (item i of fileList)
			set theFilePath to " \"" & (POSIX path of theDocument) & "\""
			set theFileInfo to (info for theDocument)
			openSoffice(theFilePath)
		end repeat
	end if
end openFiles



Personal tools