Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;

;   MENU / DIALOG EXAMPLE

;

;   Compile with FASM for Menuet

;

use32

               org    0x0

               db     'MENUET01'              ; 8 byte id

               dd     0x01                    ; header version

               dd     START                   ; start of code

               dd     I_END                   ; size of image

               dd     0x10000                  ; memory for app

               dd     0x10000                  ; esp

               dd     0x0 , 0x0               ; I_Param , I_Icon

include 'lang.inc'

include '..\..\..\..\macros.inc'

include 'dialogs1.inc'

menu_history dd 0x0

START:                          ; start of execution

red:

     call draw_window_main

still:                          ; wait here for event

    mov  eax,10

    mcall

    cmp  eax,1                  ; process events

    je   red

    cmp  eax,2

    je   key

    cmp  eax,3

    je   button

    call check_mouse            ; DIALOG CHECK

    mov  eax,[menu_action]

    cmp  eax,[menu_history]

    je   nodisplay

    mov  [menu_history],eax

    mov  eax,13

    mov  ebx,220*65536+6*4

    mov  ecx,70*65536+8

    mov  edx,0xffffff

    mcall

    mov  eax,4                  ; show menu selections

    mov  ebx,220*65536+70

    mov  ecx,0x000000

    mov  edx,menu_action

    mov  esi,4

    mcall

  nodisplay:

    cmp  word [menu_action],word 'AD' ; user requests close

    jne  no_menu_close

    mov  eax,-1

    mcall

  no_menu_close:

    jmp  still

  key:

    mov  eax,2                  ; key in buffer

    mcall

    jmp  still

  button:                       ; button in buffer

    mov  eax,17

    mcall

    cmp  ah,1                   ; close application

    jne  noclose

    or  eax,-1

    mcall

  noclose:

    cmp  ah,2

    jne  no_alert_box           ; ALERT BOX

    mov  eax,170                ; window width

    mov  ebx,alert_text         ; asciiz string

    mov  ecx,1                  ; OK button

    call alert_box              ; function call

    jmp  still

  no_alert_box:

    cmp  ah,3

    jne  no_choose_box          ; CHOOSE BOX

    mov  eax,220                ; window width

    mov  ebx,choose_text        ; asciiz string

    mov  ecx,2                  ; YES/NO buttons

    call alert_box              ; function call

    jmp  still

  no_choose_box:

    jmp  still

;   *********************************************

;   *******  WINDOW DEFINITIONS AND DRAW ********

;   *********************************************

draw_window_main:

    mov  eax,12                    ; function 12:tell os about windowdraw

    mov  ebx,1                     ; 1, start of draw

    mcall

    mov  eax,0                     ; open window

    mov  ebx,100*65536+300

    mov  ecx,100*65536+120

    mov  edx,0x02ffffff

    mov  esi,0x805080d0

    mov  edi,0x005080d0

    mcall

    call draw_menu                 ; DRAW MENU

    mov  eax,4                     ; window label

    mov  ebx,8*65536+8

    mov  ecx,0x10ddeeff

    mov  edx,labelt

    mov  esi,labellen-labelt

    mcall

    mov  eax,8                     ; close button

    mov  ebx,(300-17)*65536+10

    mov  ecx,5*65536+10

    mov  edx,1

    mov  esi,0x4466bb

    mcall

    mov  eax,8                     ; button : OPEN ALERT BOX

    mov  ebx,25*65536+150

    mov  ecx,61*65536+14

    mov  edx,2

    mov  esi,0x4466aa

    mcall

    mov  eax,8                     ; button : OPEN CHOOSE BOX

    mov  ebx,25*65536+150

    mov  ecx,81*65536+14

    mov  edx,3

    mov  esi,0x4466aa

    mcall

    mov  ebx,20*65536+55           ; draw info text with function 4

    mov  ecx,0xffffff

    mov  edx,text

    mov  esi,40

  newline:

    mov  eax,4

    mcall

    add  ebx,10

    add  edx,40

    cmp  [edx],byte 'x'

    jne  newline

    mov  eax,12                    ; function 12:tell os about windowdraw

    mov  ebx,2                     ; 2, end of draw

    mcall

    ret

; DATA AREA

text:

    db '                                        '

    db '   OPEN ALERT BOX                       '

    db '                                        '

    db '   OPEN CHOOSE BOX                      '

    db 'x <- END MARKER, DONT DELETE            '

labelt:

     db   'EXAMPLE APPLICATION'

labellen:

alert_text   db  '    File not found !',0

choose_text  db  '    Save file before exit ? ',0

I_END: