16 lines
411 B
Text
16 lines
411 B
Text
#plist CFBundleIdentifier @"com.mygreatcompany.MyGreatApp"
|
|
output @"MyGreatApp"
|
|
|
|
void local fn Doit
|
|
CFArrayRef apps = fn RunningApplicationsWithBundleIdentifier( fn BundleIdentifier( fn BundleMain ) )
|
|
if ( len(apps) > 1 )
|
|
alert 101,, @"Another instance of this app is already running.", @"Choose 'Quit' to terminate.", @"Quit"
|
|
end
|
|
end if
|
|
|
|
window 1, @"My Great App"
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|