--- G/Original/kernel/aes/aesmen.s 2018-12-17 16:04:28.000000000 +0100 +++ G/MagicMac/kernel/aes/AESMEN.S 2018-12-20 14:35:40.000000000 +0100 @@ -690,14 +690,35 @@ mon__ismine: move.l a5,menutree ; Menuebaum merken +* Set menu background color + + btst #7,look_flags+1 ; 3D look for menu + beq.b mon_co_end +mon_col_loop: + move.w ob_type(a5),d1 + and.w #$ff,d1 + cmp.w #$14,d1 ; G_BOX ? + bne.s mon_col_box + andi.w #-$0010,$e(a5) + ori.w #$0008,$0e(a5) + andi.w #-$0071,$e(a5) + ori.w #$0070,$e(a5) + bra.s mon_col_box1 +mon_col_box: + ori.w #$0400,ob_flags(a5) +mon_col_box1: + moveq #$20,d1 + movea.l a5,a4 + lea $0018(a5),a5 + and.w $0008(a4),d1 + beq.s mon_col_loop + move.l menutree,a5 +mon_co_end: + * Proportional-Systemfont: Menuetitel neu ausrichten tst.w finfo_big+fontmono bne mon_fontmono - btst #7,look_flags+1 - beq.b mon_2d1 - ori.w #FL3DBAK,24+ob_flags(a5) ; Objekt 1: Menueleiste -mon_2d1: move.w 2*24+ob_head(a5),d0 ; erster Menuetitel move.w 2*24+ob_x(a5),d7 ; abs. Pos. des ersten Titels bmi mon_fontmono ; keine Menuetitel @@ -713,10 +734,6 @@ lea 0(a5,d1.l),a6 move.w d5,ob_x(a6) ; Position auch fuer Menue add.w d7,ob_x(a6) - btst #7,look_flags+1 - beq.b mon_2d - ori.w #FL3DBAK,ob_flags(a6) -mon_2d: move.l a4,a0 ; OBJECT * jsr stw_title ; Breite setzen add.w ob_width(a4),d5 ; Breite addieren