Домой Классы Статические функции Перечисления (ENUM) Записи (RECORD)

{Single_instance}


(включая защищенные члены)



CLASS {Single_instance}
, UNTESTED:






IMPORT : 
{Form}
, 
{Screen}
, 
{System_functions}
, 
{String_functions}
, 
{AL4_form}
 .


BASE CLASS 
{Screen} .



STR 
Unique|_string_characterizing_your_application
 , INIT





 






OVERRIDE 
Run

(
{Form} 
Form_main
)








--------------------------------------------- 'conditional single instance'

 






METHOD 
single_instance|_return_FALSE_in_overridden_to_run_additional_instance_this_time

 ==> BOOL 








------------------------------------------ 'do not use backslash in Unique'

 







FUN 
replace_bad

(
STR 
S|tring_with_bad_chars
)
 ==> STR 







END