// Файл содержит общие функции для разных компонентов

func AddToImport(im) // Добавляет класс в список импорта
fvar (old)
old = block.select(BLK_IMPORT)
if (not block.intext(im))
println('import ', im, ';')
end
block.select(old)
end

func LinkedData(pt)
if(linked(pt))
return(pt)
else
return(_data)
end
end

// Файл содержит общие функции для разных компонентов

func AddToImport(im) // Добавляет класс в список импорта
fvar (old)
old = block.select(BLK_IMPORT)
if (not block.intext(im))
println('import ', im, ';')
end
block.select(old)
end

func LinkedData(pt)
if(linked(pt))
return(pt)
else
return(_data)
end
end

// Функции поддержки порядка размещения компонентов //

func InsertInArray(ar, item, ind) // Вставляет item в позицию ind массива ar и возвращает результирующий массив
fvar(k, res)

if (ind < 1)
res = item && ar
else
if (ind >= _arr.count(ar))
res = ar && item
else
res = ar
res &= ar[_arr.count(ar)-1]
for (k = _arr.count(res)-2; k>=ind; k--)
res[k+1] = res[k]
end
res[ind] = item
end
end

return(res)
end

// Возвращает индекс, который должен занимать визуальный
// компонент с Top=t Left=l. Массивы ar_t и ar_l содержат
// Top и Left других компонентов, с которыми нужно сравнить.
func GetIndexByTwoArrays(ar_t, ar_l, t, l)
fvar(i)

for (i = 0; i<_arr.count(ar_t); i++)
if (t < ar_t[i])
return (i)
end

if ((t = ar_t[i]) and (l < ar_l[i]))
return(i)
end

end

return(_arr.count(ar_t))
end

// Возвращает индекс, который должен занимать компонент
// с Order=o. Массив ar содержит Order других компонентов.
func GetIndexInArray(ar, ord)
fvar(i)

for (i = 0; i<_arr.count(ar); i++)
if (ord < ar[i])
return (i)
end
end

return(_arr.count(ar))
end
// ************************************************ //