| The following command will put your *current* buffer's name in the
icon box:
Command: TPU SET (ICON_NAME, "EVE : " + GET_INFO (CURRENT_BUFFER, "NAME"))
If you can recognize EVE by the icon pixmap, then you can make it shorter:
Command: TPU SET (ICON_NAME, GET_INFO (CURRENT_BUFFER, "NAME"))
It is not easy to get EVE to automatically do this for you, since you can
change buffers using a number of commands:
BUFFER, GET FILE, NEXT BUFFER, OPEN SELECTED, DELETE BUFFER,
PREVIOUS BUFFER, RECOVER BUFFER, NEW, OPEN, DELETE WINDOW, NEXT WINDOW
So, I'd bind the command to a key, and press the key whenever you've
changed buffers. You can put the following line in you /COMMAND file
(wrapped to show everything):
define_key("set(icon_name,get_info(current_buffer,'name'))",F20,
"tpu set(icon_name)");
Bill
Note you can also change the EVE title bar using the following procedure:
procedure eve_change_decw_title
local top_level, parent;
if eve$x_decwindows_active
then
top_level := get_info (widget, "widget_id", SCREEN, "tpu$mainwindow");
loop
parent := get_info (top_level, "parent");
exitif parent = 0;
top_level := parent;
endloop;
set (WIDGET, top_level, "title", get_info (current_buffer, "name");
endif;
endprocedure;
|