forked from KolibriOS/kolibrios
Added SDK for FASM and some assembler examples.
git-svn-id: svn://kolibrios.org@1180 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
@@ -0,0 +1,63 @@
|
||||
;Hello world example
|
||||
|
||||
use32
|
||||
db 'MENUET01'
|
||||
dd 1
|
||||
dd start
|
||||
dd i_end
|
||||
dd 0x800
|
||||
dd 0x800
|
||||
dd 0
|
||||
dd 0
|
||||
|
||||
TRUE = 1
|
||||
FALSE = 0
|
||||
|
||||
include 'libGUI.inc'
|
||||
|
||||
start:
|
||||
;load libGUI labrari
|
||||
push NULL ;use default system path to library
|
||||
call LoadLibGUI
|
||||
;create main window
|
||||
CreateWindow
|
||||
mov [window],eax
|
||||
;change size of main window
|
||||
SetWindowSizeRequest [window],92,46
|
||||
;set callback function for button close window
|
||||
SetCallbackFunction [window],DELETE_EVENT,callback_func_delete_window,NULL
|
||||
|
||||
;create control Text
|
||||
mov [txtdata.x],5
|
||||
mov [txtdata.y],5
|
||||
mov [txtdata.font],NULL;use default system libGUI font
|
||||
mov [txtdata.background],TRUE;use background for text
|
||||
mov [txtdata.color],0xffffff;text color
|
||||
mov [txtdata.background_color],0xff8000
|
||||
mov [txtdata.text],txt
|
||||
CreateText txtdata
|
||||
mov [text],eax
|
||||
|
||||
;pack control Text in window
|
||||
PackControls [window],[text]
|
||||
|
||||
;start libGUI main loop
|
||||
LibGUImain [window]
|
||||
|
||||
|
||||
;void callback_func_delete_window(header_t *control,void *data)
|
||||
callback_func_delete_window:
|
||||
|
||||
mov eax,[esp+4] ;control
|
||||
|
||||
QuitLibGUI eax
|
||||
|
||||
ret
|
||||
align 4
|
||||
;----------------data-----------------
|
||||
txt db 'Hello world!',0
|
||||
txtdata gui_text_data_t
|
||||
window rd 1;parent_t *window
|
||||
text rd 1;gui_text_data_t *text
|
||||
|
||||
i_end:
|
||||
Reference in New Issue
Block a user