/* -*-C++-*-	$NetBSD: tabwindow.cpp,v 1.6 2008/04/28 20:23:20 martin Exp $	*/

/*-
 * Copyright (c) 2001 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by UCHIYAMA Yasushi.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#include <hpcmenu.h>
#include <menu/window.h>
#include <menu/tabwindow.h>
#include <res/resource.h>

//
// TabControl
//
BOOL
TabWindowBase::create(LPCREATESTRUCT aux)
{
	int cx = _rect.right - _rect.left;
	int cy = _rect.bottom - _rect.top;
	_window = CreateWindow(WC_TABCONTROL, L"",
	    WS_CHILD | WS_VISIBLE | WS_TABSTOP |
	    WS_CLIPSIBLINGS | TCS_MULTILINE | TCS_VERTICAL,
	    _rect.left, _rect.top, cx, cy, _parent_window,
	    reinterpret_cast <HMENU>(_id), aux->hInstance,
	    NULL); // this is system window class

	if (!IsWindow(_window))
		return FALSE;

	// set tab image.
	HIMAGELIST img = ImageList_Create(TABCTRL_TAB_IMAGE_WIDTH,
	    TABCTRL_TAB_IMAGE_HEIGHT,
	    ILC_COLOR, 3, 0);
	_load_bitmap(img, L"IDI_HPCMENU_MAIN");
	_load_bitmap(img, L"IDI_HPCMENU_OPTION");
	_load_bitmap(img, L"IDI_HPCMENU_CONSOLE");

	TabCtrl_SetPadding(_window, 1, 1);
	TabCtrl_SetImageList(_window, img);

	return TRUE;
}

void
TabWindowBase::_load_bitmap(HIMAGELIST img, const TCHAR *name)
{
	HBITMAP bmp = LoadBitmap(_app._instance, name);
	ImageList_Add(img, bmp, 0);
	DeleteObject(bmp);
}

BOOL
TabWindowBase::focusManagerHook(WORD vk, UINT flags, HWND prev)
{
	int direction = 0;

	// NB: VK_UP/VK_DOWN move between tabs
	switch (vk) {
	case VK_RIGHT:
		direction = 1;	// next
		break;

	case VK_LEFT:
		direction = -1;	// prev
		break;

	case VK_TAB:
		if (GetKeyState(VK_SHIFT) & 0x8000) // Shift-Tab
			direction = -1;	// prev
		else
			direction = 1; // next
		break;
	}

	if (!direction)
		return FALSE;

	HWND dst;

	if (direction > 0) {	// next - into the current dialog
		int tab_id = TabCtrl_GetCurSel(_window);

		TC_ITEM tc_item;
		tc_item.mask = TCIF_PARAM;
		TabCtrl_GetItem(_window, tab_id, &tc_item);
		TabWindow *tab = reinterpret_cast <TabWindow *>
		    (tc_item.lParam);

		dst = GetNextDlgTabItem(tab->_window, NULL, FALSE);
	} else {		// prev - to the button in the root
		dst = prev;
	}

	SetFocus(dst);
	return TRUE;
}


//
// Child of TabControl(Dialog)
//
BOOL
TabWindow::create(LPCREATESTRUCT unused)
{
	_window = CreateDialogParam
	    (_app._instance, _name, _base._window,
		reinterpret_cast <DLGPROC>(Window::_dlg_proc),
		reinterpret_cast <LPARAM>(this));

	return _window ? TRUE : FALSE;
}

BOOL
TabWindow::proc(HWND w, UINT msg, WPARAM wparam, LPARAM lparam)
{
	switch(msg) {
	default:
		return FALSE;
	case WM_INITDIALOG:
		init(w);
		break;
	case WM_COMMAND:
		command(LOWORD(wparam), HIWORD(wparam));
		break;
	}
	return TRUE;
}

void
TabWindow::init(HWND w)
{
	TC_ITEM item;

	item.mask = TCIF_PARAM | TCIF_IMAGE;
	item.iImage =(int)_id;
	item.lParam = reinterpret_cast <LPARAM>(this);
	// register myself to parent tab-control.
	_base.insert(_id, item);
	// fit my dialog size to tab-control window.
	_base.adjust(_rect);
	hide();
}

BOOL
TabWindow::_is_checked(int id)
{
	return SendDlgItemMessage(_window, id, BM_GETCHECK, 0, 0)
	    ? TRUE : FALSE;
}

void
TabWindow::_set_check(int id, BOOL onoff)
{
	SendDlgItemMessage(_window, id, BM_SETCHECK,
	    onoff ? BST_CHECKED : BST_UNCHECKED, 0);
}