Just noticed a bug in my modification of Steve’s code. The if statement after the comments re v14 & v15 & v16 should read…
If (Num(Application version)>=1600) //not <=16) I changed it in the copy below. John > On Nov 12, 2017, at 6:15 PM, John Baughman <[email protected]> wrote: > > Here is Steve’s code revised to work with v16 and greater. Beware if it > changes again… > > John > > $version:=Application version > > > Case of > : ($version="13@") > > // > -------------------------------------------------------------------------------------------- > // > // > //4D V13 > // > // > // > -------------------------------------------------------------------------------------------- > > $path:=Get 4D folder+"4D Preferences v16.4DPreferences" > > If (Test path name($path)=Is a document) > > $dom:=DOM Parse XML source($path) > > ARRAY TEXT($windows;0) > > $window:=DOM Find XML > element($dom;"preferences/internal_prefs_4d/windows/window";$windows) > > For ($i;1;Size of array($windows)) > > $name:="" > $window:=$windows{$i} > > DOM GET XML ATTRIBUTE BY > NAME($window;"name";$name) > > If ($name="4ddebugger") > DOM REMOVE XML ELEMENT($window) > BEEP > > End if > > End for > > XML SET OPTIONS($dom;XML indentation;XML no indentation) > > DOM EXPORT TO FILE($dom;$path) > > DOM CLOSE XML($dom) > > End if > > Else > > // > -------------------------------------------------------------------------------------------- > // > // > //4D V14 & V15 & v16 > // > // > // > -------------------------------------------------------------------------------------------- > > > If (Num(Application version)>=1600) > $path:=Get 4D folder(Active 4D Folder)+\ > "4D Window Bounds v"+Substring(Application > version;1;2)+Folder separator+\ > "runtime"+Folder separator+\ > "[projectForm]"+Folder separator+\ > "4ddebugger.json" > > else > $path:=Get 4D folder(Active 4D Folder)+\ > "4D Window Bounds v"+Substring(Application > version;1;2)+Folder separator+\ > "coreDialog"+Folder separator+\ > "[projectForm]"+Folder separator+\ > "4ddebugger.json" > > > End if > > If (Test path name($path)=Is a document) > DELETE DOCUMENT($path) > BEEP > > End if > > End case > > > > >> On Nov 12, 2017, at 5:07 PM, Stephen J. Orth <[email protected] >> <mailto:[email protected]>> wrote: >> >> John, >> >> Here is the code I run when the debugger window gets messed up: >> >> C_TEXT($version;$path;$name;$dom;$window) >> C_LONGINT($i;$indentOption) >> >> >> >> // >> -------------------------------------------------------------------------------------------- >> // User name (OS): SteveO >> // Date and time: 05/21/15, 07:05:39 >> // >> -------------------------------------------------------------------------------------------- >> // >> //Description: >> // >> //This method is used to reset the 4D debugger window when the >> //preferences get screwed up and the window is not drawing correctly >> // >> // >> //Parameters: >> // >> //Return Parameter: >> // >> // >> -------------------------------------------------------------------------------------------- >> >> >> $version:=Application version >> >> >> Case of >> : ($version="13@") >> >> // >> -------------------------------------------------------------------------------------------- >> // >> // >> //4D V13 >> // >> // >> // >> -------------------------------------------------------------------------------------------- >> >> $path:=Get 4D folder+"4D Preferences v13.4DPreferences" >> >> If (Test path name($path)=Is a document) >> >> $dom:=DOM Parse XML source($path) >> >> ARRAY TEXT($windows;0) >> >> $window:=DOM Find XML >> element($dom;"preferences/internal_prefs_4d/windows/window";$windows) >> >> For ($i;1;Size of array($windows)) >> >> $name:="" >> $window:=$windows{$i} >> >> DOM GET XML ATTRIBUTE BY >> NAME($window;"name";$name) >> >> If ($name="4ddebugger") >> DOM REMOVE XML ELEMENT($window) >> End if >> >> End for >> >> XML SET OPTIONS($dom;XML indentation;XML no indentation) >> >> DOM EXPORT TO FILE($dom;$path) >> >> DOM CLOSE XML($dom) >> >> End if >> >> Else >> >> // >> -------------------------------------------------------------------------------------------- >> // >> // >> //4D V14 & V15 >> // >> // >> // >> -------------------------------------------------------------------------------------------- >> >> $path:=Get 4D folder(Active 4D Folder)+\ >> "4D Window Bounds v"+Substring(Application version;1;2)+Folder >> separator+\ >> "coreDialog"+Folder separator+\ >> "[projectForm]"+Folder separator+\ >> "4ddebugger.json" >> >> If (Test path name($path)=Is a document) >> >> DELETE DOCUMENT($path) >> >> End if >> >> End case >> >> >> >> >> >> ********************************************* >> Stephen J. Orth >> The Aquila Group, Inc. Office: (608) 834-9213 >> P.O. Box 690 Mobile: (608) 347-6447 >> Sun Prairie, WI 53590 >> >> E-Mail: [email protected] <mailto:[email protected]> >> ********************************************* >> >> >> -----Original Message----- >> From: 4D_Tech [mailto:[email protected] >> <mailto:[email protected]>] On Behalf Of John Baughman via 4D_Tech >> Sent: Sunday, November 12, 2017 8:48 PM >> To: Janie Marlow via 4D_Tech <[email protected] >> <mailto:[email protected]>> >> Cc: John Baughman <[email protected] <mailto:[email protected]>> >> Subject: Debug window messed up >> >> I am suddenly not being able to see the lower pane in the Debug window. Both >> Expression panes go to the bottom of the window and are cut off. >> >> Any idea how to fix it? >> >> Thanks, >> >> John >> >> >> John Baughman >> Kailua, Hawaii >> (808) 262-0328 >> [email protected] <mailto:[email protected]> >> >> >> >> >> >> ********************************************************************** >> 4D Internet Users Group (4D iNUG) >> FAQ: http://lists.4d.com/faqnug.html >> Archive: http://lists.4d.com/archives.html >> Options: http://lists.4d.com/mailman/options/4d_tech >> Unsub: mailto:[email protected] >> ********************************************************************** >> > > John Baughman > Kailua, Hawaii > (808) 262-0328 > [email protected] <mailto:[email protected]> > > > > > John Baughman Kailua, Hawaii (808) 262-0328 [email protected] ********************************************************************** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:[email protected] **********************************************************************
