/*
$VER: myTextEdit with selected icon (v1.0)
*/
ADDRESS workbench;
GETATTR WINDOWS.ACTIVE VAR file_path;
/* TU BŁEDY WYWALAJO - jak katalog jest pusty lub nie widać zadnej ikony*/
GETATTR WINDOW.ICONS.SELECTED.COUNT NAME file_path VAR selected_icons_count;
file_path_length$ = LENGTH(file_path);
is_slash$ = '/';
IF (SUBSTR(file_path, file_path_length$) = ':') THEN is_slash$ = '';
IF (selected_icons_count = 0) THEN
ADDRESS COMMAND 'sys:Tools/TextEdit ' file_path || is_slash$ || 'new_text_file.txt';
ELSE DO
GETATTR WINDOW.ICONS.SELECTED.0.NAME NAME file_path VAR file_name;
ADDRESS COMMAND 'sys:tools/TextEdit ' file_path || is_slash$ || file_name;
END;
EXIT;@mateusz_s, post #1
WINDOW.ICONS.ALL.COUNT
Number of the icons displayed in the window. This can be 0.