3 * Copyright (c) 2003 Ben Harris
6 * Permission is hereby granted, free of charge, to any person
7 * obtaining a copy of this software and associated documentation
8 * files (the "Software"), to deal in the Software without
9 * restriction, including without limitation the rights to use,
10 * copy, modify, merge, publish, distribute, sublicense, and/or
11 * sell copies of the Software, and to permit persons to whom the
12 * Software is furnished to do so, subject to the following
15 * The above copyright notice and this permission notice shall be
16 * included in all copies or substantial portions of the Software.
18 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
19 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
21 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
22 * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
23 * CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
24 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
30 #include <MacWindows.h>
31 #include <Quickdraw.h>
33 #include <ToolUtils.h>
43 static void mac_draweventloggrowicon(Session *s);
44 static void mac_adjusteventlogscrollbar(Session *s);
45 static void mac_clickeventlog(WindowPtr, EventRecord *);
46 static void mac_activateeventlog(WindowPtr, EventRecord *);
47 static void mac_groweventlog(WindowPtr, EventRecord *);
48 static void mac_updateeventlog(WindowPtr);
49 static void mac_closeeventlog(WindowPtr);
51 static void mac_createeventlog(Session *s)
54 ListBounds bounds = { 0, 0, 0, 1 }; /* 1 column, 0 rows */
55 Point csize = { 0, 0 };
60 s->eventlog_window = GetNewWindow(wEventLog, NULL, (WindowPtr)-1);
62 memset(wi, 0, sizeof(*wi));
64 wi->wtype = wEventLog;
65 wi->click = &mac_clickeventlog;
66 wi->activate = &mac_activateeventlog;
67 wi->grow = &mac_groweventlog;
68 wi->update = &mac_updateeventlog;
69 wi->close = &mac_closeeventlog;
70 SetWRefCon(s->eventlog_window, (long)wi);
72 SetPort((GrafPtr)GetWindowPort(s->eventlog_window));
73 fondsize = GetScriptVariable(smRoman, smScriptSmallFondSize);
74 TextFont(HiWord(fondsize));
75 TextSize(LoWord(fondsize));
77 #if TARGET_API_MAC_CARBON
78 GetPortBounds(GetWindowPort(s->eventlog_window), &view);
80 view = s->eventlog_window->portRect;
82 view.right -= 15; /* Scrollbar */
83 s->eventlog = LNew(&view, &bounds, csize, 0, s->eventlog_window,
84 TRUE, TRUE, FALSE, TRUE);
85 mac_adjusteventlogscrollbar(s);
86 #if TARGET_API_MAC_CARBON
87 SetListSelectionFlags(s->eventlog, lExtendDrag | lNoDisjoint | lNoExtend);
89 (*s->eventlog)->selFlags = lExtendDrag | lNoDisjoint | lNoExtend;
93 void mac_freeeventlog(Session *s)
96 if (s->eventlog != NULL)
97 LDispose(s->eventlog);
98 if (s->eventlog_window != NULL) {
99 sfree((WinInfo *)GetWRefCon(s->eventlog_window));
100 DisposeWindow(s->eventlog_window);
104 void logevent(void *frontend, const char *str)
106 Session *s = frontend;
107 ListBounds bounds, visible;
108 Cell cell = { 0, 0 };
114 strftime(timebuf, sizeof(timebuf), "%Y-%m-%d %H:%M:%S\t", &tm);
116 string=snewn(strlen(timebuf) + strlen(str) +1, char);
117 strcpy(string, timebuf);
120 if (s->eventlog == NULL)
121 mac_createeventlog(s);
122 if (s->eventlog == NULL)
125 #if TARGET_API_MAC_CARBON
126 GetListDataBounds(s->eventlog, &bounds);
127 GetListVisibleCells(s->eventlog, &visible);
129 bounds = (*s->eventlog)->dataBounds;
130 visible = (*s->eventlog)->visible;
133 cell.v = bounds.bottom;
134 LAddRow(1, cell.v, s->eventlog);
135 LSetCell(string, strlen(string), cell, s->eventlog);
136 /* ">=" and "2" because there can be a blank cell below the last one. */
137 if (visible.bottom >= bounds.bottom)
138 LScroll(0, 2, s->eventlog);
142 static void mac_draweventloggrowicon(Session *s)
147 SetPort((GrafPtr)GetWindowPort(s->eventlog_window));
149 * Stop DrawGrowIcon giving us space for a horizontal scrollbar
150 * See Tech Note TB575 for details.
152 #if TARGET_API_MAC_CARBON
153 GetPortBounds(GetWindowPort(s->eventlog_window), &clip);
155 clip = s->eventlog_window->portRect;
157 clip.left = clip.right - 15;
161 DrawGrowIcon(s->eventlog_window);
167 * For some reason, LNew doesn't seem to respect the hasGrow
168 * parameter, so we hammer the scrollbar into shape ourselves.
170 static void mac_adjusteventlogscrollbar(Session *s)
172 #if TARGET_API_MAC_CARBON
175 GetPortBounds(GetWindowPort(s->eventlog_window), &winrect);
176 SizeControl(GetListVerticalScrollBar(s->eventlog),
177 16, winrect.bottom - 13);
179 SizeControl((*s->eventlog)->vScroll,
180 16, s->eventlog_window->portRect.bottom - 13);
184 void mac_clickeventlog(WindowPtr window, EventRecord *event)
186 Session *s = mac_windowsession(window);
191 SetPort((GrafPtr)GetWindowPort(window));
192 mouse = event->where;
193 GlobalToLocal(&mouse);
194 LClick(mouse, event->modifiers, s->eventlog);
198 static void mac_groweventlog(WindowPtr window, EventRecord *event)
200 Session *s = mac_windowsession(window);
203 #if TARGET_API_MAC_CARBON
210 SetRect(&limits, 15, 0, SHRT_MAX, SHRT_MAX);
211 grow_result = GrowWindow(window, event->where, &limits);
212 if (grow_result == 0) return;
213 SizeWindow(window, LoWord(grow_result), HiWord(grow_result), TRUE);
214 LSize(LoWord(grow_result) - 15, HiWord(grow_result), s->eventlog);
215 mac_adjusteventlogscrollbar(s);
216 /* We would use SetListCellSize in Carbon, but it's missing. */
217 (*s->eventlog)->cellSize.h = LoWord(grow_result) - 15;
218 #if TARGET_API_MAC_CARBON
219 cellsize.h = LoWord(grow_result) - 15;
220 GetListViewBounds(s->eventlog, &rect);
221 InvalWindowRect(window, &rect);
225 InvalRect(&(*s->eventlog)->rView);
230 static void mac_activateeventlog(WindowPtr window, EventRecord *event)
232 Session *s = mac_windowsession(window);
233 int active = (event->modifiers & activeFlag) != 0;
235 LActivate(active, s->eventlog);
236 mac_draweventloggrowicon(s);
239 static void mac_updateeventlog(WindowPtr window)
241 Session *s = mac_windowsession(window);
242 #if TARGET_API_MAC_CARBON
246 SetPort((GrafPtr)GetWindowPort(window));
248 #if TARGET_API_MAC_CARBON
250 GetPortVisibleRegion(GetWindowPort(window), visrgn);
251 LUpdate(visrgn, s->eventlog);
254 LUpdate(window->visRgn, s->eventlog);
256 mac_draweventloggrowicon(s);
260 static void mac_closeeventlog(WindowPtr window)
266 void mac_showeventlog(Session *s)
269 SelectWindow(s->eventlog_window);
270 ShowWindow(s->eventlog_window);
275 * c-file-style: "simon"