• R/O
  • SSH
  • HTTPS

macemacsjp: Commit


Commit MetaInfo

Revision418 (tree)
Time2005-01-28 23:53:30
Authormatsuan

Log Message

Added Files:
readme.ja transparency.patch : first release of transaparency

Change Summary

Incremental Difference

--- transparency/trunk/transparency.patch (nonexistent)
+++ transparency/trunk/transparency.patch (revision 418)
@@ -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,
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: svn:keywords
## -0,0 +1 ##
+Author Date Id Revision
\ No newline at end of property
Show on old repository browser