[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/editors/BBEdit getCreator,NONE,1.1 getFile,NONE,1.1 getText,NONE,1.1

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/editors/BBEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15349

Added Files:
	getCreator getFile getText 
Log Message:
user table leftovers, some of the objects will probably need a new home, and should be set at first root run and/or startup

--- NEW FILE: getFile ---
FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.data.userTableLeftovers.html.editors.BBEdit.getFile

on getFile () {
	local (s);
	with objectModel, BBEdit, eventInfo {
		try {
			s = get (window [1].diskFile)}
		else {
			scripterror ("Couldn't get the 'diskFile' attribute from the frontmost BBEdit window.")}}}
--- NEW FILE: getCreator ---
FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.data.userTableLeftovers.html.editors.BBEdit.getCreator

on getCreator () {
	return (BBEdit.id)}
--- NEW FILE: getText ---
FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.data.userTableLeftovers.html.editors.BBEdit.getText

on getText () {
	local (s);
	if not sys.appisrunning (bbedit.id) {
		scriptError ("BBEdit is not running.")};
	with objectModel, BBEdit, eventInfo {
		try {
			s = get (window [1].windowText)}
		else {
			scripterror ("Couldn't get the 'windowText' attribute from the frontmost BBEdit window.")}}}