Aren
/
kolibrios
mirror of https://github.com/KolibriOS/kolibrios.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

TinyHashView: now uses autoimport. 

git-svn-id: svn://kolibrios.org@9625 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
turbocat 2022-01-12 18:44:19 +00:00
parent 3ff8dda3d4
commit 84cfbe46f0
2 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
programs/other/TinyHashView/Tupfile.lua
View File

@ -1,9 +1,10 @@
if tup.getconfig("NO_TCC") ~= "" then return end
TCC="kos32-tcc"
CFLAGS = "-I../../develop/ktcc/trunk/libc.obj/include"
LDFLAGS = "-nostdlib ../../develop/ktcc/trunk/bin/lib/crt0.o -L../../develop/ktcc/trunk/bin/lib"
LIBS = "-ltcc -lcryptal -ldialog -lbox -lc.obj"
COMMAND=string.format("%s %s %s %s %s ", TCC, CFLAGS, LDFLAGS, "%f -o %o", LIBS)
tup.rule("thashview.c", COMMAND .. tup.getconfig("KPACK_CMD"), "thashview")
if tup.getconfig("NO_TCC") ~= "" then return end
if tup.getconfig("HELPERDIR") == ""
then
HELPERDIR = "../../../programs"
end
tup.include(HELPERDIR .. "/use_tcc.lua")
LIBS = "-lcryptal -lbox_lib -ldialog"
link_tcc({"thashview.c"}, "thashview");

4
programs/other/TinyHashView/thashview.c
View File

@ -274,9 +274,7 @@ bool hash_compare() //
int main(int argc, char** argv)
{
kolibri_boxlib_init(); // ‡ £à㦠¥¬ boxlib
if(argc<2){ // …᫨  à£ã¬¥­â®¢ ­¥â, â® § ¯ã᪠¥¬ ¤¨ «®£ ¢ë¡®à  ä 
kolibri_dialog_init(); // § £à㦠¥¬ proc_lib(libdialog)
open_dialog* dialog = kolibri_new_open_dialog(OPEN,0, 0, 420, 320);
OpenDialog_init(dialog);
OpenDialog_start(dialog);
@ -322,7 +320,7 @@ int main(int argc, char** argv)
break;
case KSYS_EVENT_KEY:
hash_edit_box.text_color = BLACK;
edit_box_key(&hash_edit_box, _ksys_get_key().val);
edit_box_key_safe(&hash_edit_box, _ksys_get_key());
break;
case KSYS_EVENT_BUTTON: // ‘®¡ë⨥ ®¡à ¡®âª¨ ª­®¯®ª
pressed_button = _ksys_get_button(); // <20>®«ã祭¨¥ ª®¤  ­ ¦ â®© ª­®¯ª¨.