Added Files:
readme.ja transparency.patch : first release of transaparency
@@ -0,0 +1,87 @@ | ||
1 | +diff -crN emacs.old/src/macterm.c emacs/src/macterm.c | |
2 | +*** emacs.old/src/macterm.c Thu Jan 27 09:01:55 2005 | |
3 | +--- emacs/src/macterm.c Thu Jan 27 09:01:27 2005 | |
4 | +*************** | |
5 | +*** 303,308 **** | |
6 | +--- 303,311 ---- | |
7 | + extern void menubar_selection_callback (FRAME_PTR, int); | |
8 | + extern void set_frame_menubar (FRAME_PTR, int, int); | |
9 | + | |
10 | ++ /* Make Transparency */ | |
11 | ++ int mac_transparency_alpha; | |
12 | ++ | |
13 | + /* X display function emulation */ | |
14 | + | |
15 | + void | |
16 | +*************** | |
17 | +*** 5297,5302 **** | |
18 | +--- 5285,5292 ---- | |
19 | + f->win_gravity = NorthWestGravity; | |
20 | + x_wm_set_size_hint (f, (long) 0, 0); | |
21 | + | |
22 | ++ SetWindowAlpha (f->output_data.mac->mWP, ((float)mac_transparency_alpha/100)); | |
23 | ++ | |
24 | + SizeWindow (FRAME_MAC_WINDOW (f), pixelwidth, pixelheight, 0); | |
25 | + | |
26 | + /* Now, strictly speaking, we can't be sure that this is accurate, | |
27 | +*************** | |
28 | +*** 9986,9991 **** | |
29 | +--- 9950,9960 ---- | |
30 | + command, this enables the Mac keyboard to be used to enter non-ASCII | |
31 | + characters directly. */); | |
32 | + mac_keyboard_text_encoding = kTextEncodingMacRoman; | |
33 | ++ | |
34 | ++ DEFVAR_INT ("mac-transparency-alpha", &mac_transparency_alpha, | |
35 | ++ doc: /* Transparency ratio, can be set integer between 0 to 100. | |
36 | ++ 0 means fully transparent, 100 means non transparent */); | |
37 | ++ mac_transparency_alpha = 100; | |
38 | + } | |
39 | + | |
40 | + /* arch-tag: f2259165-4454-4c04-a029-a133c8af7b5b | |
41 | +diff -crN emacs.old/src/w32term.c emacs/src/w32term.c | |
42 | +*** emacs.old/src/w32term.c Thu Jan 27 09:01:48 2005 | |
43 | +--- emacs/src/w32term.c Thu Jan 27 09:01:36 2005 | |
44 | +*************** | |
45 | +*** 264,269 **** | |
46 | +--- 264,274 ---- | |
47 | + | |
48 | + static Lisp_Object Qvendor_specific_keysyms; | |
49 | + | |
50 | ++ /* Make Transparency */ | |
51 | ++ int w32_transparency_alpha; | |
52 | ++ | |
53 | ++ | |
54 | ++ | |
55 | + | |
56 | + /*********************************************************************** | |
57 | + Debugging | |
58 | +*************** | |
59 | +*** 5574,5579 **** | |
60 | +--- 5579,5591 ---- | |
61 | + FRAME_EXTERNAL_MENU_BAR (f)); | |
62 | + #endif | |
63 | + | |
64 | ++ SetWindowLong(FRAME_W32_WINDOW (f),GWL_EXSTYLE,WS_EX_LAYERED); | |
65 | ++ SetLayeredWindowAttributes(FRAME_W32_WINDOW (f), | |
66 | ++ RGB(255, 255, 255), | |
67 | ++ (int)((float)w32_transparency_alpha/(float)100*(float)255), | |
68 | ++ LWA_ALPHA); | |
69 | ++ | |
70 | ++ | |
71 | + my_set_window_pos (FRAME_W32_WINDOW (f), | |
72 | + NULL, | |
73 | + 0, 0, | |
74 | +*************** | |
75 | +*** 6570,6575 **** | |
76 | +--- 6582,6592 ---- | |
77 | + When this variable is set, other variables affecting the appearance of | |
78 | + the cursor have no effect. */); | |
79 | + | |
80 | ++ DEFVAR_INT ("w32-transparency-alpha", &w32_transparency_alpha, | |
81 | ++ doc: /* Transparency ratio, can be set integer between 0 to 100. | |
82 | ++ 0 means fully transparent, 100 means non transparent */); | |
83 | ++ w32_transparency_alpha = 100; | |
84 | ++ | |
85 | + /* Initialize w32_use_visible_system_caret based on whether a screen | |
86 | + reader is in use. */ | |
87 | + if (!SystemParametersInfo (SPI_GETSCREENREADER, 0, |