[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/fileMenu open,1.1.1.1,1.2,

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

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

Modified Files:
	open 
Log Message:
work around relative path issue on Windows

Index: open
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/fileMenu/open,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** open	26 Mar 2005 19:42:47 -0000	1.1.1.1
--- open	15 Feb 2006 05:14:58 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.fileMenu.open
  
! on open (path, hidden = false) {
	kernel (filemenu.open)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.fileMenu.open
  
! on open (path, hidden = false) {
	ÇChanges
		Ç2/14/06; 2:25:43 PM by TAC
			Çwork around relative path issue on Windows
	
	on kernelcall (path, hidden) {
		kernel (filemenu.open)};
	
	if system.environment.isWindows {
		if path [1] == '\\' {
			delete (@path [1]);
			
			path = string (fileSpec (path))}};
	
	return (kernelcall (path, hidden))};

Çbundle // testing
	Çopen (":Guest Databases:apps:mainResponder.root")
	Çopen ("\\Guest Databases\\apps\\mainResponder.root")
\ No newline at end of file