Subversion Repositories Kolibri OS

use32

    org     0x0

;-------------------------------------------------------------------------------

    db	    "MENUET01"

    dd	    1, @code, @data, @mem, @stack, 0, 0

;-------------------------------------------------------------------------------

    include "../../macros.inc"

;===============================================================================

@code:

    mov     [tabs.index], byte 2

    mcall   48, 3, color, 40

;-------------------------------------------------------------------------------

main_loop:

    mcall   10

    cmp     eax, EV_REDRAW

    je	    event_redraw

    cmp     eax, EV_BUTTON

    je	    event_button

    jmp     main_loop

;-------------------------------------------------------------------------------

exit:

    mcall   -1

;-------------------------------------------------------------------------------

event_redraw:

    call    win.draw

    jmp     main_loop

;-------------------------------------------------------------------------------

event_button:

    mcall   17

    cmp     ah, 0x01

    je	    exit

    cmp     ah, 0x10

    je	    .tabs.walls

    cmp     ah, 0x11

    je	    .tabs.skins

    cmp     ah, 0x12

    je	    .tabs.docky

    cmp     ah, 0x13

    je	    .tabs.panel

    cmp     ah, 0x44

    je	    .checkbox_fsize

    jmp     main_loop

 .tabs.walls:

    mov     [tabs.index], byte 0

    call    win.draw

    jmp     main_loop

 .tabs.skins:

    mov     [tabs.index], byte 1

    call    win.draw

    jmp     main_loop

 .tabs.docky:

    mov     [tabs.index], byte 2

    call    win.draw

    jmp     main_loop

 .tabs.panel:

    mov     [tabs.index], byte 3

    call    win.draw

    jmp     main_loop

 .checkbox_fsize:

    mov     al, 1

    sub     al, byte [win.docky.fsize]

    mov     [win.docky.fsize], al

    push    183

    push    win.docky.fsize

    call    checkbox.draw

    jmp     main_loop

;-------------------------------------------------------------------------------

win.draw:

    mcall   12, 1

    mov     edx, [color.work]

    or	    edx, 0x34000000

    mcall   0, <128, 256>, <128, 299>, , , win.title

    call    tabs.draw

    mcall   12, 2

    ret

;-------------------------------------------------------------------------------

tabs.draw:

    mcall    8, <  8,  57>, < 9, 25>, 0x40000010

    mcall     , < 65,  57>,	    , 0x40000011

    mcall     , <122,  57>,	    , 0x40000012

    mcall     , <179,  58>,	    , 0x40000013

    mcall   13, <  9, 228>,	    , [color.work]

    mcall     , 	  , < 9,  1>, [color.workE]

    mcall     , 	  , <34,  1>

    mcall     , <  8,	1>, <10, 24>

    mcall     , < 65,	1>

    mcall     , <122,	1>

    mcall     , <179,	1>

    mcall     , <237,	1>

    mov     edx, [color.workE]

    cmp     [tabs.index], byte 0

    je	    .walls

    cmp     [tabs.index], byte 1

    je	    .skins

    cmp     [tabs.index], byte 2

    je	    .docky

    jmp     .panel

 .walls:

    mcall     , <  9,  56>

    mcall   4, < 22, 18>, [color.textE], tabs.walls_title, 5

    mcall    , < 79, 18>, [color.text] , tabs.skins_title

    mcall    , <136, 18>,	       , tabs.docky_title

    mcall    , <193, 18>,	       , tabs.panel_title

    call    tabs.walls.draw

    ret

 .skins:

    mcall     , < 66,  56>

    mcall   4, < 79, 18>, [color.textE], tabs.skins_title, 5

    mcall    , < 22, 18>, [color.text] , tabs.walls_title

    mcall    , <136, 18>,	       , tabs.docky_title

    mcall    , <193, 18>,	       , tabs.panel_title

    call    tabs.skins.draw

    ret

 .docky:

    mcall     , <123,  56>

    mcall   4, <136, 18>, [color.textE], tabs.docky_title, 5

    mcall    , < 79, 18>, [color.text] , tabs.skins_title

    mcall    , < 22, 18>,	       , tabs.walls_title

    mcall    , <193, 18>,	       , tabs.panel_title

    call    tabs.docky.draw

    ret

 .panel:

    mcall     , <180,  57>

    mcall   4, <193, 18>, [color.textE], tabs.panel_title, 5

    mcall    , < 79, 18>, [color.text] , tabs.skins_title

    mcall    , <136, 18>,	       , tabs.docky_title

    mcall    , < 22, 18>,	       , tabs.walls_title

    call    tabs.panel.draw

    ret

;-------------------------------------------------------------------------------

tabs.walls.draw:

    ret

;-------------------------------------------------------------------------------

tabs.skins.draw:

    ret

;-------------------------------------------------------------------------------

