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

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

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

Modified Files:
	open 
Log Message:
if Windows coerce path to string first thing

Index: open
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/fileMenu/open,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** open	15 Feb 2006 05:14:58 -0000	1.2
--- open	16 Feb 2006 01:27:26 -0000	1.3
***************
*** 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
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.fileMenu.open
  
! on open (path, hidden = false) {
	ÇChanges
		Ç2/15/06; 5:11:52 PM by TAC
			Çif Windows coerce path to string first thing
		Ç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 {
		path = string (path);
		
		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