[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier getProgramName,1.2,1.3,

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

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

Modified Files:
	getProgramName 
Log Message:
added check for OPML Editor

added flDisplayVersion parameter

Index: getProgramName
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/getProgramName,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** getProgramName	8 Sep 2005 02:51:47 -0000	1.2
--- getProgramName	18 Feb 2006 18:27:20 -0000	1.3
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.getProgramName
  
! on getProgramName () {
	ÇChanges
		Ç9/7/05; 3:03:53 PM by TAC
			Çchanged UserLand Frontier to Frontier
		Ç5/19/01; 9:41:59 AM by DW
			ÇCreated. Returns the program name and version in a string that can be displayed or included in an automatically generated file.
	local (s);
	if system.environment.isRadio {
		s = "Radio UserLand"}
	else {
		s = "Frontier"};
	s = s + " v" + Frontier.version ();
	return (s)};
Çbundle //test code
	Çdialog.alert (getProgramName ())
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.getProgramName
  
! on getProgramName (flDisplayVersion = true) {
	ÇChanges
		Ç2/18/06; 9:35:33 AM by TAC
			Çadded check for OPML Editor
			Çadded flDisplayVersion parameter
		Ç9/7/05; 3:03:53 PM by TAC
			Çchanged UserLand Frontier to Frontier
		Ç5/19/01; 9:41:59 AM by DW
			ÇCreated. Returns the program name and version in a string that can be displayed or included in an automatically generated file.
	
	local (s = "Unknown");
	
	bundle { // program name
		if system.environment.isFrontier {
			s = "Frontier"};
		
		if system.environment.isRadio {
			s = "Radio UserLand"};
		
		if system.environment.isOpmlEditor {
			s = "OPML Editor"}};
	
	if flDisplayVersion {
		s = s + " v" + Frontier.version ()};
	
	return (s)};

Çbundle // testing
	Çdialog.alert (getProgramName (false))
\ No newline at end of file