[u/mdw/putty] / mac / macevlog.c

/* $Id: macevlog.c,v 1.1 2003/02/07 01:38:12 ben Exp $ */
/*
 * Copyright (c) 2003 Ben Harris
 * All rights reserved.
 *
 * Permission is hereby granted, free of charge, to any person
 * obtaining a copy of this software and associated documentation
 * files (the "Software"), to deal in the Software without
 * restriction, including without limitation the rights to use,
 * copy, modify, merge, publish, distribute, sublicense, and/or
 * sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following
 * conditions:
 * 
 * The above copyright notice and this permission notice shall be
 * included in all copies or substantial portions of the Software.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
 * NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
 * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
 * CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 */

#include <MacTypes.h>
#include <Lists.h>
#include <MacWindows.h>
#include <Quickdraw.h>
#include <Script.h>
#include <ToolUtils.h>

#include <limits.h>
#include <string.h>

#include "putty.h"
#include "mac.h"
#include "macresid.h"
#include "terminal.h"

static void mac_draweventloggrowicon(Session *s);
static void mac_adjusteventlogscrollbar(Session *s);

static void mac_createeventlog(Session *s)
{
    Rect view;
#if TARGET_API_MAC_CARBON
    Rect controlrect;
#endif
    ListBounds bounds = { 0, 0, 0, 1 }; /* 1 column, 0 rows */
    Point csize = { 0, 0 };
    GrafPtr saveport;
    long fondsize;
    WinInfo *wi;

    s->eventlog_window = GetNewWindow(wEventLog, NULL, (WindowPtr)-1);
    wi = smalloc(sizeof(*wi));
    wi->s = s;
    wi->wtype = wEventLog;
    SetWRefCon(s->eventlog_window, (long)wi);
    GetPort(&saveport);
    SetPort((GrafPtr)GetWindowPort(s->eventlog_window));
    fondsize = GetScriptVariable(smRoman, smScriptSmallFondSize);
    TextFont(HiWord(fondsize));
    TextSize(LoWord(fondsize));
    SetPort(saveport);
#if TARGET_API_MAC_CARBON
    GetPortBounds(GetWindowPort(s->eventlog_window), &view);
#else
    view = s->eventlog_window->portRect;
#endif
    view.right -= 15; /* Scrollbar */
    s->eventlog = LNew(&view, &bounds, csize, 0, s->eventlog_window,
		       TRUE, TRUE, FALSE, TRUE);
    mac_adjusteventlogscrollbar(s);
#if TARGET_API_MAC_CARBON
    SetListSelectionFlags(s->eventlog, lExtendDrag | lNoDisjoint | lNoExtend);
#else
    (*s->eventlog)->selFlags = lExtendDrag | lNoDisjoint | lNoExtend;
#endif
    ShowWindow(s->eventlog_window);
}

void mac_freeeventlog(Session *s)
{

    if (s->eventlog != NULL)
	LDispose(s->eventlog);
    if (s->eventlog_window != NULL) {
	sfree((WinInfo *)GetWRefCon(s->eventlog_window));
	DisposeWindow(s->eventlog_window);
    }
}

/*
 * FIXME: logevent() should be passed a frontend handle, but backends have to
 * have a terminal handle instead, because they pass it to from_backend(),
 * so we accept a terminal handle here as well, and hope no-one tries to call
 * us with sensible arguments.
 */
void logevent(void *frontend, char *str)
{
    Terminal *term = frontend;
    Session *s = term->frontend;
    ListBounds bounds;
    Cell cell = { 0, 0 };

    if (s->eventlog == NULL)
	mac_createeventlog(s);
    if (s->eventlog == NULL)
	return;

#if TARGET_API_MAC_CARBON
    GetListDataBounds(s->eventlog, &bounds);
#else
    bounds = (*s->eventlog)->dataBounds;
#endif
    cell.v = bounds.bottom;
    LAddRow(1, cell.v, s->eventlog);
    LSetCell(str, strlen(str), cell, s->eventlog);
}

