"VIM! Начни!" (Константин Фадеев)

# vim /каталог/еще_каталог/имя_файла


:e /каталог/еще_каталог/имя_файла


/слово


:wq


:q!


:help

------------------------------------------------------------------------------------------------------------------------------

"GTK+ 2 в Free Pascal 2" (Владимир Кемпик)

uses gtk2, glib2, gdk2;


var main_win, main_fr, stop_b, l_cen :pGtkWidget;


gtk_init(@argc, @argv);


main_win:=gtk_window_new(GTK_WINDOW_TOPLEVEL);
main_fr:=gtk_fixed_new();
start_b:=gtk_button_new_with_label('Старт');
l_cen:=gtk_entry_new_with_max_length(8);


gtk_widget_set_usize(pGtkWIDGET(main_win), 115, 100);


gtk_widget_set_usize(pGtkWIDGET(start_b), 111, 96);


gtk_entry_set_editable(pGtkEntry(l_cen), false);


gtk_container_add(GTK_CONTAINER(main_win), main_fr);


gtk_fixed_put(GTK_FIXED(main_fr), start_b, 0, 0);


g_signal_connect(G_OBJECT(us_widget), 'some_signal', GTK_SIGNAL_FUNC(@us_function), NIL);


g_signal_connect(G_OBJECT(start_b), 'clicked', GTK_SIGNAL_FUNC(@start_a), NIL);


procedure start_a( widget : pGtkWidget; data : pgpointer ); cdecl;
begin
gtk_widget_show(l_cen);
gtk_widget_hide(start_b);
stat:=g_timeout_add( 500, tGtkFunction(@time_back), NIL);
end;


function start_a( widget : pGtkWidget ; event : pGdkEvent ; data : gpointer ) : gint; cdecl;


gtk_widget_show_all(main_win);


gtk_widget_hide(start_b);


stat:=g_timeout_add( n, tGtkFunction(@time_back), NIL);


gtk_timeout_remove(stat);


gtk_main();