annotate src/gui_haiku.cc @ 19880:50fa63ca3828 v8.2.0496

patch 8.2.0496: Vim9: disassemble test fails Commit: https://github.com/vim/vim/commit/a4d4cf490e2974843c80598e6f40f83aae658fd3 Author: Bram Moolenaar <Bram@vim.org> Date: Thu Apr 2 13:50:27 2020 +0200 patch 8.2.0496: Vim9: disassemble test fails Problem: Vim9: disassemble test fails. Solution: Separate test cases with recognized constant expressions.
author Bram Moolenaar <Bram@vim.org>
date Thu, 02 Apr 2020 14:00:06 +0200
parents 22f0dda71638
children 352701a626ed
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
19526
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1 /* vi:set ts=8 sts=4 sw=4:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3 * VIM - Vi IMproved by Bram Moolenaar
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4 * BeBox GUI support Copyright 1998 by Olaf Seibert.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5 * All Rights Reserved.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
6 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
7 * Do ":help uganda" in Vim to read copying and usage conditions.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
8 * Do ":help credits" in Vim to see a list of people who contributed.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
9 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
10 * Based on "GUI support for the Buzzword Enhanced Operating System."
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
11 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
12 * Ported to R4 by Richard Offer <richard@whitequeen.com> Jul 99
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
13 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
14 * Haiku support by Siarzhuk Zharski <imker@gmx.li> Apr-Mai 2009
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
15 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
16 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
17
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
18 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
19 * Structure of the Haiku GUI code:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
20 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
21 * There are 3 threads.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
22 * 1. The initial thread. In gui_mch_prepare() this gets to run the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
23 * BApplication message loop. But before it starts doing that,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
24 * it creates thread 2
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
25 * 2. The main() thread. This thread is created in gui_mch_prepare()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
26 * and its purpose in life is to call main(argc, argv) again.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
27 * This thread is doing the bulk of the work.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
28 * 3. Sooner or later, a window is opened by the main() thread. This
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
29 * causes a second message loop to be created: the window thread.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
30 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
31 * == alternatively ===
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
32 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
33 * #if RUN_BAPPLICATION_IN_NEW_THREAD...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
34 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
35 * 1. The initial thread. In gui_mch_prepare() this gets to spawn
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
36 * thread 2. After doing that, it returns to main() to do the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
37 * bulk of the work, being the main() thread.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
38 * 2. Runs the BApplication.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
39 * 3. The window thread, just like in the first case.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
40 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
41 * This second alternative is cleaner from Vim's viewpoint. However,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
42 * the BeBook seems to assume everywhere that the BApplication *must*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
43 * run in the initial thread. So perhaps doing otherwise is very wrong.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
44 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
45 * However, from a B_SINGLE_LAUNCH viewpoint, the first is better.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
46 * If Vim is marked "Single Launch" in its application resources,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
47 * and a file is dropped on the Vim icon, and another Vim is already
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
48 * running, the file is passed on to the earlier Vim. This happens
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
49 * in BApplication::Run(). So we want Vim to terminate if
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
50 * BApplication::Run() terminates. (See the BeBook, on BApplication.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
51 * However, it seems that the second copy of Vim isn't even started
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
52 * in this case... which is for the better since I wouldn't know how
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
53 * to detect this case.)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
54 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
55 * Communication between these threads occurs mostly by translating
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
56 * BMessages that come in and posting an appropriate translation on
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
57 * the VDCMP (Vim Direct Communication Message Port). Therefore the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
58 * actions required for keypresses and window resizes, etc, are mostly
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
59 * performed in the main() thread.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
60 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
61 * A notable exception to this is the Draw() event. The redrawing of
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
62 * the window contents is performed asynchronously from the window
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
63 * thread. To make this work correctly, a locking protocol is used when
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
64 * any thread is accessing the essential variables that are used by
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
65 * the window thread.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
66 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
67 * This locking protocol consists of locking Vim's window. This is both
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
68 * convenient and necessary.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
69 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
70
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
71 extern "C" {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
72
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
73 #include <assert.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
74 #include <float.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
75 #include <syslog.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
76
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
77 #include "vim.h"
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
78 #include "globals.h"
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
79 #include "proto.h"
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
80 #include "version.h"
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
81
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
82 } // extern "C"
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
83
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
84 // ---------------- start of header part ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
85
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
86 //#include <Alert.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
87 #include <Application.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
88 #include <Beep.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
89 #include <Bitmap.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
90 #include <Box.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
91 #include <Button.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
92 #include <Clipboard.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
93 #include <Debug.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
94 //#include <Directory.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
95 //#include <Entry.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
96 #include <File.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
97 #include <FilePanel.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
98 #include <FindDirectory.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
99 //#include <Font.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
100 #include <IconUtils.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
101 #include <Input.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
102 #include <ListView.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
103 #include <MenuBar.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
104 #include <MenuItem.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
105 //#include <MessageQueue.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
106 //#include <OS.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
107 #include <Path.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
108 #include <PictureButton.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
109 #include <PopUpMenu.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
110 //#include <Region.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
111 #include <Resources.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
112 //#include <Roster.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
113 #include <Screen.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
114 #include <ScrollBar.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
115 #include <ScrollView.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
116 #include <String.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
117 #include <StringView.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
118 //#include <SupportDefs.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
119 #include <TabView.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
120 #include <TextControl.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
121 #include <TextView.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
122 #include <TranslationUtils.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
123 #include <TranslatorFormats.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
124 #include <View.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
125 #include <Window.h>
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
126
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
127 class VimApp;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
128 class VimFormView;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
129 class VimTextAreaView;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
130 class VimWindow;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
131 class VimToolbar;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
132 class VimTabLine;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
133
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
134 extern key_map *keyMap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
135 extern char *keyMapChars;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
136
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
137 extern int main(int argc, char **argv);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
138
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
139 #ifndef B_MAX_PORT_COUNT
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
140 #define B_MAX_PORT_COUNT 255
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
141 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
142
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
143 // VimApp seems comparable to the X "vimShell"
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
144 class VimApp: public BApplication
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
145 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
146 typedef BApplication Inherited;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
147 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
148 VimApp(const char *appsig);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
149 ~VimApp();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
150
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
151 // callbacks:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
152 #if 0
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
153 virtual void DispatchMessage(BMessage *m, BHandler *h)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
154 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
155 m->PrintToStream();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
156 Inherited::DispatchMessage(m, h);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
157 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
158 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
159 virtual void ReadyToRun();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
160 virtual void ArgvReceived(int32 argc, char **argv);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
161 virtual void RefsReceived(BMessage *m);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
162 virtual bool QuitRequested();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
163 virtual void MessageReceived(BMessage *m);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
164
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
165 static void SendRefs(BMessage *m, bool changedir);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
166
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
167 sem_id fFilePanelSem;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
168 BFilePanel* fFilePanel;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
169 BPath fBrowsedPath;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
170 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
171 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
172
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
173 class VimWindow: public BWindow
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
174 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
175 typedef BWindow Inherited;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
176 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
177 VimWindow();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
178 ~VimWindow();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
179
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
180 // virtual void DispatchMessage(BMessage *m, BHandler *h);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
181 virtual void WindowActivated(bool active);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
182 virtual bool QuitRequested();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
183
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
184 VimFormView *formView;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
185
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
186 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
187 void init();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
188
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
189 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
190
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
191 class VimFormView: public BView
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
192 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
193 typedef BView Inherited;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
194 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
195 VimFormView(BRect frame);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
196 ~VimFormView();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
197
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
198 // callbacks:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
199 virtual void AllAttached();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
200 virtual void FrameResized(float new_width, float new_height);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
201
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
202 #define MENUBAR_MARGIN 1
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
203 float MenuHeight() const
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
204 { return menuBar ? menuBar->Frame().Height() + MENUBAR_MARGIN: 0; }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
205 BMenuBar *MenuBar() const
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
206 { return menuBar; }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
207
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
208 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
209 void init(BRect);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
210
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
211 BMenuBar *menuBar;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
212 VimTextAreaView *textArea;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
213
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
214 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
215 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
216 float ToolbarHeight() const;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
217 VimToolbar *ToolBar() const
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
218 { return toolBar; }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
219 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
220 VimToolbar *toolBar;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
221 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
222
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
223 #ifdef FEAT_GUI_TABLINE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
224 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
225 VimTabLine *TabLine() const { return tabLine; }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
226 bool IsShowingTabLine() const { return showingTabLine; }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
227 void SetShowingTabLine(bool showing) { showingTabLine = showing; }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
228 float TablineHeight() const;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
229 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
230 VimTabLine *tabLine;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
231 int showingTabLine;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
232 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
233 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
234
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
235 class VimTextAreaView: public BView
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
236 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
237 typedef BView Inherited;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
238 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
239 VimTextAreaView(BRect frame);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
240 ~VimTextAreaView();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
241
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
242 // callbacks:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
243 virtual void Draw(BRect updateRect);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
244 virtual void KeyDown(const char *bytes, int32 numBytes);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
245 virtual void MouseDown(BPoint point);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
246 virtual void MouseUp(BPoint point);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
247 virtual void MouseMoved(BPoint point, uint32 transit, const BMessage *message);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
248 virtual void MessageReceived(BMessage *m);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
249
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
250 // own functions:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
251 int mchInitFont(char_u *name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
252 void mchDrawString(int row, int col, char_u *s, int len, int flags);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
253 void mchClearBlock(int row1, int col1, int row2, int col2);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
254 void mchClearAll();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
255 void mchDeleteLines(int row, int num_lines);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
256 void mchInsertLines(int row, int num_lines);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
257
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
258 static void guiSendMouseEvent(int button, int x, int y, int repeated_click, int_u modifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
259 static void guiMouseMoved(int x, int y);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
260 static void guiBlankMouse(bool should_hide);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
261 static int_u mouseModifiersToVim(int32 beModifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
262
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
263 int32 mouseDragEventCount;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
264
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
265 #ifdef FEAT_MBYTE_IME
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
266 void DrawIMString(void);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
267 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
268
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
269 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
270 void init(BRect);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
271
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
272 int_u vimMouseButton;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
273 int_u vimMouseModifiers;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
274
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
275 #ifdef FEAT_MBYTE_IME
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
276 struct {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
277 BMessenger* messenger;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
278 BMessage* message;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
279 BPoint location;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
280 int row;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
281 int col;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
282 int count;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
283 } IMData;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
284 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
285 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
286
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
287 class VimScrollBar: public BScrollBar
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
288 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
289 typedef BScrollBar Inherited;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
290 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
291 VimScrollBar(scrollbar_T *gsb, orientation posture);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
292 ~VimScrollBar();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
293
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
294 virtual void ValueChanged(float newValue);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
295 virtual void MouseUp(BPoint where);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
296 void SetValue(float newval);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
297 scrollbar_T *getGsb()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
298 { return gsb; }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
299
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
300 int32 scrollEventCount;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
301
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
302 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
303 scrollbar_T *gsb;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
304 float ignoreValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
305 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
306
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
307
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
308 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
309
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
310 class VimToolbar : public BBox
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
311 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
312 static BBitmap *normalButtonsBitmap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
313 static BBitmap *grayedButtonsBitmap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
314
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
315 BBitmap *LoadVimBitmap(const char* fileName);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
316 bool GetPictureFromBitmap(BPicture *pictureTo, int32 index, BBitmap *bitmapFrom, bool pressed);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
317 bool ModifyBitmapToGrayed(BBitmap *bitmap);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
318
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
319 BList fButtonsList;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
320 void InvalidateLayout();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
321
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
322 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
323 VimToolbar(BRect frame, const char * name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
324 ~VimToolbar();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
325
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
326 bool PrepareButtonBitmaps();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
327
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
328 bool AddButton(int32 index, vimmenu_T *menu);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
329 bool RemoveButton(vimmenu_T *menu);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
330 bool GrayButton(vimmenu_T *menu, int grey);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
331
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
332 float ToolbarHeight() const;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
333 virtual void AttachedToWindow();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
334 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
335
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
336 BBitmap *VimToolbar::normalButtonsBitmap = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
337 BBitmap *VimToolbar::grayedButtonsBitmap = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
338
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
339 const float ToolbarMargin = 3.;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
340 const float ButtonMargin = 3.;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
341
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
342 #endif //FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
343
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
344 #ifdef FEAT_GUI_TABLINE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
345
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
346 class VimTabLine : public BTabView
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
347 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
348 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
349 class VimTab : public BTab {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
350 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
351 VimTab() : BTab(new BView(BRect(), "-Empty-", 0, 0)) {}
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
352
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
353 virtual void Select(BView* owner);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
354 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
355
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
356 VimTabLine(BRect r) : BTabView(r, "vimTabLine", B_WIDTH_FROM_LABEL,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
357 B_FOLLOW_LEFT | B_FOLLOW_TOP | B_FOLLOW_RIGHT, B_WILL_DRAW | B_FRAME_EVENTS) {}
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
358
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
359 float TablineHeight() const;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
360 virtual void MouseDown(BPoint point);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
361 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
362
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
363 #endif //FEAT_GUI_TABLINE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
364
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
365
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
366 // For caching the fonts that are used;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
367 // Vim seems rather sloppy in this regard.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
368 class VimFont: public BFont
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
369 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
370 typedef BFont Inherited;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
371 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
372 VimFont();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
373 VimFont(const VimFont *rhs);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
374 VimFont(const BFont *rhs);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
375 VimFont(const VimFont &rhs);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
376 ~VimFont();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
377
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
378 VimFont *next;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
379 int refcount;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
380 char_u *name;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
381
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
382 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
383 void init();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
384 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
385
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
386 #if defined(FEAT_GUI_DIALOG)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
387
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
388 class VimDialog : public BWindow
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
389 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
390 typedef BWindow Inherited;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
391
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
392 BButton* _CreateButton(int32 which, const char* label);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
393
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
394 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
395
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
396 class View : public BView {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
397 typedef BView Inherited;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
398
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
399 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
400 View(BRect frame);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
401 ~View();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
402
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
403 virtual void Draw(BRect updateRect);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
404 void InitIcon(int32 type);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
405
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
406 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
407 BBitmap* fIconBitmap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
408 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
409
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
410 VimDialog(int type, const char *title, const char *message,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
411 const char *buttons, int dfltbutton, const char *textfield,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
412 int ex_cmd);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
413 ~VimDialog();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
414
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
415 int Go();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
416
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
417 virtual void MessageReceived(BMessage *msg);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
418
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
419 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
420 sem_id fDialogSem;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
421 int fDialogValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
422 BList fButtonsList;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
423 BTextView* fMessageView;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
424 BTextControl* fInputControl;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
425 const char* fInputValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
426 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
427
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
428 class VimSelectFontDialog : public BWindow
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
429 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
430 typedef BWindow Inherited;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
431
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
432 void _CleanList(BListView* list);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
433 void _UpdateFontStyles();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
434 void _UpdateSizeInputPreview();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
435 void _UpdateFontPreview();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
436 bool _UpdateFromListItem(BListView* list, char* text, int textSize);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
437 public:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
438
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
439 VimSelectFontDialog(font_family* family, font_style* style, float* size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
440 ~VimSelectFontDialog();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
441
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
442 bool Go();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
443
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
444 virtual void MessageReceived(BMessage *msg);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
445
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
446 private:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
447 status_t fStatus;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
448 sem_id fDialogSem;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
449 bool fDialogValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
450 font_family* fFamily;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
451 font_style* fStyle;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
452 float* fSize;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
453 font_family fFontFamily;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
454 font_style fFontStyle;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
455 float fFontSize;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
456 BStringView* fPreview;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
457 BListView* fFamiliesList;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
458 BListView* fStylesList;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
459 BListView* fSizesList;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
460 BTextControl* fSizesInput;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
461 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
462
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
463 #endif // FEAT_GUI_DIALOG
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
464
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
465 // ---------------- end of GUI classes ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
466
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
467 struct MainArgs {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
468 int argc;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
469 char **argv;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
470 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
471
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
472 // These messages are copied through the VDCMP.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
473 // Therefore they ought not to have anything fancy.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
474 // They must be of POD type (Plain Old Data)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
475 // as the C++ standard calls them.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
476
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
477 #define KEY_MSG_BUFSIZ 7
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
478 #if KEY_MSG_BUFSIZ < MAX_KEY_CODE_LEN
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
479 #error Increase KEY_MSG_BUFSIZ!
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
480 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
481
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
482 struct VimKeyMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
483 char_u length;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
484 char_u chars[KEY_MSG_BUFSIZ]; // contains Vim encoding
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
485 bool csi_escape;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
486 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
487
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
488 struct VimResizeMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
489 int width;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
490 int height;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
491 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
492
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
493 struct VimScrollBarMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
494 VimScrollBar *sb;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
495 long value;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
496 int stillDragging;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
497 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
498
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
499 struct VimMenuMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
500 vimmenu_T *guiMenu;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
501 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
502
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
503 struct VimMouseMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
504 int button;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
505 int x;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
506 int y;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
507 int repeated_click;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
508 int_u modifiers;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
509 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
510
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
511 struct VimMouseMovedMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
512 int x;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
513 int y;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
514 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
515
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
516 struct VimFocusMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
517 bool active;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
518 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
519
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
520 struct VimRefsMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
521 BMessage *message;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
522 bool changedir;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
523 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
524
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
525 struct VimTablineMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
526 int index;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
527 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
528
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
529 struct VimTablineMenuMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
530 int index;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
531 int event;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
532 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
533
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
534 struct VimMsg {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
535 enum VimMsgType {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
536 Key, Resize, ScrollBar, Menu, Mouse, MouseMoved, Focus, Refs, Tabline, TablineMenu
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
537 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
538
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
539 union {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
540 struct VimKeyMsg Key;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
541 struct VimResizeMsg NewSize;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
542 struct VimScrollBarMsg Scroll;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
543 struct VimMenuMsg Menu;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
544 struct VimMouseMsg Mouse;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
545 struct VimMouseMovedMsg MouseMoved;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
546 struct VimFocusMsg Focus;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
547 struct VimRefsMsg Refs;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
548 struct VimTablineMsg Tabline;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
549 struct VimTablineMenuMsg TablineMenu;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
550 } u;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
551 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
552
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
553 #define RGB(r, g, b) ((char_u)(r) << 16 | (char_u)(g) << 8 | (char_u)(b) << 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
554 #define GUI_TO_RGB(g) { (g) >> 16, (g) >> 8, (g) >> 0, 255 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
555
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
556 // ---------------- end of header part ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
557
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
558 static struct specialkey
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
559 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
560 uint16 BeKeys;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
561 #define KEY(a,b) ((a)<<8|(b))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
562 #define K(a) KEY(0,a) // for ASCII codes
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
563 #define F(b) KEY(1,b) // for scancodes
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
564 char_u vim_code0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
565 char_u vim_code1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
566 } special_keys[] =
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
567 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
568 {K(B_UP_ARROW), 'k', 'u'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
569 {K(B_DOWN_ARROW), 'k', 'd'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
570 {K(B_LEFT_ARROW), 'k', 'l'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
571 {K(B_RIGHT_ARROW), 'k', 'r'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
572 {K(B_BACKSPACE), 'k', 'b'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
573 {K(B_INSERT), 'k', 'I'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
574 {K(B_DELETE), 'k', 'D'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
575 {K(B_HOME), 'k', 'h'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
576 {K(B_END), '@', '7'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
577 {K(B_PAGE_UP), 'k', 'P'}, // XK_Prior
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
578 {K(B_PAGE_DOWN), 'k', 'N'}, // XK_Next,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
579
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
580 #define FIRST_FUNCTION_KEY 11
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
581 {F(B_F1_KEY), 'k', '1'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
582 {F(B_F2_KEY), 'k', '2'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
583 {F(B_F3_KEY), 'k', '3'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
584 {F(B_F4_KEY), 'k', '4'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
585 {F(B_F5_KEY), 'k', '5'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
586 {F(B_F6_KEY), 'k', '6'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
587 {F(B_F7_KEY), 'k', '7'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
588 {F(B_F8_KEY), 'k', '8'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
589 {F(B_F9_KEY), 'k', '9'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
590 {F(B_F10_KEY), 'k', ';'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
591
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
592 {F(B_F11_KEY), 'F', '1'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
593 {F(B_F12_KEY), 'F', '2'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
594 // {XK_F13, 'F', '3'}, // would be print screen
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
595 // sysreq
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
596 {F(0x0F), 'F', '4'}, // scroll lock
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
597 {F(0x10), 'F', '5'}, // pause/break
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
598 // {XK_F16, 'F', '6'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
599 // {XK_F17, 'F', '7'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
600 // {XK_F18, 'F', '8'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
601 // {XK_F19, 'F', '9'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
602 // {XK_F20, 'F', 'A'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
603 // {XK_F21, 'F', 'B'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
604 // {XK_F22, 'F', 'C'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
605 // {XK_F23, 'F', 'D'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
606 // {XK_F24, 'F', 'E'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
607 // {XK_F25, 'F', 'F'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
608 // {XK_F26, 'F', 'G'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
609 // {XK_F27, 'F', 'H'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
610 // {XK_F28, 'F', 'I'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
611 // {XK_F29, 'F', 'J'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
612 // {XK_F30, 'F', 'K'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
613 // {XK_F31, 'F', 'L'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
614 // {XK_F32, 'F', 'M'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
615 // {XK_F33, 'F', 'N'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
616 // {XK_F34, 'F', 'O'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
617 // {XK_F35, 'F', 'P'}, // keysymdef.h defines up to F35
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
618
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
619 // {XK_Help, '%', '1'}, // XK_Help
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
620 {F(B_PRINT_KEY), '%', '9'},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
621
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
622 #if 0
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
623 // Keypad keys:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
624 {F(0x48), 'k', 'l'}, // XK_KP_Left
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
625 {F(0x4A), 'k', 'r'}, // XK_KP_Right
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
626 {F(0x38), 'k', 'u'}, // XK_KP_Up
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
627 {F(0x59), 'k', 'd'}, // XK_KP_Down
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
628 {F(0x64), 'k', 'I'}, // XK_KP_Insert
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
629 {F(0x65), 'k', 'D'}, // XK_KP_Delete
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
630 {F(0x37), 'k', 'h'}, // XK_KP_Home
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
631 {F(0x58), '@', '7'}, // XK_KP_End
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
632 {F(0x39), 'k', 'P'}, // XK_KP_Prior
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
633 {F(0x60), 'k', 'N'}, // XK_KP_Next
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
634 {F(0x49), '&', '8'}, // XK_Undo, keypad 5
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
635 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
636
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
637 // End of list marker:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
638 {0, 0, 0}
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
639 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
640
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
641 #define NUM_SPECIAL_KEYS (sizeof(special_keys)/sizeof(special_keys[0]))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
642
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
643 // ---------------- VimApp ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
644
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
645 static void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
646 docd(BPath &path)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
647 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
648 mch_chdir((char *)path.Path());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
649 // Do this to get the side effects of a :cd command
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
650 do_cmdline_cmd((char_u *)"cd .");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
651 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
652
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
653 static void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
654 drop_callback(void *cookie)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
655 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
656 // TODO here we could handle going to a specific position in the dropped
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
657 // file (see src/gui_mac.c)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
658 // Update the screen display
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
659 update_screen(NOT_VALID);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
660 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
661
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
662 // Really handle dropped files and folders.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
663 static void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
664 RefsReceived(BMessage *m, bool changedir)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
665 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
666 uint32 type;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
667 int32 count;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
668
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
669 m->PrintToStream();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
670 switch (m->what) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
671 case B_REFS_RECEIVED:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
672 case B_SIMPLE_DATA:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
673 m->GetInfo("refs", &type, &count);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
674 if (type != B_REF_TYPE)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
675 goto bad;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
676 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
677 case B_ARGV_RECEIVED:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
678 m->GetInfo("argv", &type, &count);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
679 if (type != B_STRING_TYPE)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
680 goto bad;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
681 if (changedir) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
682 char *dirname;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
683 if (m->FindString("cwd", (const char **) &dirname) == B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
684 chdir(dirname);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
685 do_cmdline_cmd((char_u *)"cd .");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
686 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
687 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
688 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
689 default:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
690 bad:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
691 /*fprintf(stderr, "bad!\n"); */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
692 delete m;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
693 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
694 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
695
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
696 #ifdef FEAT_VISUAL
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
697 reset_VIsual();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
698 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
699
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
700 char_u **fnames;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
701 fnames = (char_u **) alloc(count * sizeof(char_u *));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
702 int fname_index = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
703
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
704 switch (m->what) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
705 case B_REFS_RECEIVED:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
706 case B_SIMPLE_DATA:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
707 // fprintf(stderr, "case B_REFS_RECEIVED\n");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
708 for (int i = 0; i < count; ++i)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
709 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
710 entry_ref ref;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
711 if (m->FindRef("refs", i, &ref) == B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
712 BEntry entry(&ref, false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
713 BPath path;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
714 entry.GetPath(&path);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
715
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
716 // Change to parent directory?
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
717 if (changedir) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
718 BPath parentpath;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
719 path.GetParent(&parentpath);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
720 docd(parentpath);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
721 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
722
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
723 // Is it a directory? If so, cd into it.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
724 BDirectory bdir(&ref);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
725 if (bdir.InitCheck() == B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
726 // don't cd if we already did it
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
727 if (!changedir)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
728 docd(path);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
729 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
730 mch_dirname(IObuff, IOSIZE);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
731 char_u *fname = shorten_fname((char_u *)path.Path(), IObuff);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
732 if (fname == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
733 fname = (char_u *)path.Path();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
734 fnames[fname_index++] = vim_strsave(fname);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
735 // fprintf(stderr, "%s\n", fname);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
736 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
737
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
738 // Only do it for the first file/dir
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
739 changedir = false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
740 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
741 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
742 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
743 case B_ARGV_RECEIVED:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
744 // fprintf(stderr, "case B_ARGV_RECEIVED\n");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
745 for (int i = 1; i < count; ++i)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
746 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
747 char *fname;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
748
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
749 if (m->FindString("argv", i, (const char **) &fname) == B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
750 fnames[fname_index++] = vim_strsave((char_u *)fname);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
751 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
752 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
753 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
754 default:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
755 // fprintf(stderr, "case default\n");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
756 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
757 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
758
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
759 delete m;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
760
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
761 // Handle the drop, :edit to get to the file
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
762 if (fname_index > 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
763 handle_drop(fname_index, fnames, FALSE, drop_callback, NULL);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
764
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
765 setcursor();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
766 out_flush();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
767 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
768 vim_free(fnames);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
769 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
770 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
771
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
772 VimApp::VimApp(const char *appsig):
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
773 BApplication(appsig),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
774 fFilePanelSem(-1),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
775 fFilePanel(NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
776 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
777 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
778
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
779 VimApp::~VimApp()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
780 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
781 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
782
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
783 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
784 VimApp::ReadyToRun()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
785 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
786 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
787 * Apparently signals are inherited by the created thread -
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
788 * disable the most annoying ones.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
789 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
790 signal(SIGINT, SIG_IGN);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
791 signal(SIGQUIT, SIG_IGN);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
792 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
793
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
794 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
795 VimApp::ArgvReceived(int32 arg_argc, char **arg_argv)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
796 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
797 if (!IsLaunching()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
798 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
799 * This can happen if we are set to Single or Exclusive
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
800 * Launch. Be nice and open the file(s).
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
801 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
802 if (gui.vimWindow)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
803 gui.vimWindow->Minimize(false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
804 BMessage *m = CurrentMessage();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
805 DetachCurrentMessage();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
806 SendRefs(m, true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
807 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
808 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
809
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
810 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
811 VimApp::RefsReceived(BMessage *m)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
812 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
813 // Horrible hack!!! XXX XXX XXX
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
814 // The real problem is that b_start_ffc is set too late for
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
815 // the initial empty buffer. As a result the window will be
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
816 // split instead of abandoned.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
817 int limit = 15;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
818 while (--limit >= 0 && (curbuf == NULL || curbuf->b_start_ffc == 0))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
819 snooze(100000); // 0.1 s
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
820 if (gui.vimWindow)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
821 gui.vimWindow->Minimize(false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
822 DetachCurrentMessage();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
823 SendRefs(m, true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
824 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
825
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
826 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
827 * Pass a BMessage on to the main() thread.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
828 * Caller must have detached the message.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
829 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
830 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
831 VimApp::SendRefs(BMessage *m, bool changedir)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
832 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
833 VimRefsMsg rm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
834 rm.message = m;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
835 rm.changedir = changedir;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
836
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
837 write_port(gui.vdcmp, VimMsg::Refs, &rm, sizeof(rm));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
838 // calls ::RefsReceived
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
839 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
840
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
841 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
842 VimApp::MessageReceived(BMessage *m)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
843 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
844 switch (m->what) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
845 case 'save':
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
846 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
847 entry_ref refDirectory;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
848 m->FindRef("directory", &refDirectory);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
849 fBrowsedPath.SetTo(&refDirectory);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
850 BString strName;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
851 m->FindString("name", &strName);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
852 fBrowsedPath.Append(strName.String());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
853 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
854 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
855 case 'open':
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
856 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
857 entry_ref ref;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
858 m->FindRef("refs", &ref);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
859 fBrowsedPath.SetTo(&ref);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
860 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
861 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
862 case B_CANCEL:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
863 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
864 BFilePanel *panel;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
865 m->FindPointer("source", (void**)&panel);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
866 if(fFilePanelSem != -1 && panel == fFilePanel)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
867 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
868 delete_sem(fFilePanelSem);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
869 fFilePanelSem = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
870 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
871
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
872 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
873 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
874 default:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
875 Inherited::MessageReceived(m);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
876 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
877 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
878 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
879
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
880 bool
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
881 VimApp::QuitRequested()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
882 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
883 (void)Inherited::QuitRequested();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
884 return false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
885 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
886
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
887 // ---------------- VimWindow ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
888
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
889 VimWindow::VimWindow():
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
890 BWindow(BRect(40, 40, 150, 150),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
891 "Vim",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
892 B_TITLED_WINDOW,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
893 0,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
894 B_CURRENT_WORKSPACE)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
895
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
896 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
897 init();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
898 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
899
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
900 VimWindow::~VimWindow()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
901 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
902 if (formView) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
903 RemoveChild(formView);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
904 delete formView;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
905 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
906 gui.vimWindow = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
907 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
908
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
909 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
910 VimWindow::init()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
911 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
912 // Attach the VimFormView
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
913 formView = new VimFormView(Bounds());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
914 if (formView != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
915 AddChild(formView);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
916 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
917 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
918
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
919 #if 0 // disabled in zeta patch
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
920 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
921 VimWindow::DispatchMessage(BMessage *m, BHandler *h)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
922 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
923 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
924 * Route B_MOUSE_UP messages to MouseUp(), in
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
925 * a manner that should be compatible with the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
926 * intended future system behaviour.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
927 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
928 switch (m->what) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
929 case B_MOUSE_UP:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
930 // if (!h) h = PreferredHandler();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
931 // gcc isn't happy without this extra set of braces, complains about
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
932 // jump to case label crosses init of 'class BView * v'
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
933 // richard@whitequeen.com jul 99
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
934 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
935 BView *v = dynamic_cast<BView *>(h);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
936 if (v) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
937 // m->PrintToStream();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
938 BPoint where;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
939 m->FindPoint("where", &where);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
940 v->MouseUp(where);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
941 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
942 Inherited::DispatchMessage(m, h);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
943 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
944 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
945 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
946 default:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
947 Inherited::DispatchMessage(m, h);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
948 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
949 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
950 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
951
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
952 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
953 VimWindow::WindowActivated(bool active)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
954 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
955 Inherited::WindowActivated(active);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
956 // the textArea gets the keyboard action
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
957 if (active && gui.vimTextArea)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
958 gui.vimTextArea->MakeFocus(true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
959
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
960 struct VimFocusMsg fm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
961 fm.active = active;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
962
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
963 write_port(gui.vdcmp, VimMsg::Focus, &fm, sizeof(fm));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
964 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
965
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
966 bool
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
967 VimWindow::QuitRequested()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
968 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
969 struct VimKeyMsg km;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
970 km.length = 5;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
971 memcpy((char *)km.chars, "\033:qa\r", km.length);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
972 km.csi_escape = false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
973 write_port(gui.vdcmp, VimMsg::Key, &km, sizeof(km));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
974 return false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
975 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
976
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
977 // ---------------- VimFormView ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
978
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
979 VimFormView::VimFormView(BRect frame):
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
980 BView(frame, "VimFormView", B_FOLLOW_ALL_SIDES,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
981 B_WILL_DRAW | B_FRAME_EVENTS),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
982 menuBar(NULL),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
983 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
984 toolBar(NULL),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
985 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
986 #ifdef FEAT_GUI_TABLINE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
987 // showingTabLine(false),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
988 tabLine(NULL),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
989 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
990 textArea(NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
991 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
992 init(frame);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
993 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
994
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
995 VimFormView::~VimFormView()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
996 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
997 if (menuBar) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
998 RemoveChild(menuBar);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
999 #ifdef never
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1000 // deleting the menuBar leads to SEGV on exit
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1001 // richard@whitequeen.com Jul 99
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1002 delete menuBar;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1003 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1004 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1005
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1006 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1007 delete toolBar;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1008 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1009
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1010 #ifdef FEAT_GUI_TABLINE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1011 delete tabLine;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1012 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1013
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1014 if (textArea) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1015 RemoveChild(textArea);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1016 delete textArea;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1017 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1018 gui.vimForm = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1019 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1020
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1021 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1022 VimFormView::init(BRect frame)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1023 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1024 menuBar = new BMenuBar(BRect(0,0,-MENUBAR_MARGIN,-MENUBAR_MARGIN),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1025 "VimMenuBar");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1026
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1027 AddChild(menuBar);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1028
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1029 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1030 toolBar = new VimToolbar(BRect(0,0,0,0), "VimToolBar");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1031 toolBar->PrepareButtonBitmaps();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1032 AddChild(toolBar);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1033 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1034
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1035 #ifdef FEAT_GUI_TABLINE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1036 tabLine = new VimTabLine(BRect(0,0,0,0));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1037 // tabLine->PrepareButtonBitmaps();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1038 AddChild(tabLine);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1039 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1040
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1041 BRect remaining = frame;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1042 textArea = new VimTextAreaView(remaining);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1043 AddChild(textArea);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1044 // The textArea will be resized later when menus are added
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1045
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1046 gui.vimForm = this;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1047 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1048
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1049 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1050 float
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1051 VimFormView::ToolbarHeight() const
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1052 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1053 return toolBar ? toolBar->ToolbarHeight() : 0.;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1054 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1055 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1056
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1057 #ifdef FEAT_GUI_TABLINE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1058 float
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1059 VimFormView::TablineHeight() const
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1060 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1061 return (tabLine && IsShowingTabLine()) ? tabLine->TablineHeight() : 0.;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1062 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1063 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1064
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1065 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1066 VimFormView::AllAttached()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1067 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1068 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1069 * Apparently signals are inherited by the created thread -
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1070 * disable the most annoying ones.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1071 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1072 signal(SIGINT, SIG_IGN);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1073 signal(SIGQUIT, SIG_IGN);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1074
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1075 if (menuBar && textArea) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1076 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1077 * Resize the textArea to fill the space left over by the menu.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1078 * This is somewhat futile since it will be done again once
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1079 * menus are added to the menu bar.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1080 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1081 BRect remaining = Bounds();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1082
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1083 #ifdef FEAT_MENU
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1084 remaining.top += MenuHeight();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1085 menuBar->ResizeTo(remaining.right, remaining.top);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1086 gui.menu_height = (int) MenuHeight();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1087 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1088
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1089 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1090 toolBar->MoveTo(remaining.left, remaining.top);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1091 toolBar->ResizeTo(remaining.right, ToolbarHeight());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1092 remaining.top += ToolbarHeight();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1093 gui.toolbar_height = ToolbarHeight();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1094 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1095
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1096 #ifdef FEAT_GUI_TABLINE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1097 tabLine->MoveTo(remaining.left, remaining.top);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1098 tabLine->ResizeTo(remaining.right + 1, TablineHeight());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1099 remaining.top += TablineHeight();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1100 gui.tabline_height = TablineHeight();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1101 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1102
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1103 textArea->ResizeTo(remaining.Width(), remaining.Height());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1104 textArea->MoveTo(remaining.left, remaining.top);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1105 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1106
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1107
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1108 Inherited::AllAttached();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1109 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1110
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1111 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1112 VimFormView::FrameResized(float new_width, float new_height)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1113 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1114 struct VimResizeMsg sm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1115 int adjust_h, adjust_w;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1116
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1117 new_width += 1; // adjust from width to number of pixels occupied
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1118 new_height += 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1119
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1120 sm.width = (int) new_width;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1121 sm.height = (int) new_height;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1122 adjust_w = ((int)new_width - gui_get_base_width()) % gui.char_width;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1123 adjust_h = ((int)new_height - gui_get_base_height()) % gui.char_height;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1124
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1125 if (adjust_w > 0 || adjust_h > 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1126 sm.width -= adjust_w;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1127 sm.height -= adjust_h;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1128 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1129
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1130 write_port(gui.vdcmp, VimMsg::Resize, &sm, sizeof(sm));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1131 // calls gui_resize_shell(new_width, new_height);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1132
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1133 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1134
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1135 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1136 * The area below the vertical scrollbar is erased to the colour
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1137 * set with SetViewColor() automatically, because we had set
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1138 * B_WILL_DRAW. Resizing the window tight around the vertical
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1139 * scroll bar also helps to avoid debris.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1140 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1141 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1142
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1143 // ---------------- VimTextAreaView ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1144
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1145 VimTextAreaView::VimTextAreaView(BRect frame):
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1146 BView(frame, "VimTextAreaView", B_FOLLOW_ALL_SIDES,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1147 #ifdef FEAT_MBYTE_IME
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1148 B_WILL_DRAW | B_FULL_UPDATE_ON_RESIZE | B_INPUT_METHOD_AWARE),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1149 #else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1150 B_WILL_DRAW | B_FULL_UPDATE_ON_RESIZE),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1151 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1152 mouseDragEventCount(0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1153 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1154 #ifdef FEAT_MBYTE_IME
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1155 IMData.messenger = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1156 IMData.message = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1157 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1158 init(frame);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1159 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1160
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1161 VimTextAreaView::~VimTextAreaView()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1162 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1163 gui.vimTextArea = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1164 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1165
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1166 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1167 VimTextAreaView::init(BRect frame)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1168 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1169 // set up global var for fast access
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1170 gui.vimTextArea = this;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1171
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1172 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1173 * Tell the app server not to erase the view: we will
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1174 * fill it in completely by ourselves.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1175 * (Does this really work? Even if not, it won't harm either.)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1176 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1177 SetViewColor(B_TRANSPARENT_32_BIT);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1178 #define PEN_WIDTH 1
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1179 SetPenSize(PEN_WIDTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1180 #define W_WIDTH(curwin) 0
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1181 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1182
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1183 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1184 VimTextAreaView::Draw(BRect updateRect)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1185 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1186 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1187 * XXX Other ports call here:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1188 * out_flush(); * make sure all output has been processed *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1189 * but we can't do that, since it involves too much information
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1190 * that is owned by other threads...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1191 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1192
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1193 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1194 * No need to use gui.vimWindow->Lock(): we are locked already.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1195 * However, it would not hurt.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1196 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1197 rgb_color rgb = GUI_TO_RGB(gui.back_pixel);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1198 SetLowColor(rgb);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1199 FillRect(updateRect, B_SOLID_LOW);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1200 gui_redraw((int) updateRect.left, (int) updateRect.top,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1201 (int) (updateRect.Width() + PEN_WIDTH), (int) (updateRect.Height() + PEN_WIDTH));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1202
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1203 // Clear the border areas if needed
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1204 SetLowColor(rgb);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1205
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1206 if (updateRect.left < FILL_X(0)) // left border
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1207 FillRect(BRect(updateRect.left, updateRect.top,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1208 FILL_X(0)-PEN_WIDTH, updateRect.bottom), B_SOLID_LOW);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1209 if (updateRect.top < FILL_Y(0)) // top border
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1210 FillRect(BRect(updateRect.left, updateRect.top,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1211 updateRect.right, FILL_Y(0)-PEN_WIDTH), B_SOLID_LOW);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1212 if (updateRect.right >= FILL_X(Columns)) // right border
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1213 FillRect(BRect(FILL_X((int)Columns), updateRect.top,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1214 updateRect.right, updateRect.bottom), B_SOLID_LOW);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1215 if (updateRect.bottom >= FILL_Y(Rows)) // bottom border
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1216 FillRect(BRect(updateRect.left, FILL_Y((int)Rows),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1217 updateRect.right, updateRect.bottom), B_SOLID_LOW);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1218
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1219 #ifdef FEAT_MBYTE_IME
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1220 DrawIMString();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1221 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1222 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1223
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1224 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1225 VimTextAreaView::KeyDown(const char *bytes, int32 numBytes)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1226 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1227 struct VimKeyMsg km;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1228 char_u *dest = km.chars;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1229
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1230 bool canHaveVimModifiers = false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1231
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1232 BMessage *msg = Window()->CurrentMessage();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1233 assert(msg);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1234 // msg->PrintToStream();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1235
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1236 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1237 * Convert special keys to Vim codes.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1238 * I think it is better to do it in the window thread
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1239 * so we use at least a little bit of the potential
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1240 * of our 2 CPUs. Besides, due to the fantastic mapping
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1241 * of special keys to UTF-8, we have quite some work to
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1242 * do...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1243 * TODO: I'm not quite happy with detection of special
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1244 * keys. Perhaps I should use scan codes after all...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1245 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1246 if (numBytes > 1) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1247 // This cannot be a special key
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1248 if (numBytes > KEY_MSG_BUFSIZ)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1249 numBytes = KEY_MSG_BUFSIZ; // should never happen... ???
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1250 km.length = numBytes;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1251 memcpy((char *)dest, bytes, numBytes);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1252 km.csi_escape = true;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1253 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1254 int32 scancode = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1255 msg->FindInt32("key", &scancode);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1256
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1257 int32 beModifiers = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1258 msg->FindInt32("modifiers", &beModifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1259
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1260 char_u string[3];
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1261 int len = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1262 km.length = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1263
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1264 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1265 * For normal, printable ASCII characters, don't look them up
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1266 * to check if they might be a special key. They aren't.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1267 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1268 assert(B_BACKSPACE <= 0x20);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1269 assert(B_DELETE == 0x7F);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1270 if (((char_u)bytes[0] <= 0x20 || (char_u)bytes[0] == 0x7F) &&
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1271 numBytes == 1) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1272 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1273 * Due to the great nature of Be's mapping of special keys,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1274 * viz. into the range of the control characters,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1275 * we can only be sure it is *really* a special key if
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1276 * if it is special without using ctrl. So, only if ctrl is
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1277 * used, we need to check it unmodified.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1278 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1279 if (beModifiers & B_CONTROL_KEY) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1280 int index = keyMap->normal_map[scancode];
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1281 int newNumBytes = keyMapChars[index];
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1282 char_u *newBytes = (char_u *)&keyMapChars[index + 1];
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1283
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1284 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1285 * Check if still special without the control key.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1286 * This is needed for BACKSPACE: that key does produce
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1287 * different values with modifiers (DEL).
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1288 * Otherwise we could simply have checked for equality.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1289 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1290 if (newNumBytes != 1 || (*newBytes > 0x20 &&
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1291 *newBytes != 0x7F )) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1292 goto notspecial;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1293 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1294 bytes = (char *)newBytes;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1295 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1296 canHaveVimModifiers = true;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1297
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1298 uint16 beoskey;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1299 int first, last;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1300
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1301 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1302 * If numBytes == 0 that probably always indicates a special key.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1303 * (does not happen yet)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1304 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1305 if (numBytes == 0 || bytes[0] == B_FUNCTION_KEY) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1306 beoskey = F(scancode);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1307 first = FIRST_FUNCTION_KEY;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1308 last = NUM_SPECIAL_KEYS;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1309 } else if (*bytes == '\n' && scancode == 0x47) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1310 // remap the (non-keypad) ENTER key from \n to \r.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1311 string[0] = '\r';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1312 len = 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1313 first = last = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1314 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1315 beoskey = K(bytes[0]);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1316 first = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1317 last = FIRST_FUNCTION_KEY;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1318 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1319
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1320 for (int i = first; i < last; i++) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1321 if (special_keys[i].BeKeys == beoskey) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1322 string[0] = CSI;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1323 string[1] = special_keys[i].vim_code0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1324 string[2] = special_keys[i].vim_code1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1325 len = 3;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1326 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1327 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1328 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1329 notspecial:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1330 if (len == 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1331 string[0] = bytes[0];
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1332 len = 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1333 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1334
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1335 // Special keys (and a few others) may have modifiers
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1336 #if 0
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1337 if (len == 3 ||
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1338 bytes[0] == B_SPACE || bytes[0] == B_TAB ||
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1339 bytes[0] == B_RETURN || bytes[0] == '\r' ||
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1340 bytes[0] == B_ESCAPE)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1341 #else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1342 if (canHaveVimModifiers)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1343 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1344 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1345 int modifiers;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1346 modifiers = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1347 if (beModifiers & B_SHIFT_KEY)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1348 modifiers |= MOD_MASK_SHIFT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1349 if (beModifiers & B_CONTROL_KEY)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1350 modifiers |= MOD_MASK_CTRL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1351 if (beModifiers & B_OPTION_KEY)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1352 modifiers |= MOD_MASK_ALT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1353
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1354 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1355 * For some keys a shift modifier is translated into another key
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1356 * code. Do we need to handle the case where len != 1 and
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1357 * string[0] != CSI? (Not for BeOS, since len == 3 implies
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1358 * string[0] == CSI...)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1359 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1360 int key;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1361 if (string[0] == CSI && len == 3)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1362 key = TO_SPECIAL(string[1], string[2]);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1363 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1364 key = string[0];
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1365 key = simplify_key(key, &modifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1366 if (IS_SPECIAL(key))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1367 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1368 string[0] = CSI;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1369 string[1] = K_SECOND(key);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1370 string[2] = K_THIRD(key);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1371 len = 3;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1372 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1373 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1374 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1375 string[0] = key;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1376 len = 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1377 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1378
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1379 if (modifiers)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1380 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1381 *dest++ = CSI;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1382 *dest++ = KS_MODIFIER;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1383 *dest++ = modifiers;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1384 km.length = 3;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1385 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1386 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1387 memcpy((char *)dest, string, len);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1388 km.length += len;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1389 km.csi_escape = false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1390 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1391
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1392 write_port(gui.vdcmp, VimMsg::Key, &km, sizeof(km));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1393
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1394 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1395 * blank out the pointer if necessary
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1396 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1397 if (p_mh && !gui.pointer_hidden)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1398 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1399 guiBlankMouse(true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1400 gui.pointer_hidden = TRUE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1401 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1402 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1403 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1404 VimTextAreaView::guiSendMouseEvent(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1405 int button,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1406 int x,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1407 int y,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1408 int repeated_click,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1409 int_u modifiers)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1410 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1411 VimMouseMsg mm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1412
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1413 mm.button = button;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1414 mm.x = x;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1415 mm.y = y;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1416 mm.repeated_click = repeated_click;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1417 mm.modifiers = modifiers;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1418
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1419 write_port(gui.vdcmp, VimMsg::Mouse, &mm, sizeof(mm));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1420 // calls gui_send_mouse_event()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1421
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1422 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1423 * if our pointer is currently hidden, then we should show it.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1424 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1425 if (gui.pointer_hidden)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1426 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1427 guiBlankMouse(false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1428 gui.pointer_hidden = FALSE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1429 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1430 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1431
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1432 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1433 VimTextAreaView::guiMouseMoved(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1434 int x,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1435 int y)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1436 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1437 VimMouseMovedMsg mm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1438
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1439 mm.x = x;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1440 mm.y = y;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1441
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1442 write_port(gui.vdcmp, VimMsg::MouseMoved, &mm, sizeof(mm));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1443
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1444 if (gui.pointer_hidden)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1445 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1446 guiBlankMouse(false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1447 gui.pointer_hidden = FALSE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1448 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1449 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1450
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1451 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1452 VimTextAreaView::guiBlankMouse(bool should_hide)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1453 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1454 if (should_hide) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1455 // gui.vimApp->HideCursor();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1456 gui.vimApp->ObscureCursor();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1457 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1458 * ObscureCursor() would even be easier, but then
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1459 * Vim's idea of mouse visibility does not necessarily
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1460 * correspond to reality.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1461 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1462 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1463 // gui.vimApp->ShowCursor();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1464 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1465 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1466
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1467 int_u
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1468 VimTextAreaView::mouseModifiersToVim(int32 beModifiers)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1469 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1470 int_u vim_modifiers = 0x0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1471
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1472 if (beModifiers & B_SHIFT_KEY)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1473 vim_modifiers |= MOUSE_SHIFT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1474 if (beModifiers & B_CONTROL_KEY)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1475 vim_modifiers |= MOUSE_CTRL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1476 if (beModifiers & B_OPTION_KEY) // Alt or Meta key
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1477 vim_modifiers |= MOUSE_ALT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1478
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1479 return vim_modifiers;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1480 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1481
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1482 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1483 VimTextAreaView::MouseDown(BPoint point)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1484 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1485 BMessage *m = Window()->CurrentMessage();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1486 assert(m);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1487
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1488 int32 buttons = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1489 m->FindInt32("buttons", &buttons);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1490
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1491 int vimButton;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1492
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1493 if (buttons & B_PRIMARY_MOUSE_BUTTON)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1494 vimButton = MOUSE_LEFT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1495 else if (buttons & B_SECONDARY_MOUSE_BUTTON)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1496 vimButton = MOUSE_RIGHT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1497 else if (buttons & B_TERTIARY_MOUSE_BUTTON)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1498 vimButton = MOUSE_MIDDLE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1499 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1500 return; // Unknown button
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1501
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1502 vimMouseButton = 1; // don't care which one
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1503
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1504 // Handle multiple clicks
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1505 int32 clicks = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1506 m->FindInt32("clicks", &clicks);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1507
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1508 int32 modifiers = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1509 m->FindInt32("modifiers", &modifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1510
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1511 vimMouseModifiers = mouseModifiersToVim(modifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1512
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1513 guiSendMouseEvent(vimButton, point.x, point.y,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1514 clicks > 1 /* = repeated_click*/, vimMouseModifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1515 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1516
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1517 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1518 VimTextAreaView::MouseUp(BPoint point)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1519 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1520 vimMouseButton = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1521
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1522 BMessage *m = Window()->CurrentMessage();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1523 assert(m);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1524 // m->PrintToStream();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1525
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1526 int32 modifiers = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1527 m->FindInt32("modifiers", &modifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1528
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1529 vimMouseModifiers = mouseModifiersToVim(modifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1530
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1531 guiSendMouseEvent(MOUSE_RELEASE, point.x, point.y,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1532 0 /* = repeated_click*/, vimMouseModifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1533
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1534 Inherited::MouseUp(point);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1535 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1536
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1537 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1538 VimTextAreaView::MouseMoved(BPoint point, uint32 transit, const BMessage *message)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1539 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1540 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1541 * if our pointer is currently hidden, then we should show it.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1542 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1543 if (gui.pointer_hidden)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1544 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1545 guiBlankMouse(false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1546 gui.pointer_hidden = FALSE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1547 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1548
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1549 if (!vimMouseButton) { // could also check m->"buttons"
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1550 guiMouseMoved(point.x, point.y);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1551 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1552 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1553
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1554 atomic_add(&mouseDragEventCount, 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1555
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1556 // Don't care much about "transit"
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1557 guiSendMouseEvent(MOUSE_DRAG, point.x, point.y, 0, vimMouseModifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1558 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1559
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1560 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1561 VimTextAreaView::MessageReceived(BMessage *m)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1562 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1563 switch (m->what) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1564 case 'menu':
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1565 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1566 VimMenuMsg mm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1567 mm.guiMenu = NULL; // in case no pointer in msg
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1568 m->FindPointer("VimMenu", (void **)&mm.guiMenu);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1569 write_port(gui.vdcmp, VimMsg::Menu, &mm, sizeof(mm));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1570 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1571 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1572 case B_MOUSE_WHEEL_CHANGED:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1573 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1574 VimScrollBar* scb = curwin->w_scrollbars[1].id;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1575 float small=0, big=0, dy=0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1576 m->FindFloat("be:wheel_delta_y", &dy);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1577 scb->GetSteps(&small, &big);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1578 scb->SetValue(scb->Value()+small*dy*3);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1579 scb->ValueChanged(scb->Value());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1580 #if 0
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1581 scb = curwin->w_scrollbars[0].id;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1582 scb->GetSteps(&small, &big);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1583 scb->SetValue(scb->Value()+small*dy);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1584 scb->ValueChanged(scb->Value());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1585 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1586 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1587 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1588 #ifdef FEAT_MBYTE_IME
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1589 case B_INPUT_METHOD_EVENT:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1590 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1591 int32 opcode;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1592 m->FindInt32("be:opcode", &opcode);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1593 switch(opcode)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1594 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1595 case B_INPUT_METHOD_STARTED:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1596 if(!IMData.messenger) delete IMData.messenger;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1597 IMData.messenger = new BMessenger();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1598 m->FindMessenger("be:reply_to", IMData.messenger);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1599 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1600 case B_INPUT_METHOD_CHANGED:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1601 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1602 BString str;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1603 bool confirmed;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1604 if(IMData.message) *(IMData.message) = *m;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1605 else IMData.message = new BMessage(*m);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1606 DrawIMString();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1607 m->FindBool("be:confirmed", &confirmed);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1608 if (confirmed)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1609 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1610 m->FindString("be:string", &str);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1611 char_u *chars = (char_u*)str.String();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1612 struct VimKeyMsg km;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1613 km.csi_escape = true;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1614 int clen;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1615 int i = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1616 while (i < str.Length())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1617 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1618 clen = utf_ptr2len(chars+i);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1619 memcpy(km.chars, chars+i, clen);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1620 km.length = clen;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1621 write_port(gui.vdcmp, VimMsg::Key, &km, sizeof(km));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1622 i += clen;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1623 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1624 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1625 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1626 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1627 case B_INPUT_METHOD_LOCATION_REQUEST:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1628 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1629 BMessage msg(B_INPUT_METHOD_EVENT);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1630 msg.AddInt32("be:opcode", B_INPUT_METHOD_LOCATION_REQUEST);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1631 msg.AddPoint("be:location_reply", IMData.location);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1632 msg.AddFloat("be:height_reply", FILL_Y(1));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1633 IMData.messenger->SendMessage(&msg);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1634 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1635 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1636 case B_INPUT_METHOD_STOPPED:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1637 delete IMData.messenger;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1638 delete IMData.message;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1639 IMData.messenger = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1640 IMData.message = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1641 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1642 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1643 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1644 // TODO: sz: break here???
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1645 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1646 default:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1647 if (m->WasDropped()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1648 BWindow *w = Window();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1649 w->DetachCurrentMessage();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1650 w->Minimize(false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1651 VimApp::SendRefs(m, (modifiers() & B_SHIFT_KEY) != 0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1652 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1653 Inherited::MessageReceived(m);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1654 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1655 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1656 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1657 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1658
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1659 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1660 VimTextAreaView::mchInitFont(char_u *name)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1661 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1662 VimFont *newFont = (VimFont *)gui_mch_get_font(name, 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1663 if(newFont != NOFONT) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1664 gui.norm_font = (GuiFont)newFont;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1665 gui_mch_set_font((GuiFont)newFont);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1666 if (name && STRCMP(name, "*") != 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1667 hl_set_font_name(name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1668
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1669 SetDrawingMode(B_OP_COPY);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1670
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1671 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1672 * Try to load other fonts for bold, italic, and bold-italic.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1673 * We should also try to work out what font to use for these when they are
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1674 * not specified by X resources, but we don't yet.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1675 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1676 return OK;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1677 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1678 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1679 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1680
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1681 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1682 VimTextAreaView::mchDrawString(int row, int col, char_u *s, int len, int flags)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1683 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1684 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1685 * First we must erase the area, because DrawString won't do
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1686 * that for us. XXX Most of the time this is a waste of effort
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1687 * since the bachground has been erased already... DRAW_TRANSP
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1688 * should be set when appropriate!!!
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1689 * (Rectangles include the bottom and right edge)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1690 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1691 if (!(flags & DRAW_TRANSP)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1692 int cells;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1693 cells = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1694 for(int i=0; i<len; i++) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1695 int cn = utf_ptr2cells((char_u *)(s+i));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1696 if(cn<4) cells += cn;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1697 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1698
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1699 BRect r(FILL_X(col), FILL_Y(row),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1700 FILL_X(col + cells) - PEN_WIDTH, FILL_Y(row + 1) - PEN_WIDTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1701 FillRect(r, B_SOLID_LOW);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1702 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1703
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1704 BFont font;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1705 this->GetFont(&font);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1706 if(!font.IsFixed())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1707 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1708 char* p = (char*)s;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1709 int32 clen, lastpos = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1710 BPoint where;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1711 int cells;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1712 while((p - (char*)s) < len) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1713 clen = utf_ptr2len((u_char*)p);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1714 where.Set(TEXT_X(col+lastpos), TEXT_Y(row));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1715 DrawString(p, clen, where);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1716 if (flags & DRAW_BOLD) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1717 where.x += 1.0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1718 SetDrawingMode(B_OP_BLEND);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1719 DrawString(p, clen, where);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1720 SetDrawingMode(B_OP_COPY);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1721 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1722 cells = utf_ptr2cells((char_u *)p);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1723 if(cells<4) lastpos += cells;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1724 else lastpos++;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1725 p += clen;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1726 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1727 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1728 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1729 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1730 BPoint where(TEXT_X(col), TEXT_Y(row));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1731 DrawString((char*)s, len, where);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1732 if (flags & DRAW_BOLD) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1733 where.x += 1.0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1734 SetDrawingMode(B_OP_BLEND);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1735 DrawString((char*)s, len, where);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1736 SetDrawingMode(B_OP_COPY);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1737 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1738 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1739
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1740 if (flags & DRAW_UNDERL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1741 int cells;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1742 cells = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1743 for(int i=0; i<len; i++) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1744 int cn = utf_ptr2cells((char_u *)(s+i));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1745 if(cn<4) cells += cn;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1746 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1747
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1748 BPoint start(FILL_X(col), FILL_Y(row + 1) - PEN_WIDTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1749 BPoint end(FILL_X(col + cells) - PEN_WIDTH, start.y);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1750
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1751 StrokeLine(start, end);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1752 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1753 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1754
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1755 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1756 VimTextAreaView::mchClearBlock(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1757 int row1,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1758 int col1,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1759 int row2,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1760 int col2)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1761 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1762 BRect r(FILL_X(col1), FILL_Y(row1),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1763 FILL_X(col2 + 1) - PEN_WIDTH, FILL_Y(row2 + 1) - PEN_WIDTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1764 gui_mch_set_bg_color(gui.back_pixel);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1765 FillRect(r, B_SOLID_LOW);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1766 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1767
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1768 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1769 VimTextAreaView::mchClearAll()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1770 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1771 gui_mch_set_bg_color(gui.back_pixel);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1772 FillRect(Bounds(), B_SOLID_LOW);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1773 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1774
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1775 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1776 * mchDeleteLines() Lock()s the window by itself.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1777 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1778 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1779 VimTextAreaView::mchDeleteLines(int row, int num_lines)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1780 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1781 BRect source, dest;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1782 source.left = FILL_X(gui.scroll_region_left);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1783 source.top = FILL_Y(row + num_lines);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1784 source.right = FILL_X(gui.scroll_region_right + 1) - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1785 source.bottom = FILL_Y(gui.scroll_region_bot + 1) - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1786
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1787 dest.left = FILL_X(gui.scroll_region_left);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1788 dest.top = FILL_Y(row);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1789 dest.right = FILL_X(gui.scroll_region_right + 1) - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1790 dest.bottom = FILL_Y(gui.scroll_region_bot - num_lines + 1) - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1791
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1792 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1793 // Clear one column more for when bold has spilled over
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1794 CopyBits(source, dest);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1795 gui_clear_block(gui.scroll_region_bot - num_lines + 1,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1796 gui.scroll_region_left,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1797 gui.scroll_region_bot, gui.scroll_region_right);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1798
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1799
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1800 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1801 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1802 * The Draw() callback will be called now if some of the source
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1803 * bits were not in the visible region.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1804 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1805 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1806 // gui_x11_check_copy_area();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1807 // }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1808 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1809
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1810 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1811 * mchInsertLines() Lock()s the window by itself.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1812 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1813 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1814 VimTextAreaView::mchInsertLines(int row, int num_lines)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1815 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1816 BRect source, dest;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1817
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1818 // XXX Attempt at a hack:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1819 gui.vimWindow->UpdateIfNeeded();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1820 source.left = FILL_X(gui.scroll_region_left);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1821 source.top = FILL_Y(row);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1822 source.right = FILL_X(gui.scroll_region_right + 1) - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1823 source.bottom = FILL_Y(gui.scroll_region_bot - num_lines + 1) - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1824
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1825 dest.left = FILL_X(gui.scroll_region_left);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1826 dest.top = FILL_Y(row + num_lines);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1827 dest.right = FILL_X(gui.scroll_region_right + 1) - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1828 dest.bottom = FILL_Y(gui.scroll_region_bot + 1) - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1829
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1830 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1831 // Clear one column more for when bold has spilled over
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1832 CopyBits(source, dest);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1833 gui_clear_block(row, gui.scroll_region_left,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1834 row + num_lines - 1, gui.scroll_region_right);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1835
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1836 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1837 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1838 * The Draw() callback will be called now if some of the source
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1839 * bits were not in the visible region.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1840 * However, if we scroll too fast it can't keep up and the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1841 * update region gets messed up. This seems to be because copying
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1842 * un-Draw()n bits does not generate Draw() calls for the copy...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1843 * I moved the hack to before the CopyBits() to reduce the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1844 * amount of additional waiting needed.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1845 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1846
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1847 // gui_x11_check_copy_area();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1848
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1849 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1850 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1851
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1852 #ifdef FEAT_MBYTE_IME
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1853 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1854 * DrawIMString draws string with IMData.message.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1855 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1856 void VimTextAreaView::DrawIMString(void)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1857 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1858 static const rgb_color r_highlight = {255, 152, 152, 255},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1859 b_highlight = {152, 203, 255, 255};
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1860 BString str;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1861 const char* s;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1862 int len;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1863 BMessage* msg = IMData.message;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1864 if (!msg)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1865 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1866 gui_redraw_block(IMData.row, 0,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1867 IMData.row + IMData.count, W_WIDTH(curwin), GUI_MON_NOCLEAR);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1868 bool confirmed = false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1869 msg->FindBool("be:confirmed", &confirmed);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1870 if (confirmed)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1871 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1872 rgb_color hcolor = HighColor(), lcolor = LowColor();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1873 msg->FindString("be:string", &str);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1874 s = str.String();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1875 len = str.Length();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1876 SetHighColor(0, 0, 0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1877 IMData.row = gui.row;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1878 IMData.col = gui.col;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1879 int32 sel_start = 0, sel_end = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1880 msg->FindInt32("be:selection", 0, &sel_start);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1881 msg->FindInt32("be:selection", 1, &sel_end);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1882 int clen, cn;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1883 BPoint pos(IMData.col, 0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1884 BRect r;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1885 BPoint where;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1886 IMData.location = ConvertToScreen(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1887 BPoint(FILL_X(pos.x), FILL_Y(IMData.row + pos.y)));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1888 for (int i=0; i<len; i+=clen)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1889 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1890 cn = utf_ptr2cells((char_u *)(s+i));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1891 clen = utf_ptr2len((char_u *)(s+i));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1892 if (pos.x + cn > W_WIDTH(curwin))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1893 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1894 pos.y++;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1895 pos.x = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1896 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1897 if (sel_start<=i && i<sel_end)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1898 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1899 SetLowColor(r_highlight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1900 IMData.location = ConvertToScreen(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1901 BPoint(FILL_X(pos.x), FILL_Y(IMData.row + pos.y)));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1902 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1903 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1904 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1905 SetLowColor(b_highlight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1906 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1907 r.Set(FILL_X(pos.x), FILL_Y(IMData.row + pos.y),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1908 FILL_X(pos.x + cn) - PEN_WIDTH,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1909 FILL_Y(IMData.row + pos.y + 1) - PEN_WIDTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1910 FillRect(r, B_SOLID_LOW);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1911 where.Set(TEXT_X(pos.x), TEXT_Y(IMData.row + pos.y));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1912 DrawString((s+i), clen, where);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1913 pos.x += cn;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1914 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1915 IMData.count = (int)pos.y;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1916
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1917 SetHighColor(hcolor);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1918 SetLowColor(lcolor);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1919 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1920 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1921 // ---------------- VimScrollBar ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1922
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1923 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1924 * BUG: XXX
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1925 * It seems that BScrollBar determine their direction not from
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1926 * "posture" but from if they are "tall" or "wide" in shape...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1927 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1928 * Also, place them out of sight, because Vim enables them before
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1929 * they are positioned.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1930 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1931 VimScrollBar::VimScrollBar(scrollbar_T *g, orientation posture):
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1932 BScrollBar(posture == B_HORIZONTAL ? BRect(-100,-100,-10,-90) :
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1933 BRect(-100,-100,-90,-10),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1934 "vim scrollbar", (BView *)NULL,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1935 0.0, 10.0, posture),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1936 ignoreValue(-1),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1937 scrollEventCount(0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1938 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1939 gsb = g;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1940 SetResizingMode(B_FOLLOW_NONE);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1941 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1942
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1943 VimScrollBar::~VimScrollBar()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1944 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1945 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1946
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1947 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1948 VimScrollBar::ValueChanged(float newValue)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1949 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1950 if (ignoreValue >= 0.0 && newValue == ignoreValue) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1951 ignoreValue = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1952 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1953 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1954 ignoreValue = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1955 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1956 * We want to throttle the amount of scroll messages generated.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1957 * Normally I presume you won't get a new message before we've
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1958 * handled the previous one, but because we're passing them on this
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1959 * happens very quickly. So instead we keep a counter of how many
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1960 * scroll events there are (or will be) in the VDCMP, and the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1961 * throttling happens at the receiving end.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1962 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1963 atomic_add(&scrollEventCount, 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1964
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1965 struct VimScrollBarMsg sm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1966
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1967 sm.sb = this;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1968 sm.value = (long) newValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1969 sm.stillDragging = TRUE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1970
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1971 write_port(gui.vdcmp, VimMsg::ScrollBar, &sm, sizeof(sm));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1972
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1973 // calls gui_drag_scrollbar(sb, newValue, TRUE);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1974 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1975
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1976 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1977 * When the mouse goes up, report that scrolling has stopped.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1978 * MouseUp() is NOT called when the mouse-up occurs outside
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1979 * the window, even though the thumb does move while the mouse
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1980 * is outside... This has some funny effects... XXX
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1981 * So we do special processing when the window de/activates.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1982 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1983 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1984 VimScrollBar::MouseUp(BPoint where)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1985 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1986 // BMessage *m = Window()->CurrentMessage();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1987 // m->PrintToStream();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1988
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1989 atomic_add(&scrollEventCount, 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1990
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1991 struct VimScrollBarMsg sm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1992
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1993 sm.sb = this;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1994 sm.value = (long) Value();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1995 sm.stillDragging = FALSE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1996
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1997 write_port(gui.vdcmp, VimMsg::ScrollBar, &sm, sizeof(sm));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1998
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1999 // calls gui_drag_scrollbar(sb, newValue, FALSE);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2000
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2001 Inherited::MouseUp(where);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2002 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2003
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2004 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2005 VimScrollBar::SetValue(float newValue)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2006 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2007 if (newValue == Value())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2008 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2009
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2010 ignoreValue = newValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2011 Inherited::SetValue(newValue);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2012 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2013
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2014 // ---------------- VimFont ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2015
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2016 VimFont::VimFont(): BFont()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2017 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2018 init();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2019 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2020
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2021 VimFont::VimFont(const VimFont *rhs): BFont(rhs)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2022 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2023 init();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2024 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2025
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2026 VimFont::VimFont(const BFont *rhs): BFont(rhs)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2027 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2028 init();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2029 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2030
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2031 VimFont::VimFont(const VimFont &rhs): BFont(rhs)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2032 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2033 init();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2034 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2035
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2036 VimFont::~VimFont()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2037 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2038 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2039
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2040 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2041 VimFont::init()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2042 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2043 next = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2044 refcount = 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2045 name = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2046 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2047
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2048 // ---------------- VimDialog ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2049
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2050 #if defined(FEAT_GUI_DIALOG)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2051
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2052 const unsigned int kVimDialogButtonMsg = 'VMDB';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2053 const unsigned int kVimDialogIconStripeWidth = 30;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2054 const unsigned int kVimDialogButtonsSpacingX = 9;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2055 const unsigned int kVimDialogButtonsSpacingY = 4;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2056 const unsigned int kVimDialogSpacingX = 6;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2057 const unsigned int kVimDialogSpacingY = 10;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2058 const unsigned int kVimDialogMinimalWidth = 310;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2059 const unsigned int kVimDialogMinimalHeight = 75;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2060 const BRect kDefaultRect =
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2061 BRect(0, 0, kVimDialogMinimalWidth, kVimDialogMinimalHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2062
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2063 VimDialog::VimDialog(int type, const char *title, const char *message,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2064 const char *buttons, int dfltbutton, const char *textfield, int ex_cmd)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2065 : BWindow(kDefaultRect, title, B_TITLED_WINDOW_LOOK, B_MODAL_APP_WINDOW_FEEL,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2066 B_NOT_CLOSABLE | B_NOT_RESIZABLE |
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2067 B_NOT_ZOOMABLE | B_NOT_MINIMIZABLE | B_ASYNCHRONOUS_CONTROLS)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2068 , fDialogSem(-1)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2069 , fDialogValue(dfltbutton)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2070 , fMessageView(NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2071 , fInputControl(NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2072 , fInputValue(textfield)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2073 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2074 // master view
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2075 VimDialog::View* view = new VimDialog::View(Bounds());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2076 if(view == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2077 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2078
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2079 if(title == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2080 SetTitle("Vim " VIM_VERSION_MEDIUM);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2081
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2082 AddChild(view);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2083
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2084 // icon
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2085 view->InitIcon(type);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2086
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2087 // buttons
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2088 int32 which = 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2089 float maxButtonWidth = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2090 float maxButtonHeight = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2091 float buttonsWidth = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2092 float buttonsHeight = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2093 BString strButtons(buttons);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2094 strButtons.RemoveAll("&");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2095 do {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2096 int32 end = strButtons.FindFirst('\n');
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2097 if(end != B_ERROR)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2098 strButtons.SetByteAt(end, '\0');
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2099
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2100 BButton *button = _CreateButton(which++, strButtons.String());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2101 view->AddChild(button);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2102 fButtonsList.AddItem(button);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2103
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2104 maxButtonWidth = max_c(maxButtonWidth, button->Bounds().Width());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2105 maxButtonHeight = max_c(maxButtonHeight, button->Bounds().Height());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2106 buttonsWidth += button->Bounds().Width();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2107 buttonsHeight += button->Bounds().Height();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2108
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2109 if(end == B_ERROR)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2110 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2111
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2112 strButtons.Remove(0, end + 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2113 } while(true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2114
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2115 int32 buttonsCount = fButtonsList.CountItems();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2116 buttonsWidth += kVimDialogButtonsSpacingX * (buttonsCount - 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2117 buttonsHeight += kVimDialogButtonsSpacingY * (buttonsCount - 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2118 float dialogWidth = buttonsWidth + kVimDialogIconStripeWidth +
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2119 kVimDialogSpacingX * 2;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2120 float dialogHeight = maxButtonHeight + kVimDialogSpacingY * 3;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2121
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2122 // Check 'v' flag in 'guioptions': vertical button placement.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2123 bool vertical = (vim_strchr(p_go, GO_VERTICAL) != NULL) ||
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2124 dialogWidth >= gui.vimWindow->Bounds().Width();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2125 if(vertical) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2126 dialogWidth -= buttonsWidth;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2127 dialogWidth += maxButtonWidth;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2128 dialogHeight -= maxButtonHeight;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2129 dialogHeight += buttonsHeight;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2130 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2131
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2132 dialogWidth = max_c(dialogWidth, kVimDialogMinimalWidth);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2133
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2134 // message view
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2135 BRect rect(0, 0, dialogWidth, 0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2136 rect.left += kVimDialogIconStripeWidth + 16 + kVimDialogSpacingX;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2137 rect.top += kVimDialogSpacingY;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2138 rect.right -= kVimDialogSpacingX;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2139 rect.bottom = rect.top;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2140 fMessageView = new BTextView(rect, "_tv_", rect.OffsetByCopy(B_ORIGIN),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2141 B_FOLLOW_LEFT | B_FOLLOW_TOP, B_WILL_DRAW);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2142
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2143 fMessageView->SetViewColor(ui_color(B_PANEL_BACKGROUND_COLOR));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2144 rgb_color textColor = ui_color(B_PANEL_TEXT_COLOR);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2145 fMessageView->SetFontAndColor(be_plain_font, B_FONT_ALL, &textColor);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2146 fMessageView->SetText(message);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2147 fMessageView->MakeEditable(false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2148 fMessageView->MakeSelectable(false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2149 fMessageView->SetWordWrap(true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2150 AddChild(fMessageView);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2151
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2152 float messageHeight = fMessageView->TextHeight(0, fMessageView->CountLines());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2153 fMessageView->ResizeBy(0, messageHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2154 fMessageView->SetTextRect(BRect(0, 0, rect.Width(), messageHeight));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2155
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2156 dialogHeight += messageHeight;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2157
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2158 // input view
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2159 if(fInputValue != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2160 rect.top =
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2161 rect.bottom += messageHeight + kVimDialogSpacingY;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2162 fInputControl = new BTextControl(rect, "_iv_", NULL, fInputValue, NULL,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2163 B_FOLLOW_LEFT | B_FOLLOW_TOP, B_WILL_DRAW | B_NAVIGABLE | B_PULSE_NEEDED);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2164 fInputControl->TextView()->SetText(fInputValue);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2165 fInputControl->TextView()->SetWordWrap(false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2166 AddChild(fInputControl);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2167
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2168 float width = 0.f, height = 0.f;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2169 fInputControl->GetPreferredSize(&width, &height);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2170 fInputControl->MakeFocus(true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2171
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2172 dialogHeight += height + kVimDialogSpacingY * 1.5;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2173 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2174
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2175 dialogHeight = max_c(dialogHeight, kVimDialogMinimalHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2176
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2177 ResizeTo(dialogWidth, dialogHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2178 MoveTo((gui.vimWindow->Bounds().Width() - dialogWidth) / 2,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2179 (gui.vimWindow->Bounds().Height() - dialogHeight) / 2);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2180
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2181 // adjust layout of buttons
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2182 float buttonWidth = max_c(maxButtonWidth, rect.Width() * 0.66);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2183 BPoint origin(dialogWidth, dialogHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2184 origin.x -= kVimDialogSpacingX + (vertical ? buttonWidth : buttonsWidth);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2185 origin.y -= kVimDialogSpacingY + (vertical ? buttonsHeight : maxButtonHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2186
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2187 for(int32 i = 0 ; i < buttonsCount; i++) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2188 BButton *button = (BButton*)fButtonsList.ItemAt(i);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2189 button->MoveTo(origin);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2190 if(vertical) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2191 origin.y += button->Frame().Height() + kVimDialogButtonsSpacingY;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2192 button->ResizeTo(buttonWidth, button->Frame().Height());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2193 } else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2194 origin.x += button->Frame().Width() + kVimDialogButtonsSpacingX;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2195
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2196 if(dfltbutton == i + 1) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2197 button->MakeDefault(true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2198 button->MakeFocus(fInputControl == NULL);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2199 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2200 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2201 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2202
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2203 VimDialog::~VimDialog()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2204 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2205 if(fDialogSem > B_OK)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2206 delete_sem(fDialogSem);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2207 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2208
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2209 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2210 VimDialog::Go()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2211 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2212 fDialogSem = create_sem(0, "VimDialogSem");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2213 if(fDialogSem < B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2214 Quit();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2215 return fDialogValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2216 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2217
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2218 Show();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2219
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2220 while(acquire_sem(fDialogSem) == B_INTERRUPTED);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2221
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2222 int retValue = fDialogValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2223 if(fInputValue != NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2224 vim_strncpy((char_u*)fInputValue, (char_u*)fInputControl->Text(), IOSIZE - 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2225
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2226 if(Lock())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2227 Quit();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2228
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2229 return retValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2230 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2231
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2232 void VimDialog::MessageReceived(BMessage *msg)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2233 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2234 int32 which = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2235 if(msg->what != kVimDialogButtonMsg ||
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2236 msg->FindInt32("which", &which) != B_OK)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2237 return BWindow::MessageReceived(msg);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2238
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2239 fDialogValue = which;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2240 delete_sem(fDialogSem);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2241 fDialogSem = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2242 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2243
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2244 BButton* VimDialog::_CreateButton(int32 which, const char* label)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2245 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2246 BMessage *message = new BMessage(kVimDialogButtonMsg);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2247 message->AddInt32("which", which);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2248
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2249 BRect rect(0, 0, 0, 0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2250 BString name;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2251 name << "_b" << which << "_";
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2252
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2253 BButton* button = new BButton(rect, name.String(), label, message,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2254 B_FOLLOW_RIGHT | B_FOLLOW_BOTTOM);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2255
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2256 float width = 0.f, height = 0.f;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2257 button->GetPreferredSize(&width, &height);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2258 button->ResizeTo(width, height);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2259
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2260 return button;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2261 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2262
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2263 VimDialog::View::View(BRect frame)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2264 : BView(frame, "VimDialogView", B_FOLLOW_ALL_SIDES, B_WILL_DRAW),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2265 fIconBitmap(NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2266 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2267 SetViewColor(ui_color(B_PANEL_BACKGROUND_COLOR));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2268 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2269
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2270 VimDialog::View::~View()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2271 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2272 delete fIconBitmap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2273 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2274
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2275 void VimDialog::View::Draw(BRect updateRect)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2276 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2277 BRect stripeRect = Bounds();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2278 stripeRect.right = kVimDialogIconStripeWidth;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2279 SetHighColor(tint_color(ViewColor(), B_DARKEN_1_TINT));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2280 FillRect(stripeRect);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2281
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2282 if(fIconBitmap == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2283 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2284
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2285 SetDrawingMode(B_OP_ALPHA);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2286 SetBlendingMode(B_PIXEL_ALPHA, B_ALPHA_OVERLAY);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2287 DrawBitmapAsync(fIconBitmap, BPoint(18, 6));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2288 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2289
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2290 void VimDialog::View::InitIcon(int32 type)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2291 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2292 if(type == VIM_GENERIC)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2293 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2294
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2295 BPath path;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2296 status_t status = find_directory(B_BEOS_SERVERS_DIRECTORY, &path);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2297 if(status != B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2298 fprintf(stderr, "Cannot retrieve app info:%s\n", strerror(status));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2299 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2300 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2301
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2302 path.Append("app_server");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2303
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2304 BFile file(path.Path(), O_RDONLY);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2305 if(file.InitCheck() != B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2306 fprintf(stderr, "App file assignment failed:%s\n",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2307 strerror(file.InitCheck()));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2308 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2309 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2310
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2311 BResources resources(&file);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2312 if(resources.InitCheck() != B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2313 fprintf(stderr, "App server resources assignment failed:%s\n",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2314 strerror(resources.InitCheck()));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2315 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2316 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2317
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2318 const char *name = "";
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2319 switch(type) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2320 case VIM_ERROR: name = "stop"; break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2321 case VIM_WARNING: name = "warn"; break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2322 case VIM_INFO: name = "info"; break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2323 case VIM_QUESTION: name = "idea"; break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2324 default: return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2325 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2326
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2327 int32 iconSize = 32;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2328 fIconBitmap = new BBitmap(BRect(0, 0, iconSize - 1, iconSize - 1), 0, B_RGBA32);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2329 if(fIconBitmap == NULL || fIconBitmap->InitCheck() != B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2330 fprintf(stderr, "Icon bitmap allocation failed:%s\n",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2331 (fIconBitmap == NULL) ? "null" : strerror(fIconBitmap->InitCheck()));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2332 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2333 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2334
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2335 size_t size = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2336 const uint8* iconData = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2337 // try vector icon first?
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2338 iconData = (const uint8*)resources.LoadResource(B_VECTOR_ICON_TYPE, name, &size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2339 if(iconData != NULL && BIconUtils::GetVectorIcon(iconData, size, fIconBitmap) == B_OK)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2340 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2341
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2342 // try bitmap icon now
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2343 iconData = (const uint8*)resources.LoadResource(B_LARGE_ICON_TYPE, name, &size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2344 if(iconData == NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2345 fprintf(stderr, "Bitmap icon resource not found\n");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2346 delete fIconBitmap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2347 fIconBitmap = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2348 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2349 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2350
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2351 if(fIconBitmap->ColorSpace() != B_CMAP8)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2352 BIconUtils::ConvertFromCMAP8(iconData, iconSize, iconSize, iconSize, fIconBitmap);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2353 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2354
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2355 const unsigned int kVimDialogOKButtonMsg = 'FDOK';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2356 const unsigned int kVimDialogCancelButtonMsg = 'FDCN';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2357 const unsigned int kVimDialogSizeInputMsg = 'SICH';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2358 const unsigned int kVimDialogFamilySelectMsg = 'MSFM';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2359 const unsigned int kVimDialogStyleSelectMsg = 'MSST';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2360 const unsigned int kVimDialogSizeSelectMsg = 'MSSZ';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2361
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2362 VimSelectFontDialog::VimSelectFontDialog(font_family* family, font_style* style, float* size)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2363 : BWindow(kDefaultRect, "Font Selection", B_TITLED_WINDOW_LOOK, B_MODAL_APP_WINDOW_FEEL,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2364 B_NOT_CLOSABLE | B_NOT_RESIZABLE |
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2365 B_NOT_ZOOMABLE | B_NOT_MINIMIZABLE | B_ASYNCHRONOUS_CONTROLS)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2366 , fStatus(B_NO_INIT)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2367 , fDialogSem(-1)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2368 , fDialogValue(false)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2369 , fFamily(family)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2370 , fStyle(style)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2371 , fSize(size)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2372 , fFontSize(*size)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2373 , fPreview(0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2374 , fFamiliesList(0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2375 , fStylesList(0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2376 , fSizesList(0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2377 , fSizesInput(0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2378 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2379 strncpy(fFontFamily, *family, B_FONT_FAMILY_LENGTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2380 strncpy(fFontStyle, *style, B_FONT_STYLE_LENGTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2381
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2382 // "client" area view
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2383 BBox *clientBox = new BBox(Bounds(), B_EMPTY_STRING, B_FOLLOW_ALL_SIDES,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2384 B_WILL_DRAW | B_FRAME_EVENTS | B_NAVIGABLE_JUMP | B_PULSE_NEEDED,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2385 B_PLAIN_BORDER);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2386 AddChild(clientBox);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2387
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2388 // client view
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2389 BRect RC = clientBox->Bounds();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2390 RC.InsetBy(kVimDialogSpacingX, kVimDialogSpacingY);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2391 BRect rc(RC.LeftTop(), RC.LeftTop());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2392
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2393 // at first create all controls
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2394 fPreview = new BStringView(rc, "preview", "DejaVu Sans Mono");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2395 clientBox->AddChild(fPreview);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2396
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2397 BBox* boxDivider = new BBox(rc, B_EMPTY_STRING,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2398 B_FOLLOW_NONE, B_WILL_DRAW, B_FANCY_BORDER);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2399 clientBox->AddChild(boxDivider);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2400
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2401 BStringView *labelFamily = new BStringView(rc, "labelFamily", "Family:");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2402 clientBox->AddChild(labelFamily);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2403 labelFamily->ResizeToPreferred();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2404
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2405 BStringView *labelStyle = new BStringView(rc, "labelStyle", "Style:");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2406 clientBox->AddChild(labelStyle);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2407 labelStyle->ResizeToPreferred();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2408
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2409 BStringView *labelSize = new BStringView(rc, "labelSize", "Size:");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2410 clientBox->AddChild(labelSize);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2411 labelSize->ResizeToPreferred();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2412
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2413 fFamiliesList = new BListView(rc, "listFamily",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2414 B_SINGLE_SELECTION_LIST, B_FOLLOW_ALL_SIDES);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2415 BScrollView *scrollFamilies = new BScrollView("scrollFamily",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2416 fFamiliesList, B_FOLLOW_LEFT_RIGHT, 0, false, true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2417 clientBox->AddChild(scrollFamilies);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2418
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2419 fStylesList= new BListView(rc, "listStyles",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2420 B_SINGLE_SELECTION_LIST, B_FOLLOW_ALL_SIDES);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2421 BScrollView *scrollStyles = new BScrollView("scrollStyle",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2422 fStylesList, B_FOLLOW_LEFT_RIGHT, 0, false, true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2423 clientBox->AddChild(scrollStyles);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2424
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2425 fSizesInput = new BTextControl(rc, "inputSize", NULL, "???",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2426 new BMessage(kVimDialogSizeInputMsg));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2427 clientBox->AddChild(fSizesInput);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2428 fSizesInput->ResizeToPreferred();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2429
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2430 fSizesList = new BListView(rc, "listSizes",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2431 B_SINGLE_SELECTION_LIST, B_FOLLOW_ALL_SIDES);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2432 BScrollView *scrollSizes = new BScrollView("scrollSize",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2433 fSizesList, B_FOLLOW_LEFT_RIGHT, 0, false, true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2434 clientBox->AddChild(scrollSizes);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2435
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2436 BButton *buttonOK = new BButton(rc, "buttonOK", "OK",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2437 new BMessage(kVimDialogOKButtonMsg));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2438 clientBox->AddChild(buttonOK);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2439 buttonOK->ResizeToPreferred();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2440
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2441 BButton *buttonCancel = new BButton(rc, "buttonCancel", "Cancel",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2442 new BMessage(kVimDialogCancelButtonMsg));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2443 clientBox->AddChild(buttonCancel);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2444 buttonCancel->ResizeToPreferred();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2445
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2446 // layout controls
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2447 float lineHeight = labelFamily->Bounds().Height();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2448 float previewHeight = lineHeight * 3;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2449 float offsetYLabels = previewHeight + kVimDialogSpacingY;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2450 float offsetYLists = offsetYLabels + lineHeight + kVimDialogSpacingY / 2;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2451 float offsetYSizes = offsetYLists + fSizesInput->Bounds().Height() + kVimDialogSpacingY / 2;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2452 float listsHeight = lineHeight * 9;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2453 float offsetYButtons = offsetYLists + listsHeight + kVimDialogSpacingY;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2454 float maxControlsHeight = offsetYButtons + buttonOK->Bounds().Height();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2455 float familiesWidth = labelFamily->Bounds().Width() * 5;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2456 float offsetXStyles = familiesWidth + kVimDialogSpacingX;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2457 float stylesWidth = labelStyle->Bounds().Width() * 4;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2458 float offsetXSizes = offsetXStyles + stylesWidth + kVimDialogSpacingX;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2459 float sizesWidth = labelSize->Bounds().Width() * 2;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2460 float maxControlsWidth = offsetXSizes + sizesWidth;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2461
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2462 ResizeTo(maxControlsWidth + kVimDialogSpacingX * 2,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2463 maxControlsHeight + kVimDialogSpacingY * 2);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2464
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2465 BRect rcVim = gui.vimWindow->Frame();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2466 MoveTo(rcVim.left + (rcVim.Width() - Frame().Width()) / 2,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2467 rcVim.top + (rcVim.Height() - Frame().Height()) / 2);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2468
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2469 fPreview->ResizeTo(maxControlsWidth, previewHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2470 fPreview->SetAlignment(B_ALIGN_CENTER);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2471
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2472 boxDivider->MoveBy(0.f, previewHeight + kVimDialogSpacingY / 2);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2473 boxDivider->ResizeTo(maxControlsWidth, 1.f);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2474
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2475 labelFamily->MoveBy(0.f, offsetYLabels);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2476 labelStyle->MoveBy(offsetXStyles, offsetYLabels);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2477 labelSize->MoveBy(offsetXSizes, offsetYLabels);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2478
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2479 // text control alignment issues
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2480 float insetX = fSizesInput->TextView()->Bounds().Width() - fSizesInput->Bounds().Width();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2481 float insetY = fSizesInput->TextView()->Bounds().Width() - fSizesInput->Bounds().Width();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2482
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2483 scrollFamilies->MoveBy(0.f, offsetYLists);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2484 scrollStyles->MoveBy(offsetXStyles, offsetYLists);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2485 fSizesInput->MoveBy(offsetXSizes + insetX / 2, offsetYLists + insetY / 2);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2486 scrollSizes->MoveBy(offsetXSizes, offsetYSizes);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2487
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2488 fSizesInput->SetAlignment(B_ALIGN_CENTER, B_ALIGN_CENTER);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2489
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2490 scrollFamilies->ResizeTo(familiesWidth, listsHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2491 scrollStyles->ResizeTo(stylesWidth, listsHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2492 fSizesInput->ResizeTo(sizesWidth, fSizesInput->Bounds().Height());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2493 scrollSizes->ResizeTo(sizesWidth,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2494 listsHeight - (offsetYSizes - offsetYLists));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2495
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2496 buttonOK->MoveBy(maxControlsWidth - buttonOK->Bounds().Width(), offsetYButtons);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2497 buttonCancel->MoveBy(maxControlsWidth - buttonOK->Bounds().Width()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2498 - buttonCancel->Bounds().Width() - kVimDialogSpacingX, offsetYButtons);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2499
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2500 // fill lists
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2501 int selIndex = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2502 int count = count_font_families();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2503 for (int i = 0; i < count; i++) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2504 font_family family;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2505 if (get_font_family(i, &family ) == B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2506 fFamiliesList->AddItem(new BStringItem((const char*)family));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2507 if (strncmp(family, fFontFamily, B_FONT_FAMILY_LENGTH) == 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2508 selIndex = i;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2509 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2510 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2511
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2512 if (selIndex >= 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2513 fFamiliesList->Select(selIndex);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2514 fFamiliesList->ScrollToSelection();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2515 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2516
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2517 _UpdateFontStyles();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2518
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2519 selIndex = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2520 for (int size = 8, index = 0; size <= 18; size++, index++) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2521 BString str;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2522 str << size;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2523 fSizesList->AddItem(new BStringItem(str));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2524 if (size == fFontSize)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2525 selIndex = index;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2526
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2527 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2528
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2529 if (selIndex >= 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2530 fSizesList->Select(selIndex);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2531 fSizesList->ScrollToSelection();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2532 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2533
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2534 fFamiliesList->SetSelectionMessage(new BMessage(kVimDialogFamilySelectMsg));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2535 fStylesList->SetSelectionMessage(new BMessage(kVimDialogStyleSelectMsg));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2536 fSizesList->SetSelectionMessage(new BMessage(kVimDialogSizeSelectMsg));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2537 fSizesInput->SetModificationMessage(new BMessage(kVimDialogSizeInputMsg));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2538
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2539 _UpdateSizeInputPreview();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2540 _UpdateFontPreview();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2541
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2542 fStatus = B_OK;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2543 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2544
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2545 VimSelectFontDialog::~VimSelectFontDialog()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2546 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2547 _CleanList(fFamiliesList);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2548 _CleanList(fStylesList);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2549 _CleanList(fSizesList);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2550
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2551 if (fDialogSem > B_OK)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2552 delete_sem(fDialogSem);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2553 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2554
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2555 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2556 VimSelectFontDialog::_CleanList(BListView* list)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2557 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2558 while(0 < list->CountItems())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2559 delete (dynamic_cast<BStringItem*>(list->RemoveItem((int32)0)));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2560 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2561
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2562 bool
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2563 VimSelectFontDialog::Go()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2564 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2565 if (fStatus != B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2566 Quit();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2567 return NOFONT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2568 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2569
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2570 fDialogSem = create_sem(0, "VimFontSelectDialogSem");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2571 if(fDialogSem < B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2572 Quit();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2573 return fDialogValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2574 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2575
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2576 Show();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2577
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2578 while(acquire_sem(fDialogSem) == B_INTERRUPTED);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2579
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2580 bool retValue = fDialogValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2581
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2582 if(Lock())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2583 Quit();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2584
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2585 return retValue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2586 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2587
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2588
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2589 void VimSelectFontDialog::_UpdateFontStyles()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2590 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2591 _CleanList(fStylesList);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2592
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2593 int32 selIndex = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2594 int32 count = count_font_styles(fFontFamily);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2595 for (int32 i = 0; i < count; i++) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2596 font_style style;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2597 uint32 flags = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2598 if (get_font_style(fFontFamily, i, &style, &flags) == B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2599 fStylesList->AddItem(new BStringItem((const char*)style));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2600 if (strncmp(style, fFontStyle, B_FONT_STYLE_LENGTH) == 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2601 selIndex = i;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2602 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2603 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2604
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2605 if (selIndex >= 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2606 fStylesList->Select(selIndex);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2607 fStylesList->ScrollToSelection();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2608 } else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2609 fStylesList->Select(0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2610 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2611
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2612
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2613 void VimSelectFontDialog::_UpdateSizeInputPreview()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2614 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2615 char buf[10] = {0};
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2616 vim_snprintf(buf, sizeof(buf), (char*)"%.0f", fFontSize);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2617 fSizesInput->SetText(buf);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2618 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2619
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2620
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2621 void VimSelectFontDialog::_UpdateFontPreview()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2622 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2623 BFont font;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2624 fPreview->GetFont(&font);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2625 font.SetSize(fFontSize);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2626 font.SetFamilyAndStyle(fFontFamily, fFontStyle);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2627 fPreview->SetFont(&font, B_FONT_FAMILY_AND_STYLE | B_FONT_SIZE);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2628
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2629 BString str;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2630 str << fFontFamily << " " << fFontStyle << ", " << (int)fFontSize << " pt.";
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2631 fPreview->SetText(str);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2632 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2633
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2634
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2635 bool
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2636 VimSelectFontDialog::_UpdateFromListItem(BListView* list, char* text, int textSize)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2637 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2638 int32 index = list->CurrentSelection();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2639 if (index < 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2640 return false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2641 BStringItem* item = (BStringItem*)list->ItemAt(index);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2642 if (item == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2643 return false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2644 strncpy(text, item->Text(), textSize);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2645 return true;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2646 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2647
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2648
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2649 void VimSelectFontDialog::MessageReceived(BMessage *msg)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2650 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2651 switch (msg->what) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2652 case kVimDialogOKButtonMsg:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2653 strncpy(*fFamily, fFontFamily, B_FONT_FAMILY_LENGTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2654 strncpy(*fStyle, fFontStyle, B_FONT_STYLE_LENGTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2655 *fSize = fFontSize;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2656 fDialogValue = true;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2657 case kVimDialogCancelButtonMsg:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2658 delete_sem(fDialogSem);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2659 fDialogSem = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2660 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2661 case B_KEY_UP:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2662 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2663 int32 key = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2664 if (msg->FindInt32("raw_char", &key) == B_OK
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2665 && key == B_ESCAPE) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2666 delete_sem(fDialogSem);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2667 fDialogSem = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2668 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2669 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2670 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2671
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2672 case kVimDialogFamilySelectMsg:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2673 if (_UpdateFromListItem(fFamiliesList,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2674 fFontFamily, B_FONT_FAMILY_LENGTH)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2675 _UpdateFontStyles();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2676 _UpdateFontPreview();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2677 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2678 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2679 case kVimDialogStyleSelectMsg:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2680 if (_UpdateFromListItem(fStylesList,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2681 fFontStyle, B_FONT_STYLE_LENGTH))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2682 _UpdateFontPreview();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2683 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2684 case kVimDialogSizeSelectMsg:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2685 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2686 char buf[10] = {0};
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2687 if (_UpdateFromListItem(fSizesList, buf, sizeof(buf))) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2688 float size = atof(buf);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2689 if (size > 0.f) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2690 fFontSize = size;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2691 _UpdateSizeInputPreview();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2692 _UpdateFontPreview();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2693 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2694 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2695 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2696 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2697 case kVimDialogSizeInputMsg:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2698 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2699 float size = atof(fSizesInput->Text());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2700 if (size > 0.f) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2701 fFontSize = size;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2702 _UpdateFontPreview();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2703 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2704 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2705 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2706 default:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2707 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2708 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2709 return BWindow::MessageReceived(msg);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2710 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2711
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2712 #endif // FEAT_GUI_DIALOG
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2713
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2714 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2715
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2716 // some forward declaration required by toolbar functions...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2717 static BMessage * MenuMessage(vimmenu_T *menu);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2718
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2719 VimToolbar::VimToolbar(BRect frame, const char *name) :
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2720 BBox(frame, name, B_FOLLOW_LEFT | B_FOLLOW_TOP, B_WILL_DRAW | B_FRAME_EVENTS, B_PLAIN_BORDER)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2721 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2722 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2723
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2724 VimToolbar::~VimToolbar()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2725 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2726 int32 count = fButtonsList.CountItems();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2727 for(int32 i = 0; i < count; i++)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2728 delete (BPictureButton*)fButtonsList.ItemAt(i);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2729 fButtonsList.MakeEmpty();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2730
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2731 delete normalButtonsBitmap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2732 delete grayedButtonsBitmap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2733 normalButtonsBitmap = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2734 grayedButtonsBitmap = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2735 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2736
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2737 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2738 VimToolbar::AttachedToWindow()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2739 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2740 BBox::AttachedToWindow();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2741
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2742 SetViewColor(ui_color(B_PANEL_BACKGROUND_COLOR));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2743 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2744
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2745 float
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2746 VimToolbar::ToolbarHeight() const
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2747 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2748 float size = NULL == normalButtonsBitmap ? 18. : normalButtonsBitmap->Bounds().Height();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2749 return size + ToolbarMargin * 2 + ButtonMargin * 2 + 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2750 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2751
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2752 bool
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2753 VimToolbar::ModifyBitmapToGrayed(BBitmap *bitmap)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2754 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2755 float height = bitmap->Bounds().Height();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2756 float width = bitmap->Bounds().Width();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2757
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2758 rgb_color *bits = (rgb_color*)bitmap->Bits();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2759 int32 pixels = bitmap->BitsLength() / 4;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2760 for(int32 i = 0; i < pixels; i++) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2761 bits[i].red = bits[i].green =
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2762 bits[i].blue = ((uint32)bits[i].red + bits[i].green + bits[i].blue) / 3;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2763 bits[i].alpha /= 4;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2764 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2765
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2766 return true;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2767 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2768
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2769 bool
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2770 VimToolbar::PrepareButtonBitmaps()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2771 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2772 // first try to load potentially customized $VIRUNTIME/bitmaps/builtin-tools.png
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2773 normalButtonsBitmap = LoadVimBitmap("builtin-tools.png");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2774 if(normalButtonsBitmap == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2775 // customized not found? dig application resources for "builtin-tools" one
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2776 normalButtonsBitmap = BTranslationUtils::GetBitmap(B_PNG_FORMAT, "builtin-tools");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2777
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2778 if(normalButtonsBitmap == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2779 return false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2780
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2781 BMessage archive;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2782 normalButtonsBitmap->Archive(&archive);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2783
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2784 grayedButtonsBitmap = new BBitmap(&archive);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2785 if(grayedButtonsBitmap == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2786 return false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2787
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2788 // modify grayed bitmap
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2789 ModifyBitmapToGrayed(grayedButtonsBitmap);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2790
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2791 return true;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2792 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2793
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2794 BBitmap *VimToolbar::LoadVimBitmap(const char* fileName)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2795 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2796 BBitmap *bitmap = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2797
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2798 int mustfree = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2799 char_u* runtimePath = vim_getenv((char_u*)"VIMRUNTIME", &mustfree);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2800 if(runtimePath != NULL && fileName != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2801 BString strPath((char*)runtimePath);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2802 strPath << "/bitmaps/" << fileName;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2803 bitmap = BTranslationUtils::GetBitmap(strPath.String());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2804 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2805
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2806 if(mustfree)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2807 vim_free(runtimePath);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2808
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2809 return bitmap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2810 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2811
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2812 bool
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2813 VimToolbar::GetPictureFromBitmap(BPicture *pictureTo, int32 index, BBitmap *bitmapFrom, bool pressed)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2814 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2815 float size = bitmapFrom->Bounds().Height() + 1.;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2816
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2817 BView view(BRect(0, 0, size, size), "", 0, 0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2818
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2819 AddChild(&view);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2820 view.BeginPicture(pictureTo);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2821
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2822 view.SetHighColor(ui_color(B_PANEL_BACKGROUND_COLOR));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2823 view.FillRect(view.Bounds());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2824 view.SetDrawingMode(B_OP_OVER);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2825
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2826 BRect source(0, 0, size - 1, size - 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2827 BRect destination(source);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2828
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2829 source.OffsetBy(size * index, 0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2830 destination.OffsetBy(ButtonMargin, ButtonMargin);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2831
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2832 view.DrawBitmap(bitmapFrom, source, destination);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2833
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2834 if(pressed) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2835 rgb_color shineColor = ui_color(B_SHINE_COLOR);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2836 rgb_color shadowColor = ui_color(B_SHADOW_COLOR);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2837 size += ButtonMargin * 2 - 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2838 view.BeginLineArray(4);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2839 view.AddLine(BPoint(0, 0), BPoint(size, 0), shadowColor);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2840 view.AddLine(BPoint(size, 0), BPoint(size, size), shineColor);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2841 view.AddLine(BPoint(size, size), BPoint(0, size), shineColor);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2842 view.AddLine(BPoint(0, size), BPoint(0, 0), shadowColor);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2843 view.EndLineArray();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2844 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2845
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2846 view.EndPicture();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2847 RemoveChild(&view);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2848
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2849 return true;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2850 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2851
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2852 bool
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2853 VimToolbar::AddButton(int32 index, vimmenu_T *menu)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2854 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2855 BPictureButton *button = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2856 if(!menu_is_separator(menu->name)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2857 float size = normalButtonsBitmap ?
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2858 normalButtonsBitmap->Bounds().Height() + 1. + ButtonMargin * 2 : 18.;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2859 BRect frame(0, 0, size, size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2860 BPicture pictureOn;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2861 BPicture pictureOff;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2862 BPicture pictureGray;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2863
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2864 if(menu->iconfile == NULL && menu->iconidx >= 0 && normalButtonsBitmap) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2865 GetPictureFromBitmap(&pictureOn, menu->iconidx, normalButtonsBitmap, true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2866 GetPictureFromBitmap(&pictureOff, menu->iconidx, normalButtonsBitmap, false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2867 GetPictureFromBitmap(&pictureGray, menu->iconidx, grayedButtonsBitmap, false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2868 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2869
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2870 char_u buffer[MAXPATHL] = {0};
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2871 BBitmap *bitmap = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2872
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2873 if(menu->iconfile) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2874 gui_find_iconfile(menu->iconfile, buffer, (char*)"png");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2875 bitmap = BTranslationUtils::GetBitmap((char*)buffer);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2876 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2877
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2878 if(bitmap == NULL && gui_find_bitmap(menu->name, buffer, (char*)"png") == OK)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2879 bitmap = BTranslationUtils::GetBitmap((char*)buffer);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2880
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2881 if(bitmap == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2882 bitmap = new BBitmap(BRect(0, 0, size, size), B_RGB32);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2883
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2884 GetPictureFromBitmap(&pictureOn, 0, bitmap, true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2885 GetPictureFromBitmap(&pictureOff, 0, bitmap, false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2886 ModifyBitmapToGrayed(bitmap);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2887 GetPictureFromBitmap(&pictureGray, 0, bitmap, false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2888
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2889 delete bitmap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2890 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2891
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2892 button = new BPictureButton(frame, (char*)menu->name,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2893 &pictureOff, &pictureOn, MenuMessage(menu));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2894
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2895 button->SetDisabledOn(&pictureGray);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2896 button->SetDisabledOff(&pictureGray);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2897
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2898 button->SetTarget(gui.vimTextArea);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2899
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2900 AddChild(button);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2901
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2902 menu->button = button;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2903 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2904
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2905 bool result = fButtonsList.AddItem(button, index);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2906 InvalidateLayout();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2907 return result;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2908 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2909
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2910 bool
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2911 VimToolbar::RemoveButton(vimmenu_T *menu)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2912 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2913 if(menu->button) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2914 if(fButtonsList.RemoveItem(menu->button)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2915 delete menu->button;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2916 menu->button = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2917 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2918 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2919 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2920
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2921 bool
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2922 VimToolbar::GrayButton(vimmenu_T *menu, int grey)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2923 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2924 if(menu->button) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2925 int32 index = fButtonsList.IndexOf(menu->button);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2926 if(index >= 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2927 menu->button->SetEnabled(grey ? false : true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2928 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2929 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2930
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2931 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2932 VimToolbar::InvalidateLayout()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2933 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2934 int32 offset = ToolbarMargin;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2935 int32 count = fButtonsList.CountItems();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2936 for(int32 i = 0; i < count; i++) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2937 BPictureButton *button = (BPictureButton *)fButtonsList.ItemAt(i);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2938 if(button) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2939 button->MoveTo(offset, ToolbarMargin);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2940 offset += button->Bounds().Width() + ToolbarMargin;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2941 } else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2942 offset += ToolbarMargin * 3;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2943 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2944 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2945
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2946 #endif /*FEAT_TOOLBAR*/
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2947
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2948 #if defined(FEAT_GUI_TABLINE)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2949
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2950 float
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2951 VimTabLine::TablineHeight() const
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2952 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2953 // float size = NULL == normalButtonsBitmap ? 18. : normalButtonsBitmap->Bounds().Height();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2954 // return size + ToolbarMargin * 2 + ButtonMargin * 2 + 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2955 return TabHeight(); // + ToolbarMargin;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2956 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2957
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2958 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2959 VimTabLine::MouseDown(BPoint point)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2960 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2961 if(!gui_mch_showing_tabline())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2962 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2963
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2964 BMessage *m = Window()->CurrentMessage();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2965 assert(m);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2966
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2967 int32 buttons = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2968 m->FindInt32("buttons", &buttons);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2969
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2970 int32 clicks = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2971 m->FindInt32("clicks", &clicks);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2972
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2973 int index = 0; // 0 means here - no tab found
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2974 for (int i = 0; i < CountTabs(); i++) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2975 if(TabFrame(i).Contains(point)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2976 index = i + 1; // indexes are 1-based
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2977 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2978 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2979 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2980
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2981 int event = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2982
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2983 if ((buttons & B_PRIMARY_MOUSE_BUTTON) && clicks > 1)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2984 // left button double click on - create new tab
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2985 event = TABLINE_MENU_NEW;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2986
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2987 else if (buttons & B_TERTIARY_MOUSE_BUTTON)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2988 // middle button click - close the pointed tab
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2989 // or create new one in case empty space
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2990 event = index > 0 ? TABLINE_MENU_CLOSE : TABLINE_MENU_NEW;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2991
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2992 else if (buttons & B_SECONDARY_MOUSE_BUTTON) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2993 // right button click - show context menu
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2994 BPopUpMenu* popUpMenu = new BPopUpMenu("tabLineContextMenu", false, false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2995 popUpMenu->AddItem(new BMenuItem(_("Close tabi R"), new BMessage(TABLINE_MENU_CLOSE)));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2996 popUpMenu->AddItem(new BMenuItem(_("New tab T"), new BMessage(TABLINE_MENU_NEW)));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2997 popUpMenu->AddItem(new BMenuItem(_("Open tab..."), new BMessage(TABLINE_MENU_OPEN)));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2998
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2999 ConvertToScreen(&point);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3000 BMenuItem* item = popUpMenu->Go(point);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3001 if (item != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3002 event = item->Command();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3003 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3004
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3005 delete popUpMenu;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3006
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3007 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3008 // default processing
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3009 BTabView::MouseDown(point);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3010 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3011 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3012
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3013 if (event < 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3014 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3015
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3016 VimTablineMenuMsg tmm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3017 tmm.index = index;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3018 tmm.event = event;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3019 write_port(gui.vdcmp, VimMsg::TablineMenu, &tmm, sizeof(tmm));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3020 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3021
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3022 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3023 VimTabLine::VimTab::Select(BView* owner)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3024 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3025 BTab::Select(owner);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3026
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3027 VimTabLine *tabLine = gui.vimForm->TabLine();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3028 if(tabLine != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3029
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3030 int32 i = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3031 for (; i < tabLine->CountTabs(); i++)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3032 if(this == tabLine->TabAt(i))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3033 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3034
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3035 // printf("%d:%d:%s\n", i, tabLine->CountTabs(), tabLine->TabAt(i)->Label());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3036 if(i < tabLine->CountTabs()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3037 VimTablineMsg tm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3038 tm.index = i + 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3039 write_port(gui.vdcmp, VimMsg::Tabline, &tm, sizeof(tm));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3040 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3041 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3042 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3043
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3044 #endif // defined(FEAT_GUI_TABLINE)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3045
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3046 // ---------------- ----------------
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3047
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3048 // some global variables
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3049 static char appsig[] = "application/x-vnd.Haiku-Vim-8";
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3050 key_map *keyMap;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3051 char *keyMapChars;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3052 int main_exitcode = 127;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3053
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3054 status_t
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3055 gui_haiku_process_event(bigtime_t timeout)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3056 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3057 struct VimMsg vm;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3058 int32 what;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3059 ssize_t size;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3060
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3061 size = read_port_etc(gui.vdcmp, &what, &vm, sizeof(vm),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3062 B_TIMEOUT, timeout);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3063
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3064 if (size >= 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3065 switch (what) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3066 case VimMsg::Key:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3067 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3068 char_u *string = vm.u.Key.chars;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3069 int len = vm.u.Key.length;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3070 if (len == 1 && string[0] == Ctrl_chr('C')) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3071 trash_input_buf();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3072 got_int = TRUE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3073 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3074
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3075 if (vm.u.Key.csi_escape)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3076 #ifndef FEAT_MBYTE_IME
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3077 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3078 int i;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3079 char_u buf[2];
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3080
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3081 for (i = 0; i < len; ++i)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3082 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3083 add_to_input_buf(string + i, 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3084 if (string[i] == CSI)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3085 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3086 // Turn CSI into K_CSI.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3087 buf[0] = KS_EXTRA;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3088 buf[1] = (int)KE_CSI;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3089 add_to_input_buf(buf, 2);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3090 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3091 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3092 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3093 #else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3094 add_to_input_buf_csi(string, len);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3095 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3096 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3097 add_to_input_buf(string, len);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3098 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3099 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3100 case VimMsg::Resize:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3101 gui_resize_shell(vm.u.NewSize.width, vm.u.NewSize.height);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3102 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3103 case VimMsg::ScrollBar:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3104 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3105 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3106 * If loads of scroll messages queue up, use only the last
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3107 * one. Always report when the scrollbar stops dragging.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3108 * This is not perfect yet anyway: these events are queued
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3109 * yet again, this time in the keyboard input buffer.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3110 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3111 int32 oldCount =
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3112 atomic_add(&vm.u.Scroll.sb->scrollEventCount, -1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3113 if (oldCount <= 1 || !vm.u.Scroll.stillDragging)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3114 gui_drag_scrollbar(vm.u.Scroll.sb->getGsb(),
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3115 vm.u.Scroll.value, vm.u.Scroll.stillDragging);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3116 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3117 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3118 #if defined(FEAT_MENU)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3119 case VimMsg::Menu:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3120 gui_menu_cb(vm.u.Menu.guiMenu);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3121 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3122 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3123 case VimMsg::Mouse:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3124 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3125 int32 oldCount;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3126 if (vm.u.Mouse.button == MOUSE_DRAG)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3127 oldCount =
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3128 atomic_add(&gui.vimTextArea->mouseDragEventCount, -1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3129 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3130 oldCount = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3131 if (oldCount <= 1)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3132 gui_send_mouse_event(vm.u.Mouse.button, vm.u.Mouse.x,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3133 vm.u.Mouse.y, vm.u.Mouse.repeated_click,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3134 vm.u.Mouse.modifiers);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3135 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3136 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3137 case VimMsg::MouseMoved:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3138 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3139 gui_mouse_moved(vm.u.MouseMoved.x, vm.u.MouseMoved.y);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3140 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3141 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3142 case VimMsg::Focus:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3143 gui.in_focus = vm.u.Focus.active;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3144 // XXX Signal that scrollbar dragging has stopped?
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3145 // This is needed because we don't get a MouseUp if
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3146 // that happens while outside the window... :-(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3147 if (gui.dragged_sb) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3148 gui.dragged_sb = SBAR_NONE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3149 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3150 // gui_update_cursor(TRUE, FALSE);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3151 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3152 case VimMsg::Refs:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3153 ::RefsReceived(vm.u.Refs.message, vm.u.Refs.changedir);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3154 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3155 case VimMsg::Tabline:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3156 send_tabline_event(vm.u.Tabline.index);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3157 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3158 case VimMsg::TablineMenu:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3159 send_tabline_menu_event(vm.u.TablineMenu.index, vm.u.TablineMenu.event);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3160 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3161 default:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3162 // unrecognised message, ignore it
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3163 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3164 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3165 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3166
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3167 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3168 * If size < B_OK, it is an error code.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3169 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3170 return size;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3171 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3172
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3173 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3174 * Here are some functions to protect access to ScreenLines[] and
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3175 * LineOffset[]. These are used from the window thread to respond
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3176 * to a Draw() callback. When that occurs, the window is already
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3177 * locked by the system.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3178 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3179 * Other code that needs to lock is any code that changes these
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3180 * variables. Other read-only access, or access merely to the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3181 * contents of the screen buffer, need not be locked.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3182 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3183 * If there is no window, don't call Lock() but do succeed.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3184 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3185
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3186 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3187 vim_lock_screen()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3188 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3189 return !gui.vimWindow || gui.vimWindow->Lock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3190 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3191
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3192 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3193 vim_unlock_screen()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3194 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3195 if (gui.vimWindow)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3196 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3197 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3198
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3199 #define RUN_BAPPLICATION_IN_NEW_THREAD 0
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3200
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3201 #if RUN_BAPPLICATION_IN_NEW_THREAD
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3202
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3203 int32
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3204 run_vimapp(void *args)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3205 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3206 VimApp app(appsig);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3207
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3208 gui.vimApp = &app;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3209 app.Run(); // Run until Quit() called
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3210
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3211 return 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3212 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3213
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3214 #else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3215
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3216 int32
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3217 call_main(void *args)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3218 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3219 struct MainArgs *ma = (MainArgs *)args;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3220
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3221 return main(ma->argc, ma->argv);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3222 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3223 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3224
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3225 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3226 * Parse the GUI related command-line arguments. Any arguments used are
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3227 * deleted from argv, and *argc is decremented accordingly. This is called
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3228 * when vim is started, whether or not the GUI has been started.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3229 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3230 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3231 gui_mch_prepare(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3232 int *argc,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3233 char **argv)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3234 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3235 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3236 * We don't have any command line arguments for the BeOS GUI yet,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3237 * but this is an excellent place to create our Application object.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3238 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3239 if (!gui.vimApp) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3240 thread_info tinfo;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3241 get_thread_info(find_thread(NULL), &tinfo);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3242
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3243 // May need the port very early on to process RefsReceived()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3244 gui.vdcmp = create_port(B_MAX_PORT_COUNT, "vim VDCMP");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3245
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3246 #if RUN_BAPPLICATION_IN_NEW_THREAD
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3247 thread_id tid = spawn_thread(run_vimapp, "vim VimApp",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3248 tinfo.priority, NULL);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3249 if (tid >= B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3250 resume_thread(tid);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3251 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3252 getout(1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3253 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3254 #else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3255 MainArgs ma = { *argc, argv };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3256 thread_id tid = spawn_thread(call_main, "vim main()",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3257 tinfo.priority, &ma);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3258 if (tid >= B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3259 VimApp app(appsig);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3260
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3261 gui.vimApp = &app;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3262 resume_thread(tid);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3263 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3264 * This is rather horrible.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3265 * call_main will call main() again...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3266 * There will be no infinite recursion since
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3267 * gui.vimApp is set now.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3268 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3269 app.Run(); // Run until Quit() called
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3270 // fprintf(stderr, "app.Run() returned...\n");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3271 status_t dummy_exitcode;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3272 (void)wait_for_thread(tid, &dummy_exitcode);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3273
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3274 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3275 * This path should be the normal one taken to exit Vim.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3276 * The main() thread calls mch_exit() which calls
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3277 * gui_mch_exit() which terminates its thread.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3278 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3279 exit(main_exitcode);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3280 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3281 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3282 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3283 // Don't fork() when starting the GUI. Spawned threads are not
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3284 // duplicated with a fork(). The result is a mess.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3285 gui.dofork = FALSE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3286 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3287 * XXX Try to determine whether we were started from
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3288 * the Tracker or the terminal.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3289 * It would be nice to have this work, because the Tracker
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3290 * follows symlinks, so even if you double-click on gvim,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3291 * when it is a link to vim it will still pass a command name
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3292 * of vim...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3293 * We try here to see if stdin comes from /dev/null. If so,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3294 * (or if there is an error, which should never happen) start the GUI.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3295 * This does the wrong thing for vim - </dev/null, and we're
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3296 * too early to see the command line parsing. Tough.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3297 * On the other hand, it starts the gui for vim file & which is nice.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3298 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3299 if (!isatty(0)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3300 struct stat stat_stdin, stat_dev_null;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3301
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3302 if (fstat(0, &stat_stdin) == -1 ||
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3303 stat("/dev/null", &stat_dev_null) == -1 ||
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3304 (stat_stdin.st_dev == stat_dev_null.st_dev &&
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3305 stat_stdin.st_ino == stat_dev_null.st_ino))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3306 gui.starting = TRUE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3307 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3308 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3309
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3310 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3311 * Check if the GUI can be started. Called before gvimrc is sourced.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3312 * Return OK or FAIL.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3313 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3314 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3315 gui_mch_init_check(void)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3316 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3317 return OK; // TODO: GUI can always be started?
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3318 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3319
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3320 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3321 * Initialise the GUI. Create all the windows, set up all the call-backs
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3322 * etc.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3323 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3324 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3325 gui_mch_init()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3326 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3327 display_errors();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3328 gui.def_norm_pixel = RGB(0x00, 0x00, 0x00); // black
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3329 gui.def_back_pixel = RGB(0xFF, 0xFF, 0xFF); // white
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3330 gui.norm_pixel = gui.def_norm_pixel;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3331 gui.back_pixel = gui.def_back_pixel;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3332
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3333 gui.scrollbar_width = (int) B_V_SCROLL_BAR_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3334 gui.scrollbar_height = (int) B_H_SCROLL_BAR_HEIGHT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3335 #ifdef FEAT_MENU
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3336 gui.menu_height = 19; // initial guess -
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3337 // correct for my default settings
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3338 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3339 gui.border_offset = 3; // coordinates are inside window borders
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3340
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3341 if (gui.vdcmp < B_OK)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3342 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3343 get_key_map(&keyMap, &keyMapChars);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3344
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3345 gui.vimWindow = new VimWindow(); // hidden and locked
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3346 if (!gui.vimWindow)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3347 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3348
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3349 gui.vimWindow->Run(); // Run() unlocks but does not show
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3350
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3351 // Get the colors from the "Normal" group (set in syntax.c or in a vimrc
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3352 // file)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3353 set_normal_colors();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3354
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3355 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3356 * Check that none of the colors are the same as the background color
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3357 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3358 gui_check_colors();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3359
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3360 // Get the colors for the highlight groups (gui_check_colors() might have
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3361 // changed them)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3362 highlight_gui_started(); // re-init colors and fonts
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3363
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3364 gui_mch_new_colors(); // window must exist for this
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3365
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3366 return OK;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3367 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3368
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3369 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3370 * Called when the foreground or background color has been changed.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3371 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3372 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3373 gui_mch_new_colors()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3374 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3375 rgb_color rgb = GUI_TO_RGB(gui.back_pixel);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3376
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3377 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3378 gui.vimForm->SetViewColor(rgb);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3379 // Does this not have too much effect for those small rectangles?
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3380 gui.vimForm->Invalidate();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3381 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3382 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3383 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3384
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3385 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3386 * Open the GUI window which was created by a call to gui_mch_init().
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3387 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3388 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3389 gui_mch_open()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3390 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3391 if (gui_win_x != -1 && gui_win_y != -1)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3392 gui_mch_set_winpos(gui_win_x, gui_win_y);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3393
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3394 // Actually open the window
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3395 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3396 gui.vimWindow->Show();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3397 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3398 return OK;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3399 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3400
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3401 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3402 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3403
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3404 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3405 gui_mch_exit(int vim_exitcode)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3406 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3407 if (gui.vimWindow) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3408 thread_id tid = gui.vimWindow->Thread();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3409 gui.vimWindow->Lock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3410 gui.vimWindow->Quit();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3411 // Wait until it is truely gone
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3412 int32 exitcode;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3413 wait_for_thread(tid, &exitcode);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3414 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3415 delete_port(gui.vdcmp);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3416 #if !RUN_BAPPLICATION_IN_NEW_THREAD
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3417 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3418 * We are in the main() thread - quit the App thread and
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3419 * quit ourselves (passing on the exitcode). Use a global since the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3420 * value from exit_thread() is only used if wait_for_thread() is
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3421 * called in time (race condition).
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3422 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3423 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3424 if (gui.vimApp) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3425 VimTextAreaView::guiBlankMouse(false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3426
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3427 main_exitcode = vim_exitcode;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3428 #if RUN_BAPPLICATION_IN_NEW_THREAD
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3429 thread_id tid = gui.vimApp->Thread();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3430 int32 exitcode;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3431 gui.vimApp->Lock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3432 gui.vimApp->Quit();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3433 gui.vimApp->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3434 wait_for_thread(tid, &exitcode);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3435 #else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3436 gui.vimApp->Lock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3437 gui.vimApp->Quit();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3438 gui.vimApp->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3439 // suicide
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3440 exit_thread(vim_exitcode);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3441 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3442 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3443 // If we are somehow still here, let mch_exit() handle things.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3444 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3445
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3446 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3447 * Get the position of the top left corner of the window.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3448 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3449 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3450 gui_mch_get_winpos(int *x, int *y)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3451 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3452 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3453 BRect r;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3454 r = gui.vimWindow->Frame();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3455 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3456 *x = (int)r.left;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3457 *y = (int)r.top;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3458 return OK;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3459 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3460 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3461 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3462 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3463
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3464 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3465 * Set the position of the top left corner of the window to the given
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3466 * coordinates.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3467 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3468 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3469 gui_mch_set_winpos(int x, int y)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3470 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3471 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3472 gui.vimWindow->MoveTo(x, y);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3473 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3474 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3475 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3476
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3477 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3478 * Set the size of the window to the given width and height in pixels.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3479 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3480 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3481 gui_mch_set_shellsize(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3482 int width,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3483 int height,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3484 int min_width,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3485 int min_height,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3486 int base_width,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3487 int base_height,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3488 int direction) // TODO: utilize?
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3489 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3490 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3491 * We are basically given the size of the VimForm, if I understand
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3492 * correctly. Since it fills the window completely, this will also
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3493 * be the size of the window.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3494 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3495 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3496 gui.vimWindow->ResizeTo(width - PEN_WIDTH, height - PEN_WIDTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3497
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3498 // set size limits
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3499 float minWidth, maxWidth, minHeight, maxHeight;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3500
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3501 gui.vimWindow->GetSizeLimits(&minWidth, &maxWidth,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3502 &minHeight, &maxHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3503 gui.vimWindow->SetSizeLimits(min_width, maxWidth,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3504 min_height, maxHeight);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3505
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3506 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3507 * Set the resizing alignment depending on font size.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3508 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3509 gui.vimWindow->SetWindowAlignment(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3510 B_PIXEL_ALIGNMENT, // window_alignment mode,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3511 1, // int32 h,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3512 0, // int32 hOffset = 0,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3513 gui.char_width, // int32 width = 0,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3514 base_width, // int32 widthOffset = 0,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3515 1, // int32 v = 0,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3516 0, // int32 vOffset = 0,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3517 gui.char_height, // int32 height = 0,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3518 base_height // int32 heightOffset = 0
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3519 );
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3520
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3521 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3522 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3523 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3524
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3525 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3526 gui_mch_get_screen_dimensions(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3527 int *screen_w,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3528 int *screen_h)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3529 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3530 BRect frame;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3531
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3532 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3533 BScreen screen(gui.vimWindow);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3534
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3535 if (screen.IsValid()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3536 frame = screen.Frame();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3537 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3538 frame.right = 640;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3539 frame.bottom = 480;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3540 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3541 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3542
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3543 // XXX approximations...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3544 *screen_w = (int) frame.right - 2 * gui.scrollbar_width - 20;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3545 *screen_h = (int) frame.bottom - gui.scrollbar_height
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3546 #ifdef FEAT_MENU
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3547 - gui.menu_height
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3548 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3549 - 30;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3550 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3551
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3552 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3553 gui_mch_set_text_area_pos(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3554 int x,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3555 int y,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3556 int w,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3557 int h)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3558 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3559 if (!gui.vimTextArea)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3560 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3561
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3562 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3563 gui.vimTextArea->MoveTo(x, y);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3564 gui.vimTextArea->ResizeTo(w - PEN_WIDTH, h - PEN_WIDTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3565
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3566 /*#ifdef FEAT_GUI_TABLINE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3567 if(gui.vimForm->TabLine() != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3568 gui.vimForm->TabLine()->ResizeTo(w, gui.vimForm->TablineHeight());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3569 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3570 #endif // FEAT_GUI_TABLINE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3571
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3572 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3573 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3574 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3575
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3576
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3577 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3578 * Scrollbar stuff:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3579 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3580
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3581 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3582 gui_mch_enable_scrollbar(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3583 scrollbar_T *sb,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3584 int flag)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3585 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3586 VimScrollBar *vsb = sb->id;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3587 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3588 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3589 * This function is supposed to be idempotent, but Show()/Hide()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3590 * is not. Therefore we test if they are needed.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3591 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3592 if (flag) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3593 if (vsb->IsHidden()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3594 vsb->Show();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3595 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3596 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3597 if (!vsb->IsHidden()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3598 vsb->Hide();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3599 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3600 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3601 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3602 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3603 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3604
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3605 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3606 gui_mch_set_scrollbar_thumb(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3607 scrollbar_T *sb,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3608 int val,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3609 int size,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3610 int max)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3611 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3612 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3613 VimScrollBar *s = sb->id;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3614 if (max == 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3615 s->SetValue(0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3616 s->SetRange(0.0, 0.0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3617 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3618 s->SetProportion((float)size / (max + 1.0));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3619 s->SetSteps(1.0, size > 5 ? size - 2 : size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3620 #ifndef SCROLL_PAST_END // really only defined in gui.c...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3621 max = max + 1 - size;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3622 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3623 if (max < s->Value()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3624 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3625 * If the new maximum is lower than the current value,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3626 * setting it would cause the value to be clipped and
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3627 * therefore a ValueChanged() call.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3628 * We avoid this by setting the value first, because
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3629 * it presumably is <= max.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3630 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3631 s->SetValue(val);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3632 s->SetRange(0.0, max);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3633 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3634 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3635 * In the other case, set the range first, since the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3636 * new value might be higher than the current max.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3637 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3638 s->SetRange(0.0, max);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3639 s->SetValue(val);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3640 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3641 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3642 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3643 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3644 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3645
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3646 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3647 gui_mch_set_scrollbar_pos(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3648 scrollbar_T *sb,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3649 int x,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3650 int y,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3651 int w,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3652 int h)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3653 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3654 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3655 BRect winb = gui.vimWindow->Bounds();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3656 float vsbx = x, vsby = y;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3657 VimScrollBar *vsb = sb->id;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3658 vsb->ResizeTo(w - PEN_WIDTH, h - PEN_WIDTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3659 if(winb.right-(x+w)<w) vsbx = winb.right - (w - PEN_WIDTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3660 vsb->MoveTo(vsbx, vsby);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3661 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3662 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3663 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3664
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3665 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3666 gui_mch_create_scrollbar(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3667 scrollbar_T *sb,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3668 int orient) // SBAR_VERT or SBAR_HORIZ
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3669 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3670 orientation posture =
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3671 (orient == SBAR_HORIZ) ? B_HORIZONTAL : B_VERTICAL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3672
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3673 VimScrollBar *vsb = sb->id = new VimScrollBar(sb, posture);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3674 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3675 vsb->SetTarget(gui.vimTextArea);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3676 vsb->Hide();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3677 gui.vimForm->AddChild(vsb);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3678 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3679 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3680 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3681
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3682 #if defined(FEAT_WINDOWS) || defined(PROTO)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3683 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3684 gui_mch_destroy_scrollbar(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3685 scrollbar_T *sb)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3686 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3687 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3688 sb->id->RemoveSelf();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3689 delete sb->id;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3690 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3691 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3692 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3693 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3694
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3695 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3696 * Cursor does not flash
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3697 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3698 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3699 gui_mch_is_blink_off(void)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3700 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3701 return FALSE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3702 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3703
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3704 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3705 * Cursor blink functions.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3706 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3707 * This is a simple state machine:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3708 * BLINK_NONE not blinking at all
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3709 * BLINK_OFF blinking, cursor is not shown
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3710 * BLINK_ON blinking, cursor is shown
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3711 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3712
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3713 #define BLINK_NONE 0
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3714 #define BLINK_OFF 1
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3715 #define BLINK_ON 2
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3716
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3717 static int blink_state = BLINK_NONE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3718 static long_u blink_waittime = 700;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3719 static long_u blink_ontime = 400;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3720 static long_u blink_offtime = 250;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3721 static int blink_timer = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3722
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3723 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3724 gui_mch_set_blinking(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3725 long waittime,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3726 long on,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3727 long off)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3728 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3729 // TODO
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3730 blink_waittime = waittime;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3731 blink_ontime = on;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3732 blink_offtime = off;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3733 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3734
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3735 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3736 * Stop the cursor blinking. Show the cursor if it wasn't shown.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3737 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3738 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3739 gui_mch_stop_blink()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3740 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3741 // TODO
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3742 if (blink_timer != 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3743 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3744 // XtRemoveTimeOut(blink_timer);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3745 blink_timer = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3746 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3747 if (blink_state == BLINK_OFF)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3748 gui_update_cursor(TRUE, FALSE);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3749 blink_state = BLINK_NONE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3750 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3751
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3752 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3753 * Start the cursor blinking. If it was already blinking, this restarts the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3754 * waiting time and shows the cursor.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3755 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3756 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3757 gui_mch_start_blink()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3758 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3759 // TODO
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3760 if (blink_timer != 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3761 ;// XtRemoveTimeOut(blink_timer);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3762 // Only switch blinking on if none of the times is zero
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3763 if (blink_waittime && blink_ontime && blink_offtime && gui.in_focus)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3764 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3765 blink_timer = 1; // XtAppAddTimeOut(app_context, blink_waittime,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3766 blink_state = BLINK_ON;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3767 gui_update_cursor(TRUE, FALSE);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3768 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3769 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3770
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3771 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3772 * Initialise vim to use the font with the given name. Return FAIL if the font
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3773 * could not be loaded, OK otherwise.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3774 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3775 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3776 gui_mch_init_font(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3777 char_u *font_name,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3778 int fontset)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3779 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3780 if (gui.vimWindow->Lock())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3781 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3782 int rc = gui.vimTextArea->mchInitFont(font_name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3783 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3784
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3785 return rc;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3786 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3787
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3788 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3789 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3790
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3791
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3792 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3793 gui_mch_adjust_charsize()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3794 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3795 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3796 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3797
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3798
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3799 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3800 gui_mch_font_dialog(font_family* family, font_style* style, float* size)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3801 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3802 #if defined(FEAT_GUI_DIALOG)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3803 // gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3804 VimSelectFontDialog *dialog = new VimSelectFontDialog(family, style, size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3805 return dialog->Go();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3806 #else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3807 return NOFONT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3808 #endif // FEAT_GUI_DIALOG
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3809 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3810
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3811
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3812 GuiFont
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3813 gui_mch_get_font(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3814 char_u *name,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3815 int giveErrorIfMissing)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3816 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3817 static VimFont *fontList = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3818
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3819 if (!gui.in_use) // can't do this when GUI not running
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3820 return NOFONT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3821
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3822 // storage for locally modified name;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3823 const int buff_size = B_FONT_FAMILY_LENGTH + B_FONT_STYLE_LENGTH + 20;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3824 static char font_name[buff_size] = {0};
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3825 font_family family = {0};
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3826 font_style style = {0};
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3827 float size = 0.f;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3828
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3829 if (name == 0 && be_fixed_font == 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3830 if(giveErrorIfMissing)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3831 semsg(_(e_font), name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3832 return NOFONT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3833 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3834
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3835 bool useSelectGUI = false;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3836 if (name != NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3837 if (STRCMP(name, "*") == 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3838 useSelectGUI = true;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3839 STRNCPY(font_name, hl_get_font_name(), buff_size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3840 } else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3841 STRNCPY(font_name, name, buff_size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3842
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3843 if (font_name[0] == 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3844 be_fixed_font->GetFamilyAndStyle(&family, &style);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3845 size = be_fixed_font->Size();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3846 vim_snprintf(font_name, buff_size,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3847 (char*)"%s/%s/%.0f", family, style, size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3848 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3849
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3850 // replace underscores with spaces
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3851 char* end = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3852 while (end = strchr((char *)font_name, '_'))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3853 *end = ' ';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3854
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3855 // store the name before strtok corrupt the buffer ;-)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3856 static char buff[buff_size] = {0};
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3857 STRNCPY(buff, font_name, buff_size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3858 STRNCPY(family, strtok(buff, "/\0"), B_FONT_FAMILY_LENGTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3859 char* style_s = strtok(0, "/\0");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3860 if (style_s != 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3861 STRNCPY(style, style_s, B_FONT_STYLE_LENGTH);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3862 size = atof((style_s != 0) ? strtok(0, "/\0") : "0");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3863
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3864 if (useSelectGUI) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3865 if(gui_mch_font_dialog(&family, &style, &size) == NOFONT)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3866 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3867 // compose for further processing
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3868 vim_snprintf(font_name, buff_size,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3869 (char*)"%s/%s/%.0f", family, style, size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3870 hl_set_font_name((char_u*)font_name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3871
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3872 // Set guifont to the name of the selected font.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3873 char_u* new_p_guifont = alloc(STRLEN(font_name) + 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3874 if (new_p_guifont != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3875 STRCPY(new_p_guifont, font_name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3876 vim_free(p_guifont);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3877 p_guifont = new_p_guifont;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3878 // Replace spaces in the font name with underscores.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3879 for ( ; *new_p_guifont; ++new_p_guifont)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3880 if (*new_p_guifont == ' ')
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3881 *new_p_guifont = '_';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3882 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3883 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3884
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3885 VimFont *flp;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3886 for (flp = fontList; flp; flp = flp->next) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3887 if (STRCMP(font_name, flp->name) == 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3888 flp->refcount++;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3889 return (GuiFont)flp;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3890 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3891 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3892
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3893 VimFont *font = new VimFont();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3894 font->name = vim_strsave((char_u*)font_name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3895
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3896 if(count_font_styles(family) <= 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3897 if (giveErrorIfMissing)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3898 semsg(_(e_font), font->name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3899 delete font;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3900 return NOFONT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3901 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3902
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3903 // Remember font in the static list for later use
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3904 font->next = fontList;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3905 fontList = font;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3906
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3907 font->SetFamilyAndStyle(family, style);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3908 if(size > 0.f)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3909 font->SetSize(size);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3910
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3911 font->SetSpacing(B_FIXED_SPACING);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3912 font->SetEncoding(B_UNICODE_UTF8);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3913
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3914 return (GuiFont)font;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3915 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3916
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3917 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3918 * Set the current text font.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3919 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3920 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3921 gui_mch_set_font(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3922 GuiFont font)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3923 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3924 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3925 VimFont *vf = (VimFont *)font;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3926
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3927 gui.vimTextArea->SetFont(vf);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3928
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3929 gui.char_width = (int) vf->StringWidth("n");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3930 font_height fh;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3931 vf->GetHeight(&fh);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3932 gui.char_height = (int)(fh.ascent + 0.9999)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3933 + (int)(fh.descent + 0.9999) + (int)(fh.leading + 0.9999);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3934 gui.char_ascent = (int)(fh.ascent + 0.9999);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3935
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3936 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3937 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3938 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3939
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3940 // XXX TODO This is apparently never called...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3941 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3942 gui_mch_free_font(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3943 GuiFont font)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3944 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3945 if(font == NOFONT)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3946 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3947 VimFont *f = (VimFont *)font;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3948 if (--f->refcount <= 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3949 if (f->refcount < 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3950 fprintf(stderr, "VimFont: refcount < 0\n");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3951 delete f;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3952 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3953 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3954
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3955 char_u *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3956 gui_mch_get_fontname(GuiFont font, char_u *name)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3957 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3958 if (name == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3959 return NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3960 return vim_strsave(name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3961 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3962
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3963 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3964 * Adjust gui.char_height (after 'linespace' was changed).
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3965 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3966 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3967 gui_mch_adjust_charheight()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3968 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3969
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3970 // TODO: linespace support?
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3971
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3972 // #ifdef FEAT_XFONTSET
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3973 // if (gui.fontset != NOFONTSET)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3974 // {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3975 // gui.char_height = fontset_height((XFontSet)gui.fontset) + p_linespace;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3976 // gui.char_ascent = fontset_ascent((XFontSet)gui.fontset)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3977 // + p_linespace / 2;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3978 // }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3979 // else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3980 // #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3981 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3982 VimFont *font = (VimFont *)gui.norm_font;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3983 font_height fh = {0};
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3984 font->GetHeight(&fh);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3985 gui.char_height = (int)(fh.ascent + fh.descent + 0.5) + p_linespace;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3986 gui.char_ascent = (int)(fh.ascent + 0.5) + p_linespace / 2;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3987 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3988 return OK;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3989 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3990
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3991 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3992 * Display the saved error message(s).
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3993 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3994 #ifdef USE_MCH_ERRMSG
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3995 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3996 display_errors(void)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3997 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3998 char *p;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3999 char_u pError[256];
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4000
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4001 if (error_ga.ga_data == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4002 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4003
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4004 // avoid putting up a message box with blanks only
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4005 for (p = (char *)error_ga.ga_data; *p; ++p)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4006 if (!isspace(*p))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4007 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4008 if (STRLEN(p) > 255)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4009 pError[0] = 255;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4010 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4011 pError[0] = STRLEN(p);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4012
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4013 STRNCPY(&pError[1], p, pError[0]);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4014 // ParamText(pError, nil, nil, nil);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4015 // Alert(128, nil);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4016 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4017 // TODO: handled message longer than 256 chars
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4018 // use auto-sizeable alert
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4019 // or dialog with scrollbars (TextEdit zone)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4020 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4021 ga_clear(&error_ga);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4022 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4023 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4024
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4025 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4026 gui_mch_getmouse(int *x, int *y)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4027 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4028 fprintf(stderr, "gui_mch_getmouse");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4029
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4030 /*int rootx, rooty, winx, winy;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4031 Window root, child;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4032 unsigned int mask;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4033
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4034 if (gui.wid && XQueryPointer(gui.dpy, gui.wid, &root, &child,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4035 &rootx, &rooty, &winx, &winy, &mask)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4036 *x = winx;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4037 *y = winy;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4038 } else*/ {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4039 *x = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4040 *y = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4041 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4042 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4043
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4044 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4045 gui_mch_mousehide(int hide)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4046 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4047 fprintf(stderr, "gui_mch_getmouse");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4048 // TODO
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4049 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4050
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4051 static int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4052 hex_digit(int c)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4053 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4054 if (isdigit(c))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4055 return c - '0';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4056 c = TOLOWER_ASC(c);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4057 if (c >= 'a' && c <= 'f')
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4058 return c - 'a' + 10;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4059 return -1000;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4060 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4061
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4062 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4063 * This function has been lifted from gui_w32.c and extended a bit.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4064 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4065 * Return the Pixel value (color) for the given color name.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4066 * Return INVALCOLOR for error.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4067 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4068 guicolor_T
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4069 gui_mch_get_color(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4070 char_u *name)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4071 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4072 typedef struct GuiColourTable
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4073 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4074 const char *name;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4075 guicolor_T colour;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4076 } GuiColourTable;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4077
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4078 #define NSTATIC_COLOURS 50 // 32
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4079 #define NDYNAMIC_COLOURS 33
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4080 #define NCOLOURS (NSTATIC_COLOURS + NDYNAMIC_COLOURS)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4081
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4082 static GuiColourTable table[NCOLOURS] =
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4083 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4084 {"Black", RGB(0x00, 0x00, 0x00)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4085 {"DarkGray", RGB(0x80, 0x80, 0x80)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4086 {"DarkGrey", RGB(0x80, 0x80, 0x80)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4087 {"Gray", RGB(0xC0, 0xC0, 0xC0)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4088 {"Grey", RGB(0xC0, 0xC0, 0xC0)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4089 {"LightGray", RGB(0xD3, 0xD3, 0xD3)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4090 {"LightGrey", RGB(0xD3, 0xD3, 0xD3)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4091 {"Gray10", RGB(0x1A, 0x1A, 0x1A)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4092 {"Grey10", RGB(0x1A, 0x1A, 0x1A)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4093 {"Gray20", RGB(0x33, 0x33, 0x33)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4094 {"Grey20", RGB(0x33, 0x33, 0x33)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4095 {"Gray30", RGB(0x4D, 0x4D, 0x4D)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4096 {"Grey30", RGB(0x4D, 0x4D, 0x4D)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4097 {"Gray40", RGB(0x66, 0x66, 0x66)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4098 {"Grey40", RGB(0x66, 0x66, 0x66)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4099 {"Gray50", RGB(0x7F, 0x7F, 0x7F)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4100 {"Grey50", RGB(0x7F, 0x7F, 0x7F)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4101 {"Gray60", RGB(0x99, 0x99, 0x99)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4102 {"Grey60", RGB(0x99, 0x99, 0x99)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4103 {"Gray70", RGB(0xB3, 0xB3, 0xB3)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4104 {"Grey70", RGB(0xB3, 0xB3, 0xB3)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4105 {"Gray80", RGB(0xCC, 0xCC, 0xCC)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4106 {"Grey80", RGB(0xCC, 0xCC, 0xCC)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4107 {"Gray90", RGB(0xE5, 0xE5, 0xE5)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4108 {"Grey90", RGB(0xE5, 0xE5, 0xE5)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4109 {"White", RGB(0xFF, 0xFF, 0xFF)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4110 {"DarkRed", RGB(0x80, 0x00, 0x00)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4111 {"Red", RGB(0xFF, 0x00, 0x00)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4112 {"LightRed", RGB(0xFF, 0xA0, 0xA0)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4113 {"DarkBlue", RGB(0x00, 0x00, 0x80)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4114 {"Blue", RGB(0x00, 0x00, 0xFF)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4115 {"LightBlue", RGB(0xA0, 0xA0, 0xFF)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4116 {"DarkGreen", RGB(0x00, 0x80, 0x00)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4117 {"Green", RGB(0x00, 0xFF, 0x00)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4118 {"LightGreen", RGB(0xA0, 0xFF, 0xA0)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4119 {"DarkCyan", RGB(0x00, 0x80, 0x80)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4120 {"Cyan", RGB(0x00, 0xFF, 0xFF)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4121 {"LightCyan", RGB(0xA0, 0xFF, 0xFF)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4122 {"DarkMagenta", RGB(0x80, 0x00, 0x80)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4123 {"Magenta", RGB(0xFF, 0x00, 0xFF)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4124 {"LightMagenta", RGB(0xFF, 0xA0, 0xFF)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4125 {"Brown", RGB(0x80, 0x40, 0x40)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4126 {"Yellow", RGB(0xFF, 0xFF, 0x00)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4127 {"LightYellow", RGB(0xFF, 0xFF, 0xA0)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4128 {"DarkYellow", RGB(0xBB, 0xBB, 0x00)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4129 {"SeaGreen", RGB(0x2E, 0x8B, 0x57)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4130 {"Orange", RGB(0xFF, 0xA5, 0x00)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4131 {"Purple", RGB(0xA0, 0x20, 0xF0)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4132 {"SlateBlue", RGB(0x6A, 0x5A, 0xCD)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4133 {"Violet", RGB(0xEE, 0x82, 0xEE)},
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4134 // NOTE: some entries are zero-allocated for NDDYNAMIC_COLORS
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4135 // in this table!
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4136 };
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4137
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4138 static int endColour = NSTATIC_COLOURS;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4139 static int newColour = NSTATIC_COLOURS;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4140
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4141 int r, g, b;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4142 int i;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4143
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4144 if (name[0] == '#' && STRLEN(name) == 7)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4145 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4146 // Name is in "#rrggbb" format
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4147 r = hex_digit(name[1]) * 16 + hex_digit(name[2]);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4148 g = hex_digit(name[3]) * 16 + hex_digit(name[4]);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4149 b = hex_digit(name[5]) * 16 + hex_digit(name[6]);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4150 if (r < 0 || g < 0 || b < 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4151 return INVALCOLOR;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4152 return RGB(r, g, b);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4153 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4154 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4155 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4156 // Check if the name is one of the colours we know
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4157 for (i = 0; i < endColour; i++)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4158 if (STRICMP(name, table[i].name) == 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4159 return table[i].colour;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4160 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4161
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4162 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4163 * Last attempt. Look in the file "$VIMRUNTIME/rgb.txt".
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4164 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4165 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4166 #define LINE_LEN 100
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4167 FILE *fd;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4168 char line[LINE_LEN];
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4169 char_u *fname;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4170
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4171 fname = expand_env_save((char_u *)"$VIMRUNTIME/rgb.txt");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4172 if (fname == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4173 return INVALCOLOR;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4174
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4175 fd = fopen((char *)fname, "rt");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4176 vim_free(fname);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4177 if (fd == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4178 return INVALCOLOR;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4179
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4180 while (!feof(fd))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4181 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4182 int len;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4183 int pos;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4184 char *colour;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4185
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4186 fgets(line, LINE_LEN, fd);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4187 len = strlen(line);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4188
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4189 if (len <= 1 || line[len-1] != '\n')
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4190 continue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4191
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4192 line[len-1] = '\0';
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4193
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4194 i = sscanf(line, "%d %d %d %n", &r, &g, &b, &pos);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4195 if (i != 3)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4196 continue;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4197
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4198 colour = line + pos;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4199
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4200 if (STRICMP(colour, name) == 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4201 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4202 fclose(fd);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4203 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4204 * Now remember this colour in the table.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4205 * A LRU scheme might be better but this is simpler.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4206 * Or could use a growing array.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4207 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4208 guicolor_T gcolour = RGB(r,g,b);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4209
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4210 // NOTE: see note above in table allocation! We are working here with
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4211 // dynamically allocated names, not constant ones!
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4212 vim_free((char*)table[newColour].name);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4213 table[newColour].name = (char *)vim_strsave((char_u *)colour);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4214 table[newColour].colour = gcolour;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4215
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4216 newColour++;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4217 if (newColour >= NCOLOURS)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4218 newColour = NSTATIC_COLOURS;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4219 if (endColour < NCOLOURS)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4220 endColour = newColour;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4221
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4222 return gcolour;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4223 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4224 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4225
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4226 fclose(fd);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4227 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4228
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4229 return INVALCOLOR;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4230 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4231
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4232 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4233 * Set the current text foreground color.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4234 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4235 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4236 gui_mch_set_fg_color(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4237 guicolor_T color)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4238 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4239 rgb_color rgb = GUI_TO_RGB(color);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4240 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4241 gui.vimTextArea->SetHighColor(rgb);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4242 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4243 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4244 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4245
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4246 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4247 * Set the current text background color.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4248 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4249 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4250 gui_mch_set_bg_color(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4251 guicolor_T color)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4252 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4253 rgb_color rgb = GUI_TO_RGB(color);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4254 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4255 gui.vimTextArea->SetLowColor(rgb);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4256 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4257 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4258 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4259
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4260 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4261 * Set the current text special color.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4262 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4263 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4264 gui_mch_set_sp_color(guicolor_T color)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4265 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4266 // prev_sp_color = color;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4267 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4268
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4269 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4270 gui_mch_draw_string(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4271 int row,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4272 int col,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4273 char_u *s,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4274 int len,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4275 int flags)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4276 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4277 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4278 gui.vimTextArea->mchDrawString(row, col, s, len, flags);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4279 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4280 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4281 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4282
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4283 guicolor_T
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4284 gui_mch_get_rgb_color(int r, int g, int b)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4285 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4286 return gui_get_rgb_color_cmn(r, g, b);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4287 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4288
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4289
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4290 // Return OK if the key with the termcap name "name" is supported.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4291 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4292 gui_mch_haskey(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4293 char_u *name)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4294 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4295 int i;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4296
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4297 for (i = 0; special_keys[i].BeKeys != 0; i++)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4298 if (name[0] == special_keys[i].vim_code0 &&
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4299 name[1] == special_keys[i].vim_code1)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4300 return OK;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4301 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4302 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4303
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4304 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4305 gui_mch_beep()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4306 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4307 ::beep();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4308 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4309
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4310 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4311 gui_mch_flash(int msec)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4312 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4313 // Do a visual beep by reversing the foreground and background colors
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4314
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4315 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4316 BRect rect = gui.vimTextArea->Bounds();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4317
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4318 gui.vimTextArea->SetDrawingMode(B_OP_INVERT);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4319 gui.vimTextArea->FillRect(rect);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4320 gui.vimTextArea->Sync();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4321 snooze(msec * 1000); // wait for a few msec
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4322 gui.vimTextArea->FillRect(rect);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4323 gui.vimTextArea->SetDrawingMode(B_OP_COPY);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4324 gui.vimTextArea->Flush();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4325 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4326 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4327 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4328
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4329 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4330 * Invert a rectangle from row r, column c, for nr rows and nc columns.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4331 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4332 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4333 gui_mch_invert_rectangle(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4334 int r,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4335 int c,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4336 int nr,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4337 int nc)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4338 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4339 BRect rect;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4340 rect.left = FILL_X(c);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4341 rect.top = FILL_Y(r);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4342 rect.right = rect.left + nc * gui.char_width - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4343 rect.bottom = rect.top + nr * gui.char_height - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4344
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4345 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4346 gui.vimTextArea->SetDrawingMode(B_OP_INVERT);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4347 gui.vimTextArea->FillRect(rect);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4348 gui.vimTextArea->SetDrawingMode(B_OP_COPY);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4349 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4350 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4351 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4352
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4353 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4354 * Iconify the GUI window.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4355 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4356 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4357 gui_mch_iconify()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4358 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4359 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4360 gui.vimWindow->Minimize(true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4361 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4362 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4363 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4364
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4365 #if defined(FEAT_EVAL) || defined(PROTO)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4366 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4367 * Bring the Vim window to the foreground.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4368 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4369 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4370 gui_mch_set_foreground(void)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4371 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4372 // TODO
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4373 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4374 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4375
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4376 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4377 * Set the window title
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4378 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4379 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4380 gui_mch_settitle(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4381 char_u *title,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4382 char_u *icon)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4383 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4384 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4385 gui.vimWindow->SetTitle((char *)title);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4386 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4387 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4388 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4389
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4390 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4391 * Draw a cursor without focus.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4392 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4393 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4394 gui_mch_draw_hollow_cursor(guicolor_T color)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4395 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4396 gui_mch_set_fg_color(color);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4397
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4398 BRect r;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4399 r.left = FILL_X(gui.col);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4400 r.top = FILL_Y(gui.row);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4401 int cells = utf_off2cells(LineOffset[gui.row] + gui.col, 100); // TODO-TODO
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4402 if(cells>=4) cells = 1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4403 r.right = r.left + cells*gui.char_width - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4404 r.bottom = r.top + gui.char_height - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4405
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4406 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4407 gui.vimTextArea->StrokeRect(r);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4408 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4409 // gui_mch_flush();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4410 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4411 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4412
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4413 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4414 * Draw part of a cursor, only w pixels wide, and h pixels high.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4415 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4416 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4417 gui_mch_draw_part_cursor(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4418 int w,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4419 int h,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4420 guicolor_T color)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4421 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4422 gui_mch_set_fg_color(color);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4423
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4424 BRect r;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4425 r.left =
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4426 #ifdef FEAT_RIGHTLEFT
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4427 // vertical line should be on the right of current point
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4428 CURSOR_BAR_RIGHT ? FILL_X(gui.col + 1) - w :
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4429 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4430 FILL_X(gui.col);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4431 r.right = r.left + w - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4432 r.bottom = FILL_Y(gui.row + 1) - PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4433 r.top = r.bottom - h + PEN_WIDTH;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4434
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4435 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4436 gui.vimTextArea->FillRect(r);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4437 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4438 // gui_mch_flush();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4439 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4440 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4441
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4442 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4443 * Catch up with any queued events. This may put keyboard input into the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4444 * input buffer, call resize call-backs, trigger timers etc. If there is
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4445 * nothing in the event queue (& no timers pending), then we return
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4446 * immediately.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4447 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4448 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4449 gui_mch_update()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4450 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4451 gui_mch_flush();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4452 while (port_count(gui.vdcmp) > 0 &&
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4453 !vim_is_input_buf_full() &&
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4454 gui_haiku_process_event(0) >= B_OK)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4455 /* nothing */ ;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4456 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4457
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4458 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4459 * GUI input routine called by gui_wait_for_chars(). Waits for a character
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4460 * from the keyboard.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4461 * wtime == -1 Wait forever.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4462 * wtime == 0 This should never happen.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4463 * wtime > 0 Wait wtime milliseconds for a character.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4464 * Returns OK if a character was found to be available within the given time,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4465 * or FAIL otherwise.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4466 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4467 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4468 gui_mch_wait_for_chars(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4469 int wtime)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4470 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4471 int focus;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4472 bigtime_t until, timeout;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4473 status_t st;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4474
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4475 if (wtime >= 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4476 timeout = wtime * 1000;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4477 until = system_time() + timeout;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4478 } else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4479 timeout = B_INFINITE_TIMEOUT;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4480 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4481
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4482 focus = gui.in_focus;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4483 for (;;)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4484 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4485 // Stop or start blinking when focus changes
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4486 if (gui.in_focus != focus)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4487 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4488 if (gui.in_focus)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4489 gui_mch_start_blink();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4490 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4491 gui_mch_stop_blink();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4492 focus = gui.in_focus;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4493 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4494
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4495 gui_mch_flush();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4496 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4497 * Don't use gui_mch_update() because then we will spin-lock until a
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4498 * char arrives, instead we use gui_haiku_process_event() to hang until
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4499 * an event arrives. No need to check for input_buf_full because we
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4500 * are returning as soon as it contains a single char.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4501 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4502 st = gui_haiku_process_event(timeout);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4503
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4504 if (input_available())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4505 return OK;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4506 if (st < B_OK) // includes B_TIMED_OUT
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4507 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4508
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4509 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4510 * Calculate how much longer we're willing to wait for the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4511 * next event.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4512 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4513 if (wtime >= 0) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4514 timeout = until - system_time();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4515 if (timeout < 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4516 break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4517 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4518 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4519 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4520
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4521 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4522
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4523 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4524 * Output routines.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4525 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4526
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4527 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4528 * Flush any output to the screen. This is typically called before
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4529 * the app goes to sleep.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4530 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4531 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4532 gui_mch_flush()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4533 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4534 // does this need to lock the window? Apparently not but be safe.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4535 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4536 gui.vimWindow->Flush();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4537 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4538 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4539 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4540 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4541
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4542 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4543 * Clear a rectangular region of the screen from text pos (row1, col1) to
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4544 * (row2, col2) inclusive.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4545 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4546 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4547 gui_mch_clear_block(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4548 int row1,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4549 int col1,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4550 int row2,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4551 int col2)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4552 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4553 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4554 gui.vimTextArea->mchClearBlock(row1, col1, row2, col2);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4555 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4556 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4557 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4558
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4559 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4560 gui_mch_clear_all()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4561 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4562 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4563 gui.vimTextArea->mchClearAll();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4564 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4565 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4566 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4567
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4568 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4569 * Delete the given number of lines from the given row, scrolling up any
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4570 * text further down within the scroll region.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4571 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4572 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4573 gui_mch_delete_lines(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4574 int row,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4575 int num_lines)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4576 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4577 gui.vimTextArea->mchDeleteLines(row, num_lines);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4578 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4579
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4580 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4581 * Insert the given number of lines before the given row, scrolling down any
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4582 * following text within the scroll region.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4583 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4584 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4585 gui_mch_insert_lines(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4586 int row,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4587 int num_lines)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4588 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4589 gui.vimTextArea->mchInsertLines(row, num_lines);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4590 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4591
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4592 #if defined(FEAT_MENU) || defined(PROTO)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4593 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4594 * Menu stuff.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4595 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4596
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4597 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4598 gui_mch_enable_menu(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4599 int flag)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4600 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4601 if (gui.vimWindow->Lock())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4602 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4603 BMenuBar *menubar = gui.vimForm->MenuBar();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4604 menubar->SetEnabled(flag);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4605 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4606 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4607 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4608
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4609 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4610 gui_mch_set_menu_pos(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4611 int x,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4612 int y,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4613 int w,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4614 int h)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4615 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4616 // It will be in the right place anyway
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4617 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4618
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4619 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4620 * Add a sub menu to the menu bar.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4621 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4622 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4623 gui_mch_add_menu(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4624 vimmenu_T *menu,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4625 int idx)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4626 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4627 vimmenu_T *parent = menu->parent;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4628
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4629 // popup menu - just create it unattached
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4630 if (menu_is_popup(menu->name) && parent == NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4631 BPopUpMenu* popUpMenu = new BPopUpMenu((const char*)menu->name, false, false);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4632 menu->submenu_id = popUpMenu;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4633 menu->id = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4634 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4635 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4636
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4637 if (!menu_is_menubar(menu->name)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4638 || (parent != NULL && parent->submenu_id == NULL))
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4639 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4640
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4641 if (gui.vimWindow->Lock())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4642 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4643 // Major re-write of the menu code, it was failing with memory corruption when
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4644 // we started loading multiple files (the Buffer menu)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4645 //
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4646 // Note we don't use the preference values yet, all are inserted into the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4647 // menubar on a first come-first served basis...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4648 //
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4649 // richard@whitequeen.com jul 99
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4650
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4651 BMenu *tmp;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4652
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4653 if ( parent )
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4654 tmp = parent->submenu_id;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4655 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4656 tmp = gui.vimForm->MenuBar();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4657 // make sure we don't try and add the same menu twice. The Buffers menu tries to
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4658 // do this and Be starts to crash...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4659
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4660 if ( ! tmp->FindItem((const char *) menu->dname)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4661
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4662 BMenu *bmenu = new BMenu((char *)menu->dname);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4663
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4664 menu->submenu_id = bmenu;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4665
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4666 // when we add a BMenu to another Menu, it creates the interconnecting BMenuItem
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4667 tmp->AddItem(bmenu);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4668
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4669 // Now its safe to query the menu for the associated MenuItem....
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4670 menu->id = tmp->FindItem((const char *) menu->dname);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4671
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4672 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4673 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4674 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4675 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4676
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4677 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4678 gui_mch_toggle_tearoffs(int enable)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4679 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4680 // no tearoff menus
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4681 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4682
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4683 static BMessage *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4684 MenuMessage(vimmenu_T *menu)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4685 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4686 BMessage *m = new BMessage('menu');
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4687 m->AddPointer("VimMenu", (void *)menu);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4688
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4689 return m;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4690 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4691
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4692 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4693 * Add a menu item to a menu
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4694 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4695 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4696 gui_mch_add_menu_item(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4697 vimmenu_T *menu,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4698 int idx)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4699 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4700 int mnemonic = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4701 vimmenu_T *parent = menu->parent;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4702
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4703 // TODO: use menu->actext
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4704 // This is difficult, since on Be, an accelerator must be a single char
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4705 // and a lot of Vim ones are the standard VI commands.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4706 //
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4707 // Punt for Now...
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4708 // richard@whiequeen.com jul 99
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4709 if (gui.vimWindow->Lock())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4710 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4711 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4712 if(menu_is_toolbar(parent->name)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4713 VimToolbar *toolbar = gui.vimForm->ToolBar();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4714 if(toolbar != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4715 toolbar->AddButton(idx, menu);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4716 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4717 } else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4718 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4719
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4720 if (parent->submenu_id != NULL || menu_is_popup(parent->name)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4721 if (menu_is_separator(menu->name)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4722 BSeparatorItem *item = new BSeparatorItem();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4723 parent->submenu_id->AddItem(item);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4724 menu->id = item;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4725 menu->submenu_id = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4726 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4727 else {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4728 BMenuItem *item = new BMenuItem((char *)menu->dname,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4729 MenuMessage(menu));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4730 item->SetTarget(gui.vimTextArea);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4731 item->SetTrigger((char) menu->mnemonic);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4732 parent->submenu_id->AddItem(item);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4733 menu->id = item;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4734 menu->submenu_id = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4735 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4736 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4737 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4738 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4739 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4740
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4741 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4742 * Destroy the machine specific menu widget.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4743 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4744 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4745 gui_mch_destroy_menu(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4746 vimmenu_T *menu)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4747 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4748 if (gui.vimWindow->Lock())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4749 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4750 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4751 if(menu->parent && menu_is_toolbar(menu->parent->name)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4752 VimToolbar *toolbar = gui.vimForm->ToolBar();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4753 if(toolbar != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4754 toolbar->RemoveButton(menu);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4755 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4756 } else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4757 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4758 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4759 assert(menu->submenu_id == NULL || menu->submenu_id->CountItems() == 0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4760 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4761 * Detach this menu from its parent, so that it is not deleted
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4762 * twice once we get to delete that parent.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4763 * Deleting a BMenuItem also deletes the associated BMenu, if any
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4764 * (which does not have any items anymore since they were
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4765 * removed and deleted before).
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4766 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4767 BMenu *bmenu = menu->id->Menu();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4768 if (bmenu)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4769 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4770 bmenu->RemoveItem(menu->id);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4771 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4772 * If we removed the last item from the menu bar,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4773 * resize it out of sight.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4774 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4775 if (bmenu == gui.vimForm->MenuBar() && bmenu->CountItems() == 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4776 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4777 bmenu->ResizeTo(-MENUBAR_MARGIN, -MENUBAR_MARGIN);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4778 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4779 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4780 delete menu->id;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4781 menu->id = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4782 menu->submenu_id = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4783
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4784 gui.menu_height = (int) gui.vimForm->MenuHeight();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4785 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4786 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4787 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4788 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4789
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4790 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4791 * Make a menu either grey or not grey.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4792 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4793 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4794 gui_mch_menu_grey(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4795 vimmenu_T *menu,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4796 int grey)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4797 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4798 #ifdef FEAT_TOOLBAR
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4799 if(menu->parent && menu_is_toolbar(menu->parent->name)) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4800 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4801 VimToolbar *toolbar = gui.vimForm->ToolBar();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4802 if(toolbar != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4803 toolbar->GrayButton(menu, grey);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4804 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4805 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4806 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4807 } else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4808 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4809 if (menu->id != NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4810 menu->id->SetEnabled(!grey);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4811 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4812
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4813 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4814 * Make menu item hidden or not hidden
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4815 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4816 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4817 gui_mch_menu_hidden(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4818 vimmenu_T *menu,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4819 int hidden)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4820 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4821 if (menu->id != NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4822 menu->id->SetEnabled(!hidden);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4823 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4824
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4825 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4826 * This is called after setting all the menus to grey/hidden or not.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4827 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4828 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4829 gui_mch_draw_menubar()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4830 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4831 // Nothing to do in BeOS
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4832 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4833
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4834 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4835 gui_mch_show_popupmenu(vimmenu_T *menu)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4836 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4837 if (!menu_is_popup(menu->name) || menu->submenu_id == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4838 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4839
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4840 BPopUpMenu* popupMenu = dynamic_cast<BPopUpMenu*>(menu->submenu_id);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4841 if (popupMenu == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4842 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4843
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4844 BPoint point;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4845 if(gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4846 uint32 buttons = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4847 gui.vimTextArea->GetMouse(&point, &buttons);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4848 gui.vimTextArea->ConvertToScreen(&point);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4849 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4850 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4851 popupMenu->Go(point, true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4852 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4853
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4854 #endif // FEAT_MENU
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4855
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4856 // Mouse stuff
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4857
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4858 #ifdef FEAT_CLIPBOARD
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4859 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4860 * Clipboard stuff, for cutting and pasting text to other windows.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4861 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4862 char textplain[] = "text/plain";
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4863 char vimselectiontype[] = "application/x-vnd.Rhialto-Vim-selectiontype";
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4864
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4865 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4866 * Get the current selection and put it in the clipboard register.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4867 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4868 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4869 clip_mch_request_selection(Clipboard_T *cbd)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4870 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4871 if (be_clipboard->Lock())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4872 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4873 BMessage *m = be_clipboard->Data();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4874 // m->PrintToStream();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4875
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4876 char_u *string = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4877 ssize_t stringlen = -1;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4878
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4879 if (m->FindData(textplain, B_MIME_TYPE,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4880 (const void **)&string, &stringlen) == B_OK
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4881 || m->FindString("text", (const char **)&string) == B_OK)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4882 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4883 if (stringlen == -1)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4884 stringlen = STRLEN(string);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4885
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4886 int type;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4887 char *seltype;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4888 ssize_t seltypelen;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4889
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4890 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4891 * Try to get the special vim selection type first
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4892 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4893 if (m->FindData(vimselectiontype, B_MIME_TYPE,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4894 (const void **)&seltype, &seltypelen) == B_OK)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4895 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4896 switch (*seltype)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4897 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4898 default:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4899 case 'L': type = MLINE; break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4900 case 'C': type = MCHAR; break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4901 #ifdef FEAT_VISUAL
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4902 case 'B': type = MBLOCK; break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4903 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4904 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4905 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4906 else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4907 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4908 // Otherwise use heuristic as documented
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4909 type = memchr(string, stringlen, '\n') ? MLINE : MCHAR;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4910 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4911 clip_yank_selection(type, string, (long)stringlen, cbd);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4912 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4913 be_clipboard->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4914 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4915 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4916 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4917 * Make vim the owner of the current selection.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4918 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4919 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4920 clip_mch_lose_selection(Clipboard_T *cbd)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4921 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4922 // Nothing needs to be done here
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4923 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4924
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4925 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4926 * Make vim the owner of the current selection. Return OK upon success.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4927 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4928 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4929 clip_mch_own_selection(Clipboard_T *cbd)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4930 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4931 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4932 * Never actually own the clipboard. If another application sets the
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4933 * clipboard, we don't want to think that we still own it.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4934 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4935 return FAIL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4936 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4937
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4938 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4939 * Send the current selection to the clipboard.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4940 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4941 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4942 clip_mch_set_selection(Clipboard_T *cbd)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4943 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4944 if (be_clipboard->Lock())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4945 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4946 be_clipboard->Clear();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4947 BMessage *m = be_clipboard->Data();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4948 assert(m);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4949
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4950 // If the '*' register isn't already filled in, fill it in now
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4951 cbd->owned = TRUE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4952 clip_get_selection(cbd);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4953 cbd->owned = FALSE;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4954
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4955 char_u *str = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4956 long_u count;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4957 int type;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4958
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4959 type = clip_convert_selection(&str, &count, cbd);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4960
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4961 if (type < 0)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4962 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4963
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4964 m->AddData(textplain, B_MIME_TYPE, (void *)str, count);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4965
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4966 // Add type of selection
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4967 char vtype;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4968 switch (type)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4969 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4970 default:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4971 case MLINE: vtype = 'L'; break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4972 case MCHAR: vtype = 'C'; break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4973 #ifdef FEAT_VISUAL
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4974 case MBLOCK: vtype = 'B'; break;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4975 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4976 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4977 m->AddData(vimselectiontype, B_MIME_TYPE, (void *)&vtype, 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4978
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4979 vim_free(str);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4980
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4981 be_clipboard->Commit();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4982 be_clipboard->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4983 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4984 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4985
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4986 #endif // FEAT_CLIPBOARD
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4987
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4988 #ifdef FEAT_BROWSE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4989 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4990 * Pop open a file browser and return the file selected, in allocated memory,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4991 * or NULL if Cancel is hit.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4992 * saving - TRUE if the file will be saved to, FALSE if it will be opened.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4993 * title - Title message for the file browser dialog.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4994 * dflt - Default name of file.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4995 * ext - Default extension to be added to files without extensions.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4996 * initdir - directory in which to open the browser (NULL = current dir)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4997 * filter - Filter for matched files to choose from.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4998 * Has a format like this:
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4999 * "C Files (*.c)\0*.c\0"
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5000 * "All Files\0*.*\0\0"
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5001 * If these two strings were concatenated, then a choice of two file
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5002 * filters will be selectable to the user. Then only matching files will
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5003 * be shown in the browser. If NULL, the default allows all files.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5004 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5005 * *NOTE* - the filter string must be terminated with TWO nulls.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5006 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5007 char_u *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5008 gui_mch_browse(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5009 int saving,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5010 char_u *title,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5011 char_u *dflt,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5012 char_u *ext,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5013 char_u *initdir,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5014 char_u *filter)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5015 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5016 gui.vimApp->fFilePanel = new BFilePanel((saving == TRUE) ? B_SAVE_PANEL : B_OPEN_PANEL,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5017 NULL, NULL, 0, false,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5018 new BMessage((saving == TRUE) ? 'save' : 'open'), NULL, true);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5019
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5020 gui.vimApp->fBrowsedPath.Unset();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5021
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5022 gui.vimApp->fFilePanel->Window()->SetTitle((char*)title);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5023 gui.vimApp->fFilePanel->SetPanelDirectory((const char*)initdir);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5024
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5025 gui.vimApp->fFilePanel->Show();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5026
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5027 gui.vimApp->fFilePanelSem = create_sem(0, "FilePanelSem");
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5028
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5029 while(acquire_sem(gui.vimApp->fFilePanelSem) == B_INTERRUPTED);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5030
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5031 char_u *fileName = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5032 status_t result = gui.vimApp->fBrowsedPath.InitCheck();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5033 if(result == B_OK) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5034 fileName = vim_strsave((char_u*)gui.vimApp->fBrowsedPath.Path());
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5035 } else
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5036 if(result != B_NO_INIT) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5037 fprintf(stderr, "gui_mch_browse: BPath error: %#08x (%s)\n",
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5038 result, strerror(result));
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5039 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5040
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5041 delete gui.vimApp->fFilePanel;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5042 gui.vimApp->fFilePanel = NULL;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5043
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5044 return fileName;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5045 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5046 #endif // FEAT_BROWSE
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5047
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5048
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5049 #if defined(FEAT_GUI_DIALOG)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5050
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5051 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5052 * Create a dialog dynamically from the parameter strings.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5053 * type = type of dialog (question, alert, etc.)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5054 * title = dialog title. may be NULL for default title.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5055 * message = text to display. Dialog sizes to accommodate it.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5056 * buttons = '\n' separated list of button captions, default first.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5057 * dfltbutton = number of default button.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5058 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5059 * This routine returns 1 if the first button is pressed,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5060 * 2 for the second, etc.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5061 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5062 * 0 indicates Esc was pressed.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5063 * -1 for unexpected error
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5064 *
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5065 * If stubbing out this fn, return 1.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5066 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5067
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5068 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5069 gui_mch_dialog(
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5070 int type,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5071 char_u *title,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5072 char_u *message,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5073 char_u *buttons,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5074 int dfltbutton,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5075 char_u *textfield,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5076 int ex_cmd)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5077 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5078 VimDialog *dialog = new VimDialog(type, (char*)title, (char*)message,
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5079 (char*)buttons, dfltbutton, (char*)textfield, ex_cmd);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5080 return dialog->Go();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5081 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5082
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5083 #endif // FEAT_GUI_DIALOG
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5084
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5085
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5086 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5087 * Return the RGB value of a pixel as long.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5088 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5089 guicolor_T
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5090 gui_mch_get_rgb(guicolor_T pixel)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5091 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5092 rgb_color rgb = GUI_TO_RGB(pixel);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5093
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5094 return ((rgb.red & 0xff) << 16) + ((rgb.green & 0xff) << 8)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5095 + (rgb.blue & 0xff);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5096 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5097
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5098 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5099 gui_mch_setmouse(int x, int y)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5100 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5101 TRACE();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5102 // TODO
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5103 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5104
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5105 #ifdef FEAT_MBYTE_IME
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5106 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5107 im_set_position(int row, int col)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5108 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5109 if(gui.vimWindow->Lock())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5110 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5111 gui.vimTextArea->DrawIMString();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5112 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5113 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5114 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5115 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5116 #endif
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5117
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5118 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5119 gui_mch_show_toolbar(int showit)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5120 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5121 VimToolbar *toolbar = gui.vimForm->ToolBar();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5122 gui.toolbar_height = (toolbar && showit) ? toolbar->ToolbarHeight() : 0.;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5123 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5124
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5125 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5126 gui_mch_set_toolbar_pos(int x, int y, int w, int h)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5127 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5128 VimToolbar *toolbar = gui.vimForm->ToolBar();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5129 if(toolbar != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5130 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5131 toolbar->MoveTo(x, y);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5132 toolbar->ResizeTo(w - 1, h - 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5133 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5134 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5135 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5136 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5137
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5138 #if defined(FEAT_GUI_TABLINE) || defined(PROTO)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5139
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5140 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5141 * Show or hide the tabline.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5142 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5143 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5144 gui_mch_show_tabline(int showit)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5145 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5146 VimTabLine *tabLine = gui.vimForm->TabLine();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5147
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5148 if (tabLine == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5149 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5150
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5151 if (!showit != !gui.vimForm->IsShowingTabLine()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5152 gui.vimForm->SetShowingTabLine(showit != 0);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5153 gui.tabline_height = gui.vimForm->TablineHeight();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5154 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5155 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5156
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5157 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5158 gui_mch_set_tabline_pos(int x, int y, int w, int h)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5159 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5160 VimTabLine *tabLine = gui.vimForm->TabLine();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5161 if(tabLine != NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5162 if (gui.vimWindow->Lock()) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5163 tabLine->MoveTo(x, y);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5164 tabLine->ResizeTo(w - 1, h - 1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5165 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5166 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5167 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5168 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5169
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5170 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5171 * Return TRUE when tabline is displayed.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5172 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5173 int
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5174 gui_mch_showing_tabline()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5175 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5176 VimTabLine *tabLine = gui.vimForm->TabLine();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5177 return tabLine != NULL && gui.vimForm->IsShowingTabLine();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5178 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5179
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5180 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5181 * Update the labels of the tabline.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5182 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5183 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5184 gui_mch_update_tabline()
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5185 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5186 tabpage_T *tp;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5187 int nr = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5188 int curtabidx = 0;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5189
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5190 VimTabLine *tabLine = gui.vimForm->TabLine();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5191
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5192 if (tabLine == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5193 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5194
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5195 gui.vimWindow->Lock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5196
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5197 // Add a label for each tab page. They all contain the same text area.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5198 for (tp = first_tabpage; tp != NULL; tp = tp->tp_next, ++nr) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5199 if (tp == curtab)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5200 curtabidx = nr;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5201
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5202 BTab* tab = tabLine->TabAt(nr);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5203
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5204 if (tab == NULL) {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5205 tab = new VimTabLine::VimTab();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5206 tabLine->AddTab(NULL, tab);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5207 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5208
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5209 get_tabline_label(tp, FALSE);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5210 tab->SetLabel((const char*)NameBuff);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5211 tabLine->Invalidate();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5212 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5213
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5214 // Remove any old labels.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5215 while (nr < tabLine->CountTabs())
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5216 tabLine->RemoveTab(nr);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5217
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5218 if(tabLine->Selection() != curtabidx)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5219 tabLine->Select(curtabidx);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5220
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5221 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5222 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5223
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5224 /*
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5225 * Set the current tab to "nr". First tab is 1.
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5226 */
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5227 void
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5228 gui_mch_set_curtab(int nr)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5229 {
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5230 VimTabLine *tabLine = gui.vimForm->TabLine();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5231 if(tabLine == NULL)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5232 return;
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5233
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5234 gui.vimWindow->Lock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5235
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5236 if(tabLine->Selection() != nr -1)
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5237 tabLine->Select(nr -1);
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5238
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5239 gui.vimWindow->Unlock();
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5240 }
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5241
22f0dda71638 patch 8.2.0320: no Haiku support
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5242 #endif // FEAT_GUI_TABLINE