static void mac_draweventloggrowicon(Session *s)
{
    Rect clip;
    RgnHandle savergn;

    SetPort((GrafPtr)GetWindowPort(s->eventlog_window));
    /*
     * Stop DrawGrowIcon giving us space for a horizontal scrollbar
     * See Tech Note TB575 for details.
     */
#if TARGET_API_MAC_CARBON
    GetPortBounds(GetWindowPort(s->eventlog_window), &clip);
#else
    clip = s->eventlog_window->portRect;
#endif
    clip.left = clip.right - 15;
    savergn = NewRgn();
    GetClip(savergn);
    ClipRect(&clip);
    DrawGrowIcon(s->eventlog_window);
    SetClip(savergn);
    DisposeRgn(savergn);
}

/*
 * For some reason, LNew doesn't seem to respect the hasGrow
 * parameter, so we hammer the scrollbar into shape ourselves.
 */
static void mac_adjusteventlogscrollbar(Session *s)
{
#if TARGET_API_MAC_CARBON
    Rect winrect;

    GetPortBounds(GetWindowPort(s->eventlog_window), &winrect);
    SizeControl(GetListVerticalScrollBar(s->eventlog),
		16, winrect.bottom - 13);
#else
    SizeControl((*s->eventlog)->vScroll,
		16, s->eventlog_window->portRect.bottom - 13);
#endif
}

void mac_clickeventlog(WindowPtr window, EventRecord *event)
{
    Session *s = mac_windowsession(window);
    Point mouse;
    GrafPtr saveport;

    GetPort(&saveport);
    SetPort((GrafPtr)GetWindowPort(window));
    mouse = event->where;
    GlobalToLocal(&mouse);
    LClick(mouse, event->modifiers, s->eventlog);
    SetPort(saveport);
}

void mac_groweventlog(WindowPtr window, EventRecord *event)
{
    Session *s = mac_windowsession(window);
    Rect limits;
    long grow_result;
#if TARGET_API_MAC_CARBON
    Rect rect;
    Point cellsize;
#else
    GrafPtr saveport;
#endif

    SetRect(&limits, 15, 0, SHRT_MAX, SHRT_MAX);
    grow_result = GrowWindow(window, event->where, &limits);
    if (grow_result == 0) return;
    SizeWindow(window, LoWord(grow_result), HiWord(grow_result), TRUE);
    LSize(LoWord(grow_result) - 15, HiWord(grow_result), s->eventlog);
    mac_adjusteventlogscrollbar(s);
    /* We would use SetListCellSize in Carbon, but it's missing. */
    (*s->eventlog)->cellSize.h = LoWord(grow_result) - 15;
#if TARGET_API_MAC_CARBON
    cellsize.h = LoWord(grow_result) - 15;
    GetListViewBounds(s->eventlog, &rect);
    InvalWindowRect(window, &rect);
#else
    GetPort(&saveport);
    SetPort(window);
    InvalRect(&(*s->eventlog)->rView);
    SetPort(saveport);
#endif
}

void mac_activateeventlog(WindowPtr window, EventRecord *event)
{
    Session *s = mac_windowsession(window);
    int active = (event->modifiers & activeFlag) != 0;

    LActivate(active, s->eventlog);
    mac_draweventloggrowicon(s);
}

void mac_updateeventlog(WindowPtr window)
{
    Session *s = mac_windowsession(window);
#if TARGET_API_MAC_CARBON
    RgnHandle visrgn;
#endif

    SetPort((GrafPtr)GetWindowPort(window));
    BeginUpdate(window);
#if TARGET_API_MAC_CARBON
    visrgn = NewRgn();
    GetPortVisibleRegion(GetWindowPort(window), visrgn);
    LUpdate(visrgn, s->eventlog);
    DisposeRgn(visrgn);
#else
    LUpdate(window->visRgn, s->eventlog);
#endif
    mac_draweventloggrowicon(s);
    EndUpdate(window);
}

void mac_showeventlog(Session *s)
{

    ShowWindow(s->eventlog_window);
}

/*
 * Local Variables:
 * c-file-style: "simon"
 * End:
 */