tabs.docky.draw:

  ; == FRAME: POSITION == ;

    mcall   13, <10, 226>, <48, 112>, [color.workE]

    mcall     , <11, 224>, <49, 110>, [color.textE]

    mcall     , <12, 222>, <50, 108>, [color.work]

    mov     ecx, [color.text]

    or	    ecx, 0xC0000000

    mcall   4, <20, 45>, , tabs.docky.frame_pos_title, , [color.work]

    mcall   8, < 81, 84>, < 64, 24>, 0x40, [color.workE]

    mcall    , < 58, 64>, < 91, 24>, 0x41

    mcall    , <125, 64>, < 91, 24>, 0x42

    mcall    , < 81, 84>, <118, 24>, 0x43

    mov     ecx, [color.textE]

    or	    ecx, 0x80000000

    mcall   4, <115,  73>, , tabs.docky.button_top

    mcall    , < 79, 100>, , tabs.docky.button_left

    mcall    , <106, 127>, , tabs.docky.button_bottom

    mcall    , <143, 100>, , tabs.docky.button_right

  ; == FRAME: SETTINGS == ;

    mcall   13, <10, 226>, <170, 40>, [color.workE]

    mcall     , <11, 224>, <171, 38>, [color.textE]

    mcall     , <12, 222>, <172, 36>, [color.work]

    mov     ecx, [color.text]

    or	    ecx, 0xC0000000

    mcall   4, <20, 167>, , tabs.docky.frame_set_title, , [color.work]

    mcall   8, <20, 206>, <182, 16>, 0x60000044

    mov     ecx, [color.text]

    or	    ecx, 0x80000000

    mcall   4, <20, 187>, , tabs.docky.checkbox_fsize_title

    push    183

    push    win.docky.fsize

    call    checkbox.draw

  ; == FRAME: THEARD == ;

    mcall   13, <10, 226>, <220, 44>, [color.workE]

    mcall     , <11, 224>, <221, 42>, [color.textE]

    mcall     , <12, 222>, <222, 40>, [color.work]

    mov     ecx, [color.text]

    or	    ecx, 0xC0000000

    mcall   4, <20, 217>, , tabs.docky.frame_theard_title, , [color.work]

    mcall   8, < 20,  98>, <230, 24>, 0x45, [color.workE]

    mcall   8, <128,  98>,	    , 0x46

    mov     ecx, [color.textE]

    or	    ecx, 0x80000000

    mcall   4, < 54,  238>, , tabs.docky.button_close

    mcall    , <139,  238>, , tabs.docky.button_start

    ret

;-------------------------------------------------------------------------------

tabs.panel.draw:

    ret

;-------------------------------------------------------------------------------

checkbox.draw:

    pop     ebp

    pop     edi

    pop     ecx

    push    ebp

    shl     ecx, 16

    mov     cx, 16

    mcall   13, <188, 34>, , [color.workE]

    sub     ecx, 2

    add     ecx, 0x00010000

    mcall     , <189, 32>, , [color.textE]

    mov     eax, 13

    mov     edx, [color.workE]

    cmp     [edi], byte 0

    je	    .draw_off

 .draw_on:

    mcall   , <189, 6>

    mov     edi, ecx

    shr     edi, 16

    add     edi, 3

    mcall   4, <189, edi>, [color.text], checkbox.on, 5

    ret

 .draw_off:

    mov     edx, [color.work]

    mcall   , <215, 6>

    mov     edi, ecx

    shr     edi, 16

    add     edi, 3

    mcall   4, <189, edi>, [color.text], checkbox.off, 5

    ret

;===============================================================================

win.title:

    db	    "Desktop configuration", 0

tabs.walls_title:

    db	    "Walls"

tabs.skins_title:

    db	    "Skins"

tabs.docky_title:

    db	    "Docky"

tabs.panel_title:

    db	    "Panel"

tabs.docky.frame_pos_title:

    db	    " Position ", 0

tabs.docky.button_top:

    db	    "TOP", 0

tabs.docky.button_left:

    db	    "LEFT", 0

tabs.docky.button_bottom:

    db	    "BOTTOM", 0

tabs.docky.button_right:

    db	    "RIGHT", 0

tabs.docky.frame_set_title:

    db	    " Settings ", 0

tabs.docky.checkbox_fsize_title:

    db	    "Full size mode", 0

tabs.docky.frame_theard_title:

    db	    " Theard ", 0

tabs.docky.button_close:

    db	    "Close", 0

tabs.docky.button_start:

    db	    "Start/Restart", 0

checkbox.on:

    db	    "  ON "

checkbox.off:

    db	    " OFF "

@data:

;===============================================================================

    rb	    2048

@stack:

;-------------------------------------------------------------------------------

win.docky.fsize:

    rb	    1

tabs.index:

    rb	    1

color:

 .frame:

    rd	    5

 .work:

    rd	    1

 .workE:

    rd	    1

 .textE:

    rd	    1

 .text:

    rd	    2

@mem: