mozers
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ALeXkRU
Билин, виноват 
Во время очередной правки забыл добавить вызов InsertProp (она должна вызываться из Скайтового события OnUserListSelection). Вот поэтому список формируется, а при выборе ничего и не вставляется.
Ща исправил (попутно там много чего другого поменялось)...
Вот еще скрипт сочинил:
Код: -- Вывод списка функций / процедур, имеющихся в коде
-- mozers™ icq#256106175
-- Идея и первый вариант: Grisper <http://forum.ru-board.com/topic.cgi?forum=5&topic=3215&start=700#4>
function find (str, pattern)
for p in string.gfind(str, pattern) do
return p
end
return ""
end
local FOLDSTART = 1024 -- level to start folding (from 1024)
editor:Colourise(0, -1) -- update doc's folding info
local count = 0
trace("> Список функций: \n")
for line_num = 0, editor.LineCount-1 do
local foldRaw = editor.FoldLevel[line_num]
local foldLvl = math.mod(foldRaw, 4096)
local foldHdr = math.mod(math.floor(foldRaw / 8192), 2) == 1
if foldHdr and foldLvl == FOLDSTART then
local line = editor:GetLine (line_num)
line = string.gsub (line, "^[^%a]*([^{\n]*).*", "%1")
if line ~= "" then
if find (line, "[(].*[)]") ~= "" then
print (":"..(line_num + 1)..":\t"..line)
count = count + 1
end
end
end
end
if count > 0 then
trace("> Найдено: "..count.." функций / процедур\nДвойной щелчок на строке с результатом\nустановит курсор на оригинальную строку")
else
trace("> Функций / процедур не найдено!")
end |
Скажите с каким языком программирования не работает - поправим 
|
(( 
продублировал в UserCommands - стало действовать нормально 