Commit	Line	Data
7dcd1f87	1	/* $Id: macevlog.c,v 1.1 2003/02/07 01:38:12 ben Exp $ */
	2	/*
	3	* Copyright (c) 2003 Ben Harris
	4	* All rights reserved.
	5	*
	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
	13	* conditions:
	14	*
	15	* The above copyright notice and this permission notice shall be
	16	* included in all copies or substantial portions of the Software.
	17	*
	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
	25	* SOFTWARE.
	26	*/
	27
	28	#include <MacTypes.h>
	29	#include <Lists.h>
	30	#include <MacWindows.h>
	31	#include <Quickdraw.h>
	32	#include <Script.h>
	33	#include <ToolUtils.h>
	34
	35	#include <limits.h>
	36	#include <string.h>
	37
	38	#include "putty.h"
	39	#include "mac.h"
	40	#include "macresid.h"
	41	#include "terminal.h"
	42
	43	static void mac_draweventloggrowicon(Session *s);
	44	static void mac_adjusteventlogscrollbar(Session *s);
	45
	46	static void mac_createeventlog(Session *s)
	47	{
	48	Rect view;
	49	#if TARGET_API_MAC_CARBON
	50	Rect controlrect;
	51	#endif
	52	ListBounds bounds = { 0, 0, 0, 1 }; /* 1 column, 0 rows */
	53	Point csize = { 0, 0 };
	54	GrafPtr saveport;
	55	long fondsize;
	56	WinInfo *wi;
	57
	58	s->eventlog_window = GetNewWindow(wEventLog, NULL, (WindowPtr)-1);
	59	wi = smalloc(sizeof(*wi));
	60	wi->s = s;
	61	wi->wtype = wEventLog;
	62	SetWRefCon(s->eventlog_window, (long)wi);
	63	GetPort(&saveport);
	64	SetPort((GrafPtr)GetWindowPort(s->eventlog_window));
65	fondsize = GetScriptVariable(smRoman, smScriptSmallFondSize);
66	TextFont(HiWord(fondsize));
67	TextSize(LoWord(fondsize));
68	SetPort(saveport);
69	#if TARGET_API_MAC_CARBON
70	GetPortBounds(GetWindowPort(s->eventlog_window), &view);
71	#else
72	view = s->eventlog_window->portRect;
73	#endif
74	view.right -= 15; /* Scrollbar */
75	s->eventlog = LNew(&view, &bounds, csize, 0, s->eventlog_window,
76	TRUE, TRUE, FALSE, TRUE);
77	mac_adjusteventlogscrollbar(s);
78	#if TARGET_API_MAC_CARBON
79	SetListSelectionFlags(s->eventlog, lExtendDrag \| lNoDisjoint \| lNoExtend);
80	#else
81	(*s->eventlog)->selFlags = lExtendDrag \| lNoDisjoint \| lNoExtend;
82	#endif
83	ShowWindow(s->eventlog_window);
84	}
85
86	void mac_freeeventlog(Session *s)
87	{
88
89	if (s->eventlog != NULL)
90	LDispose(s->eventlog);
91	if (s->eventlog_window != NULL) {
92	sfree((WinInfo *)GetWRefCon(s->eventlog_window));
93	DisposeWindow(s->eventlog_window);
94	}
95	}
96
97	/*
98	* FIXME: logevent() should be passed a frontend handle, but backends have to
99	* have a terminal handle instead, because they pass it to from_backend(),
100	* so we accept a terminal handle here as well, and hope no-one tries to call
101	* us with sensible arguments.
102	*/
103	void logevent(void frontend, char str)
104	{
105	Terminal *term = frontend;
106	Session *s = term->frontend;
107	ListBounds bounds;
108	Cell cell = { 0, 0 };
109
110	if (s->eventlog == NULL)
111	mac_createeventlog(s);
112	if (s->eventlog == NULL)
113	return;
114
115	#if TARGET_API_MAC_CARBON
116	GetListDataBounds(s->eventlog, &bounds);
117	#else
118	bounds = (*s->eventlog)->dataBounds;
119	#endif
120	cell.v = bounds.bottom;
121	LAddRow(1, cell.v, s->eventlog);
122	LSetCell(str, strlen(str), cell, s->eventlog);
123	}
124
125	static void mac_draweventloggrowicon(Session *s)
126	{
127	Rect clip;
128	RgnHandle savergn;
129
130	SetPort((GrafPtr)GetWindowPort(s->eventlog_window));
131	/*
132	* Stop DrawGrowIcon giving us space for a horizontal scrollbar
133	* See Tech Note TB575 for details.
134	*/
135	#if TARGET_API_MAC_CARBON
136	GetPortBounds(GetWindowPort(s->eventlog_window), &clip);
137	#else
138	clip = s->eventlog_window->portRect;
139	#endif
140	clip.left = clip.right - 15;
141	savergn = NewRgn();
142	GetClip(savergn);
143	ClipRect(&clip);
144	DrawGrowIcon(s->eventlog_window);
145	SetClip(savergn);
146	DisposeRgn(savergn);
147	}
148
149	/*
150	* For some reason, LNew doesn't seem to respect the hasGrow
151	* parameter, so we hammer the scrollbar into shape ourselves.
152	*/
153	static void mac_adjusteventlogscrollbar(Session *s)
154	{
155	#if TARGET_API_MAC_CARBON
156	Rect winrect;
157
158	GetPortBounds(GetWindowPort(s->eventlog_window), &winrect);
159	SizeControl(GetListVerticalScrollBar(s->eventlog),
160	16, winrect.bottom - 13);
161	#else
162	SizeControl((*s->eventlog)->vScroll,
163	16, s->eventlog_window->portRect.bottom - 13);
164	#endif
165	}
166
167	void mac_clickeventlog(WindowPtr window, EventRecord *event)
168	{
169	Session *s = mac_windowsession(window);
170	Point mouse;
171	GrafPtr saveport;
172
173	GetPort(&saveport);
174	SetPort((GrafPtr)GetWindowPort(window));
175	mouse = event->where;
176	GlobalToLocal(&mouse);
177	LClick(mouse, event->modifiers, s->eventlog);
178	SetPort(saveport);
179	}
180
181	void mac_groweventlog(WindowPtr window, EventRecord *event)
182	{
183	Session *s = mac_windowsession(window);
184	Rect limits;
185	long grow_result;
186	#if TARGET_API_MAC_CARBON
187	Rect rect;
188	Point cellsize;
189	#else
190	GrafPtr saveport;
191	#endif
192
193	SetRect(&limits, 15, 0, SHRT_MAX, SHRT_MAX);
194	grow_result = GrowWindow(window, event->where, &limits);
195	if (grow_result == 0) return;
196	SizeWindow(window, LoWord(grow_result), HiWord(grow_result), TRUE);
197	LSize(LoWord(grow_result) - 15, HiWord(grow_result), s->eventlog);
198	mac_adjusteventlogscrollbar(s);
199	/* We would use SetListCellSize in Carbon, but it's missing. */
200	(*s->eventlog)->cellSize.h = LoWord(grow_result) - 15;
201	#if TARGET_API_MAC_CARBON
202	cellsize.h = LoWord(grow_result) - 15;
203	GetListViewBounds(s->eventlog, &rect);
204	InvalWindowRect(window, &rect);
205	#else
206	GetPort(&saveport);
207	SetPort(window);
208	InvalRect(&(*s->eventlog)->rView);
209	SetPort(saveport);
210	#endif
211	}
212
213	void mac_activateeventlog(WindowPtr window, EventRecord *event)
214	{
215	Session *s = mac_windowsession(window);
216	int active = (event->modifiers & activeFlag) != 0;
217
218	LActivate(active, s->eventlog);
219	mac_draweventloggrowicon(s);
220	}
221
222	void mac_updateeventlog(WindowPtr window)
223	{
224	Session *s = mac_windowsession(window);
225	#if TARGET_API_MAC_CARBON
226	RgnHandle visrgn;
227	#endif
228
229	SetPort((GrafPtr)GetWindowPort(window));
230	BeginUpdate(window);
231	#if TARGET_API_MAC_CARBON
232	visrgn = NewRgn();
233	GetPortVisibleRegion(GetWindowPort(window), visrgn);
234	LUpdate(visrgn, s->eventlog);
235	DisposeRgn(visrgn);
236	#else
237	LUpdate(window->visRgn, s->eventlog);
238	#endif
239	mac_draweventloggrowicon(s);
240	EndUpdate(window);
241	}
242
243	void mac_showeventlog(Session *s)
244	{
245
246	ShowWindow(s->eventlog_window);
247	}
248
249	/*
250	* Local Variables:
251	* c-file-style: "simon"
252	* End:
253	*/