/*
 *                            COPYRIGHT
 *
 *  pcb-rnd, interactive printed circuit board design
 *  Copyright (C) 2017,2019 Tibor 'Igor2' Palinkas
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 *
 *  Contact:
 *    Project page: http://repo.hu/projects/pcb-rnd
 *    lead developer: http://repo.hu/projects/pcb-rnd/contact.html
 *    mailing list: pcb-rnd (at) list.repo.hu (send "subscribe")
 */

#include "config.h"
#include <librnd/core/actions.h>
#include <librnd/core/hid_dad.h>
#include <librnd/core/hidlib_conf.h>
#include "funchash_core.h"
#include "obj_pstk.h"
#include "obj_pstk_op.h"
#include "obj_pstk_inlines.h"
#include "obj_subc_parent.h"
#include "search.h"
#include "operation.h"
#include "undo.h"
#include "dlg_lib_pstk.h"
#include "dlg_padstack.h"

static const char *shapes[] = { "circle", "square", NULL };
static const char *sides[] = { "all (top, bottom, intern)", "top & bottom only", "top only", "bottom only", "none", NULL };
static pcb_layer_type_t sides_lyt[] = { PCB_LYT_TOP | PCB_LYT_BOTTOM | PCB_LYT_INTERN, PCB_LYT_TOP | PCB_LYT_BOTTOM, PCB_LYT_TOP, PCB_LYT_BOTTOM, 0 };
static const char *thermal_type[] =  {"no thermal", "round", "sharp", "diagonal round", "diagonal sharp", "solid connection", "no shape", NULL};
static pcb_thermal_t thermal_bit[] = {0, PCB_THERMAL_ON|PCB_THERMAL_ROUND, PCB_THERMAL_ON|PCB_THERMAL_SHARP, PCB_THERMAL_ON|PCB_THERMAL_ROUND|PCB_THERMAL_DIAGONAL, PCB_THERMAL_ON|PCB_THERMAL_SHARP|PCB_THERMAL_DIAGONAL, PCB_THERMAL_ON|PCB_THERMAL_SOLID, PCB_THERMAL_ON|PCB_THERMAL_NOSHAPE};

/* build a group/layer name string in tmp */
char *pse_group_string(pcb_board_t *pcb, pcb_layergrp_t *grp, char *out, int size)
{
	const char *lname = "", *gname = "";

	if (grp != NULL) {
		gname = grp->name;
		if (grp->len > 0) {
			pcb_layer_t *l = pcb_get_layer(pcb->Data, grp->lid[0]);
			if (l != NULL)
				lname = l->name;
		}
	}

	rnd_snprintf(out, size, "%s\n[%s]", gname, lname);
	return out;
}

/* Convert from padstack to dialog */
static void pse_ps2dlg(void *hid_ctx, pse_t *pse)
{
	char tmp[256], *s;
	const char *prn = "";
	int n, i;
	pcb_pstk_proto_t *proto;
	rnd_layergrp_id_t top_gid, bottom_gid;
	pcb_layergrp_t *top_grp, *bottom_grp;
	pcb_bb_type_t htype;
	char shp_found[32];
	pcb_pstk_tshape_t *ts = pcb_pstk_get_untshape(pse->ps);

	if (ts == NULL)
		return;

	rnd_gui->attr_dlg_widget_hide(hid_ctx, pse->prsmirror, !pse->ps->smirror);

	htype = pcb_pstk_bbspan(pse->pcb, pse->ps, &top_gid, &bottom_gid, &proto);
	top_grp = pcb_get_layergrp(pse->pcb, top_gid);
	bottom_grp = pcb_get_layergrp(pse->pcb, bottom_gid);

	/* instance - main */
	if ((proto != NULL) && (proto->name != NULL))
		prn = proto->name;
	rnd_snprintf(tmp, sizeof(tmp), "#%ld:%d (%s)", (long int)pse->ps->proto, pse->ps->protoi, prn);
	RND_DAD_SET_VALUE(hid_ctx, pse->proto_id, str, tmp);
	RND_DAD_SET_VALUE(hid_ctx, pse->clearance, crd, pse->ps->Clearance);
	RND_DAD_SET_VALUE(hid_ctx, pse->rot, dbl, pse->ps->rot);
	RND_DAD_SET_VALUE(hid_ctx, pse->xmirror, lng, pse->ps->xmirror);
	RND_DAD_SET_VALUE(hid_ctx, pse->smirror, lng, pse->ps->smirror);

	/* instance - thermals */
	for(n = 0; n < pse->thermal.len; n++) {
		rnd_layer_id_t lid = pse->thermal.lid[n];
		int th = lid < pse->ps->thermals.used ? pse->ps->thermals.shape[lid] : 0;
		for(i = 0; i < sizeof(thermal_bit) / sizeof(thermal_bit[0]); i++) {
			if (thermal_bit[i] == th) {
				RND_DAD_SET_VALUE(hid_ctx, pse->thermal.wtype[n], lng, i);
				break;
			}
		}
	}

	/* proto - layers */
	memset(shp_found, 0, sizeof(shp_found));
	for(n = 0; n < pcb_proto_num_layers; n++) {
		pcb_pstk_shape_t *shape = pcb_pstk_shape_notransform(pse->ps, pcb_proto_layers[n].mask, pcb_proto_layers[n].comb);

		if (shape != NULL) {
			int shape_idx = shape - ts->shape;
			if ((shape_idx >= 0) && (shape_idx < sizeof(shp_found)))
				shp_found[shape_idx] = 1;
			switch(shape->shape) {
				case PCB_PSSH_HSHADOW:
					*tmp = '\0';
					RND_DAD_SET_VALUE(hid_ctx, pse->proto_shape[n], str, "hshadow");
					break;
				case PCB_PSSH_CIRC:
					RND_DAD_SET_VALUE(hid_ctx, pse->proto_shape[n], str, "circle");
					if ((shape->data.circ.x != 0) || (shape->data.circ.y != 0))
						rnd_snprintf(tmp, sizeof(tmp), "%m+dia=%.06$mS\nat %.06$mS;%.06$mS", rnd_conf.editor.grid_unit->allow, shape->data.circ.dia, shape->data.circ.x, shape->data.circ.y);
					else
						rnd_snprintf(tmp, sizeof(tmp), "%m+dia=%.06$mS", rnd_conf.editor.grid_unit->allow, shape->data.circ.dia);
					break;
				case PCB_PSSH_LINE:
					if (shape->data.line.square)
						RND_DAD_SET_VALUE(hid_ctx, pse->proto_shape[n], str, "square line");
					else
						RND_DAD_SET_VALUE(hid_ctx, pse->proto_shape[n], str, "round line");
					rnd_snprintf(tmp, sizeof(tmp), "%m+thickness=%.06$mS", rnd_conf.editor.grid_unit->allow, shape->data.line.thickness);
					break;
				case PCB_PSSH_POLY:
					RND_DAD_SET_VALUE(hid_ctx, pse->proto_shape[n], str, "polygon");
					rnd_snprintf(tmp, sizeof(tmp), "corners=%d", shape->data.poly.len);
					break;
				default:
					RND_DAD_SET_VALUE(hid_ctx, pse->proto_shape[n], str, "<unknown>");
					strcpy(tmp, "<unknown>");
			}
			RND_DAD_SET_VALUE(hid_ctx, pse->proto_info[n], str, tmp);
			RND_DAD_SET_VALUE(hid_ctx, pse->proto_clr[n], crd, shape->clearance);
		}
		else {
			RND_DAD_SET_VALUE(hid_ctx, pse->proto_shape[n], str, "");
			RND_DAD_SET_VALUE(hid_ctx, pse->proto_info[n], str, "");
			RND_DAD_SET_VALUE(hid_ctx, pse->proto_clr[n], crd, 0);
		}
	}

	{
		int not_found = 0;
		for(n = 0; n < MIN((int)ts->len, (int)sizeof(shp_found)); n++)
			if (shp_found[n] == 0)
				not_found++;
		if (not_found)
			rnd_message(RND_MSG_ERROR, "This padstack has %d shape(s) that are not listed in the padstack editor\nFor editing all shapes, please break the padstack up\n", not_found);
	}

	/* proto - hole */
	if (proto->mech_idx >= 0) {
		s = "Slot geometry (<unknown>):";
		switch(htype) {
			case PCB_BB_NONE: s = "Slot geometry (there is no slot in this padstack):"; break;
			case PCB_BB_THRU: s = "Slot geometry (all-way-through slot):"; break;
			case PCB_BB_BB: s = "Slot geometry (blind and/or buried slot):"; break;
			case PCB_BB_INVALID: s = "Slot geometry (INVALID SLOT):"; break;
		}
		rnd_gui->attr_dlg_widget_state(hid_ctx, pse->hdia, 0);
	}
	else {
		s = "Hole geometry (<unknown>):";
		switch(htype) {
			case PCB_BB_NONE: s = "Hole geometry (there is no hole in this padstack):"; break;
			case PCB_BB_THRU: s = "Hole geometry (all-way-through hole):"; break;
			case PCB_BB_BB: s = "Hole geometry (blind and/or buried hole):"; break;
			case PCB_BB_INVALID: s = "Hole geometry (INVALID HOLE):"; break;
		}
		rnd_gui->attr_dlg_widget_state(hid_ctx, pse->hdia, 1);
	}
	RND_DAD_SET_VALUE(hid_ctx, pse->hole_header, str, s);

	free((char *)pse->attrs[pse->prname].val.str);
	pse->attrs[pse->prname].val.str = NULL;
	RND_DAD_SET_VALUE(hid_ctx, pse->prname, str, rnd_strdup(proto->name == NULL ? "" : proto->name));
	RND_DAD_SET_VALUE(hid_ctx, pse->hdia, crd, proto->hdia);
	RND_DAD_SET_VALUE(hid_ctx, pse->hplated, lng, proto->hplated);
	RND_DAD_SET_VALUE(hid_ctx, pse->htop_val, lng, proto->htop);
	RND_DAD_SET_VALUE(hid_ctx, pse->hbot_val, lng, proto->hbottom);

	if (proto->htop == 0)
		strcpy(tmp, "top copper group");
	else
		sprintf(tmp, "%d groups from\nthe %s copper group", proto->htop, proto->htop > 0 ? "top" : "bottom");
	RND_DAD_SET_VALUE(hid_ctx, pse->htop_text, str, tmp);
	RND_DAD_SET_VALUE(hid_ctx, pse->htop_layer, str, pse_group_string(pse->pcb, top_grp, tmp, sizeof(tmp)));

	if (proto->hbottom == 0)
		strcpy(tmp, "bottom copper group");
	else
		sprintf(tmp, "%d groups from\nthe %s copper group", proto->hbottom, proto->hbottom > 0 ? "bottom" : "top");
	RND_DAD_SET_VALUE(hid_ctx, pse->hbot_text, str, tmp);
	RND_DAD_SET_VALUE(hid_ctx, pse->hbot_layer, str, pse_group_string(pse->pcb, bottom_grp, tmp, sizeof(tmp)));

}

static void pse_changed(pse_t *pse)
{
	pcb_data_t *pdt;

	if (pse->change_cb != NULL)
		pse->change_cb(pse);

	/* if the padstack is within a subc, parent subc bbox needs to be recalculated because any pstk geometry change may have changed that too */
	assert(pse->ps->parent_type == PCB_PARENT_DATA);
	pdt = pse->ps->parent.data;
	if (pdt->parent_type == PCB_PARENT_SUBC)
		pcb_subc_bbox(pdt->parent.subc);

	if (pcb_data_get_top(pse->data) != NULL)
		pcb_board_set_changed_flag(PCB, 1);
}

static void pse_chg_protoid(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	rnd_cardinal_t proto_id;
	pcb_subc_t *subc;
	static int lock = 0;

	if (lock != 0)
		return;

	subc = pcb_obj_parent_subc((pcb_any_obj_t *)pse->ps);
	proto_id = pcb_dlg_pstklib(pse->pcb, (subc == NULL ? 0 : subc->ID), rnd_true, "Select a new prototype to be used on the padstack");
	if (proto_id == PCB_PADSTACK_INVALID)
		return;

	pcb_pstk_change_instance(pse->ps, &proto_id, NULL, NULL, NULL, NULL);

	lock++;
	pse_ps2dlg(hid_ctx, pse); /* to get the button text updated with proto name */
	lock--;

	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_chg_protodup(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	rnd_cardinal_t proto_id;
	pcb_pstk_proto_t *proto = pcb_pstk_get_proto(pse->ps);

	assert(pse->ps->parent_type == PCB_PARENT_DATA);
	if (proto == NULL) {
		rnd_message(RND_MSG_ERROR, "Internal error: can't determine prototype\n");
		return;
	}
	proto_id = pcb_pstk_proto_insert_forcedup(pse->ps->parent.data, proto, 0, pcb_data_get_top(pse->ps->parent.data) == pse->pcb);
	pcb_pstk_change_instance(pse->ps, &proto_id, NULL, NULL, NULL, NULL);
	pse_ps2dlg(hid_ctx, pse);
	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_chg_instance(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	static int lock = 0;
	int xm, sm;

	if (lock != 0)
		return;

	xm = pse->attrs[pse->xmirror].val.lng;
	sm = pse->attrs[pse->smirror].val.lng;
	pcb_pstk_change_instance(pse->ps,
		NULL,
		&pse->attrs[pse->clearance].val.crd,
		&pse->attrs[pse->rot].val.dbl,
		&xm, &sm);
	pse->attrs[pse->xmirror].val.lng = xm;
	pse->attrs[pse->smirror].val.lng = sm;

	lock++;
	pse_ps2dlg(hid_ctx, pse); /* to get calculated text fields updated */
	lock--;

	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_chg_thermal(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	int thi, wid = attr - pse->attrs;

	for(thi = 0; thi < pse->thermal.len; thi++) {
		if (pse->thermal.wtype[thi] == wid) {
			pcb_pstk_set_thermal(pse->ps, pse->thermal.lid[thi], thermal_bit[attr->val.lng], 1);
			pcb_undo_inc_serial();
			rnd_gui->invalidate_all(rnd_gui);
			return;
		}
	}

	rnd_message(RND_MSG_ERROR, "pse_chg_thermal(): internal error: invalid widget\n");
}

static void pse_chg_prname(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	pcb_pstk_proto_t *proto = pcb_pstk_get_proto(pse->ps);
	static int lock = 0;
	const char *new_name = pse->attrs[pse->prname].val.str;

	if ((lock != 0) || (proto == NULL))
		return;

	if (proto->name == NULL) {
		if ((new_name == NULL) || (*new_name == '\0'))
			return;
	}
	else {
		if (strcmp(proto->name, new_name) == 0)
			return;
	}

	pcb_pstk_proto_change_name(proto, new_name, 1);

	lock++;
	pse_ps2dlg(hid_ctx, pse); /* to get calculated text fields updated */
	lock--;

	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_chg_hole(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	pcb_pstk_proto_t *proto = pcb_pstk_get_proto(pse->ps);
	static int lock = 0;

	if (lock != 0)
		return;

	if (proto != NULL) {
		int hp = pse->attrs[pse->hplated].val.lng, ht = pse->attrs[pse->htop_val].val.lng, hb = pse->attrs[pse->hbot_val].val.lng;
		pcb_pstk_proto_change_hole(proto, &hp, &pse->attrs[pse->hdia].val.crd, &ht, &hb);
		pse->attrs[pse->hplated].val.lng = hp;
		pse->attrs[pse->htop_val].val.lng = ht;
		pse->attrs[pse->hbot_val].val.lng = hb;

		/* make sure the hash and other caches are updated */
		pcb_pstk_proto_update(proto);
	}

	lock++;
	pse_ps2dlg(hid_ctx, pse); /* to get calculated text fields updated */
	lock--;

	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_chg_proto_clr(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	pcb_pstk_proto_t *proto = pcb_pstk_get_proto(pse->ps);
	static int lock = 0;

	if (lock != 0)
		return;

	if (proto != NULL) {
		int n, idx = -1, sidx;
		pcb_opctx_t ctx;

		for(n = 0; n < pcb_proto_num_layers; n++)
			if (pse->proto_clr[n] == (attr - pse->attrs))
				idx = n;
		if (idx < 0) {
			rnd_message(RND_MSG_ERROR, "Can't find shape - clearance unchanged (a)\n");
			return;
		}

		sidx = pcb_pstk_get_shape_idx(&proto->tr.array[0], pcb_proto_layers[idx].mask, pcb_proto_layers[idx].comb);
		if (sidx < 0) {
			rnd_message(RND_MSG_ERROR, "Can't find shape - clearance unchanged (b)\n");
			return;
		}


		pcb_undo_freeze_serial();

		ctx.clip.clear = 0;
		ctx.clip.restore = 1;
		pcb_pstkop_clip(&ctx, pse->ps);

		for(n = 0; n < proto->tr.used; n++)
			pcb_pstk_shape_clr_grow(proto, n, sidx, rnd_true, pse->attrs[pse->proto_clr[idx]].val.crd, 1);

		ctx.clip.clear = 1;
		ctx.clip.restore = 0;
		pcb_pstkop_clip(&ctx, pse->ps);

		/* make sure the hash and other caches are updated */
		pcb_pstk_proto_update(proto);

		pcb_undo_unfreeze_serial();
		pcb_undo_inc_serial();
	}

	lock++;
	pse_ps2dlg(hid_ctx, pse); /* to get calculated text fields updated */
	lock--;

	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_shape_del(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	pcb_pstk_proto_t *proto = pcb_pstk_get_proto(pse->ps);
	pcb_pstk_proto_del_shape(proto, pcb_proto_layers[pse->editing_shape].mask, pcb_proto_layers[pse->editing_shape].comb);

	pse_ps2dlg(pse->parent_hid_ctx, pse);

	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_shape_hshadow(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	pcb_pstk_proto_t *proto = pcb_pstk_get_proto(pse->ps);
	pcb_pstk_proto_del_shape(proto, pcb_proto_layers[pse->editing_shape].mask, pcb_proto_layers[pse->editing_shape].comb);
	pcb_pstk_shape_add_hshadow(proto, pcb_proto_layers[pse->editing_shape].mask, pcb_proto_layers[pse->editing_shape].comb);
	pse_ps2dlg(pse->parent_hid_ctx, pse);

	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_shape_auto(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	int n, src_idx = -1;
	pse_t *pse = caller_data;
	pcb_pstk_proto_t *proto = pcb_pstk_get_proto(pse->ps);
	pcb_pstk_tshape_t *ts = &proto->tr.array[0];
	int dst_idx;
	char src_shape_names[128];
	char *end = src_shape_names;


	if (ts == NULL) {
		rnd_message(RND_MSG_ERROR, "Can't derive shape: no shapes (empty padstack)\n");
		return;
	}

	dst_idx = pcb_pstk_get_shape_idx(ts, pcb_proto_layers[pse->editing_shape].mask, pcb_proto_layers[pse->editing_shape].comb);

	for(n = 0; n < 2; n++) {
		int from = pcb_proto_layers[pse->editing_shape].auto_from[n];
		if (from < 0)
			continue;
		src_idx = pcb_pstk_get_shape_idx(ts, pcb_proto_layers[from].mask, pcb_proto_layers[from].comb);
		if (src_idx >= 0)
			break;
		strcpy(end, pcb_proto_layers[from].name);
		end += strlen(pcb_proto_layers[from].name);
		*end = ',';
		end++;
	}

	if (src_idx < 0) {
		if (end > src_shape_names)
			end--;
		*end = 0;
		rnd_message(RND_MSG_ERROR, "Can't derive shape: source shapes (%s) are empty\n", src_shape_names);
		return;
	}

	pcb_pstk_shape_derive(proto, dst_idx, src_idx, pcb_proto_layers[pse->editing_shape].auto_bloat, pcb_proto_layers[pse->editing_shape].mask, pcb_proto_layers[pse->editing_shape].comb);

	pse_ps2dlg(pse->parent_hid_ctx, pse);
	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_shape_copy(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	pcb_pstk_proto_t *proto = pcb_pstk_get_proto(pse->ps);
	pcb_pstk_tshape_t *ts = &proto->tr.array[0];
	int from = pse->shape_chg[pse->copy_from].val.lng;
	int dst_idx;
	int src_idx;

	if (ts == NULL) {
		rnd_message(RND_MSG_ERROR, "Can't copy shape: no such source shape (empty padstack)\n");
		return;
	}

	dst_idx = pcb_pstk_get_shape_idx(ts, pcb_proto_layers[pse->editing_shape].mask, pcb_proto_layers[pse->editing_shape].comb);
	src_idx = pcb_pstk_get_shape_idx(ts, pcb_proto_layers[from].mask, pcb_proto_layers[from].comb);

	if (src_idx < 0) {
		rnd_message(RND_MSG_ERROR, "Can't copy shape: source shape (%s) is empty\n", pcb_proto_layers[from].name);
		return;
	}

	if (src_idx == dst_idx) {
		rnd_message(RND_MSG_ERROR, "Can't copy shape: source shape and destination shape are the same layer type\n");
		return;
	}

	pcb_pstk_shape_derive(proto, dst_idx, src_idx, 0, pcb_proto_layers[pse->editing_shape].mask, pcb_proto_layers[pse->editing_shape].comb);

	pse_ps2dlg(pse->parent_hid_ctx, pse);
	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_shape_swap(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	pcb_pstk_proto_t *proto = pcb_pstk_get_proto(pse->ps);
	pcb_pstk_tshape_t *ts = &proto->tr.array[0];
	int from = pse->shape_chg[pse->copy_from].val.lng;
	int dst_idx;
	int src_idx;

	if (ts == NULL) {
		rnd_message(RND_MSG_ERROR, "Can't swap shape: no such shapes (empty padstack)\n");
		return;
	}

	dst_idx = pcb_pstk_get_shape_idx(ts, pcb_proto_layers[pse->editing_shape].mask, pcb_proto_layers[pse->editing_shape].comb);
	src_idx = pcb_pstk_get_shape_idx(ts, pcb_proto_layers[from].mask, pcb_proto_layers[from].comb);

	if (src_idx < 0) {
		rnd_message(RND_MSG_ERROR, "Can't swap shape: source shape (%s) is empty\n", pcb_proto_layers[from].name);
		return;
	}

	if (src_idx == dst_idx) {
		rnd_message(RND_MSG_ERROR, "Can't swap shape: source shape and destination shape are the same layer type\n");
		return;
	}

	pcb_pstk_shape_swap_layer(proto, dst_idx, src_idx);

	pse_ps2dlg(pse->parent_hid_ctx, pse);
	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}


static void pse_shape_bloat(void *hid_ctx, void *caller_data, rnd_coord_t sign)
{
	pse_t *pse = caller_data;
	pcb_pstk_proto_t *proto = pcb_pstk_get_proto(pse->ps);
	pcb_pstk_tshape_t *ts = &proto->tr.array[0];
	int n, dst_idx = pcb_pstk_get_shape_idx(ts, pcb_proto_layers[pse->editing_shape].mask, pcb_proto_layers[pse->editing_shape].comb);
	rnd_coord_t bloat = pse->shape_chg[pse->amount].val.crd;

	if (bloat <= 0)
		return;

	if (dst_idx < 0) {
		rnd_message(RND_MSG_ERROR, "Can't copy shape: source shape (%s) is empty\n", pcb_proto_layers[pse->editing_shape].name);
		return;
	}

	pcb_undo_freeze_serial();

	if (sign == 0) {
		for(n = 0; n < proto->tr.used; n++)
			pcb_pstk_shape_grow(proto, n, dst_idx, rnd_true, bloat, 1);
	}
	else {
		bloat *= sign;
		for(n = 0; n < proto->tr.used; n++)
			pcb_pstk_shape_grow(proto, n, dst_idx, rnd_false, bloat, 1);
	}

	pcb_undo_unfreeze_serial();
	pcb_undo_inc_serial();

	pcb_pstk_proto_update(proto);

	pse_ps2dlg(pse->parent_hid_ctx, pse);
	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

static void pse_shape_shrink(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_shape_bloat(hid_ctx, caller_data, -1);
}

static void pse_shape_grow(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_shape_bloat(hid_ctx, caller_data, +1);
}

static void pse_shape_setsize(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_shape_bloat(hid_ctx, caller_data, 0);
}

static void pse_chg_shape(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	pse_t *pse = caller_data;
	int n;
	char tmp[256];
	const char *copy_from_names[pcb_proto_num_layers+1];
	rnd_hid_dad_buttons_t clbtn[] = {{"Close", 0}, {NULL, 0}};
	RND_DAD_DECL(dlg);

	pse->parent_hid_ctx = hid_ctx;

	for(n = 0; n < pcb_proto_num_layers; n++)
		copy_from_names[n] = pcb_proto_layers[n].name;
	copy_from_names[n] = NULL;

	pse->editing_shape = -1;
	for(n = 0; n < pcb_proto_num_layers; n++) {
		if (pse->proto_change[n] == (attr - pse->attrs)) {
			pse->editing_shape = n;
			break;
		}
	}

	RND_DAD_BEGIN_VBOX(dlg);
		sprintf(tmp, "Automatically generate shape for ...");
		RND_DAD_LABEL(dlg, tmp);
		RND_DAD_LABEL(dlg, "");
			pse->text_shape = RND_DAD_CURRENT(dlg);
		RND_DAD_BUTTON(dlg, "Delete (no shape)");
			pse->del = RND_DAD_CURRENT(dlg);
			RND_DAD_CHANGE_CB(dlg, pse_shape_del);
			RND_DAD_HELP(dlg, "Remove the shape from this layer type");
		RND_DAD_BUTTON(dlg, "Replace shape with hshadow");
			pse->hshadow = RND_DAD_CURRENT(dlg);
			RND_DAD_CHANGE_CB(dlg, pse_shape_hshadow);
			RND_DAD_HELP(dlg, "Set shape to hshadow on this layer type\n(invisible shape with the same\ngeometry as the hole or slot, for proper clearance)");
		RND_DAD_BUTTON(dlg, "Derive automatically");
			pse->derive = RND_DAD_CURRENT(dlg);
			RND_DAD_CHANGE_CB(dlg, pse_shape_auto);
			RND_DAD_HELP(dlg, "Derive the shape for this layer type\nfrom other, existing shapes of this padstack\n(automatic)");
		RND_DAD_BEGIN_HBOX(dlg);
			RND_DAD_BEGIN_VBOX(dlg);
				RND_DAD_BUTTON(dlg, "Copy shape from");
					pse->copy_do = RND_DAD_CURRENT(dlg);
					RND_DAD_CHANGE_CB(dlg, pse_shape_copy);
					RND_DAD_HELP(dlg, "Copy the shape for this layer type\nfrom other, existing shapes of this padstack\nfrom the layer type selected");
				RND_DAD_BUTTON(dlg, "Swap shape with");
					pse->copy_do = RND_DAD_CURRENT(dlg);
					RND_DAD_CHANGE_CB(dlg, pse_shape_swap);
					RND_DAD_HELP(dlg, "Swap the shape for this layer type\nwith another, existing shapes of this padstack\nfrom the layer type selected");
					RND_DAD_HELP(dlg, "Select the other layer type for swapping shape");
			RND_DAD_END(dlg);
			RND_DAD_ENUM(dlg, copy_from_names); /* coposite */
				pse->copy_from = RND_DAD_CURRENT(dlg);
				RND_DAD_HELP(dlg, "Select the source layer type for\nmanual shape copy or shape swap");
		RND_DAD_END(dlg);

		RND_DAD_BEGIN_HBOX(dlg);
			RND_DAD_BUTTON(dlg, "Shrink");
				pse->shrink = RND_DAD_CURRENT(dlg);
				RND_DAD_CHANGE_CB(dlg, pse_shape_shrink);
				RND_DAD_HELP(dlg, "Make the shape smaller by the selected amount");
			RND_DAD_COORD(dlg);
				pse->amount = RND_DAD_CURRENT(dlg);
				RND_DAD_MINMAX(dlg, 1, RND_MM_TO_COORD(100));
			RND_DAD_BUTTON(dlg, "Grow");
				pse->grow = RND_DAD_CURRENT(dlg);
				RND_DAD_CHANGE_CB(dlg, pse_shape_grow);
				RND_DAD_HELP(dlg, "Make the shape larger by the selected amount");
			RND_DAD_BUTTON(dlg, "Set");
				pse->grow = RND_DAD_CURRENT(dlg);
				RND_DAD_CHANGE_CB(dlg, pse_shape_setsize);
				RND_DAD_HELP(dlg, "Set shape size to absolute value; this means, per shape:\nline - set thickness\ncircle - set diameter\npolygon - set the biggest edge distance (\"set longer side\")");
		RND_DAD_END(dlg);
		RND_DAD_BUTTON_CLOSES(dlg, clbtn);
	RND_DAD_END(dlg);

	RND_DAD_NEW("padstack_shape", dlg, "Edit padstack shape", pse, rnd_true, NULL);
	pse->shape_chg = dlg;

/*	pse_ps2dlg(dlg_hid_ctx, pse);*/
	RND_DAD_RUN(dlg);

	pse->shape_chg = NULL;
	RND_DAD_FREE(dlg);
	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

/* Auto gen shape on a single layer */
static int pse_gen_shape(pcb_pstk_tshape_t *ts, pcb_layer_type_t lyt, int shape, rnd_coord_t size)
{
	int idx = ts->len;

	if (size <= 0) {
		rnd_message(RND_MSG_ERROR, "Invalid size - has to be larger than 0\n");
		return -1;
	}

	ts->len++;
	ts->shape = realloc(ts->shape, ts->len * sizeof(pcb_pstk_shape_t));

	ts->shape[idx].layer_mask = lyt;
	ts->shape[idx].comb = 0;
	ts->shape[idx].clearance = 0;

	switch(shape) {
		case 0:
			ts->shape[idx].shape = PCB_PSSH_CIRC;
			ts->shape[idx].data.circ.x = ts->shape[idx].data.circ.y = 0;
			ts->shape[idx].data.circ.dia = size;
			break;
		case 1:
			ts->shape[idx].shape = PCB_PSSH_POLY;
			pcb_pstk_shape_alloc_poly(&ts->shape[idx].data.poly, 4);
			ts->shape[idx].data.poly.x[0] = -size/2;
			ts->shape[idx].data.poly.y[0] = -size/2;
			ts->shape[idx].data.poly.x[1] = ts->shape[idx].data.poly.x[0];
			ts->shape[idx].data.poly.y[1] = ts->shape[idx].data.poly.y[0] + size;
			ts->shape[idx].data.poly.x[2] = ts->shape[idx].data.poly.x[0] + size;
			ts->shape[idx].data.poly.y[2] = ts->shape[idx].data.poly.y[0] + size;
			ts->shape[idx].data.poly.x[3] = ts->shape[idx].data.poly.x[0] + size;
			ts->shape[idx].data.poly.y[3] = ts->shape[idx].data.poly.y[0];
			break;
	}
	return 0;
}

/* Auto derive shape from the related copper layer */
static void pse_drv_shape(pcb_pstk_proto_t *proto, pcb_pstk_tshape_t *ts, pcb_layer_type_t lyt, int paste)
{
	int srci = (lyt & PCB_LYT_TOP) ? 0 : 1;
	if (srci >= proto->tr.array[0].len) srci--;
	if ((srci < 0) || (srci >= proto->tr.array[0].len)) return;
	pcb_pstk_shape_derive(proto, -1, srci, PCB_PROTO_MASK_BLOAT, lyt | PCB_LYT_MASK, PCB_LYC_SUB|PCB_LYC_AUTO);
	if (paste)
		pcb_pstk_shape_derive(proto, -1, srci, 0, lyt | PCB_LYT_PASTE, PCB_LYC_AUTO);
}

/* Auto gen shapes for all layers the user selected on the dialog plus add the hole */
static void pse_gen(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	int err = 0;
	pse_t *pse = caller_data;
	pcb_pstk_proto_t proto;
	int sides = pse->attrs[pse->gen_sides].val.lng;
	int shape = pse->attrs[pse->gen_shp].val.lng;
	int expose = pse->attrs[pse->gen_expose].val.lng;
	int paste = pse->attrs[pse->gen_paste].val.lng;
	rnd_coord_t size = pse->attrs[pse->gen_size].val.crd;
	pcb_layer_type_t lyt = sides_lyt[sides];
	pcb_pstk_tshape_t *ts;
	rnd_cardinal_t pid;

	memset(&proto, 0, sizeof(proto));

	ts = pcb_vtpadstack_tshape_alloc_append(&proto.tr, 1);
	ts->rot = 0.0;
	ts->xmirror = 0;
	ts->smirror = 0;
	ts->len = 0;

	if (lyt & PCB_LYT_TOP)     err |= pse_gen_shape(ts, PCB_LYT_COPPER | PCB_LYT_TOP, shape, size);
	if (lyt & PCB_LYT_BOTTOM)  err |= pse_gen_shape(ts, PCB_LYT_COPPER | PCB_LYT_BOTTOM, shape, size);
	if (lyt & PCB_LYT_INTERN)  err |= pse_gen_shape(ts, PCB_LYT_COPPER | PCB_LYT_INTERN, shape, size);
	if (err)
		return;
	if (expose) {
		if (lyt & PCB_LYT_TOP)    pse_drv_shape(&proto, ts, PCB_LYT_TOP, paste);
		if (lyt & PCB_LYT_BOTTOM) pse_drv_shape(&proto, ts, PCB_LYT_BOTTOM, paste);
	}

	proto.hdia = pse->attrs[pse->gen_drill].val.crd;
	proto.hplated = 1;

	pcb_pstk_proto_update(&proto);
	if (pse->gen_shape_in_place) {
		if (pcb_pstk_proto_replace(pse->data, pse->ps->proto, &proto) == PCB_PADSTACK_INVALID)
			rnd_message(RND_MSG_ERROR, "Internal error: pse_gen() failed to raplace padstack prototype\n");
	}
	else {
		pid = pcb_pstk_proto_insert_dup(pse->data, &proto, 1, 1);
		if (pid == PCB_PADSTACK_INVALID)
			rnd_message(RND_MSG_ERROR, "Internal error: pse_gen() failed to insert padstack prototype\n");
		else
			pcb_pstk_change_instance(pse->ps, &pid, NULL, NULL, NULL, NULL);
	}

	pse_ps2dlg(hid_ctx, pse);
	RND_DAD_SET_VALUE(hid_ctx, pse->tab, lng, 1); /* switch to the prototype view where the new attributes are visible */
	pse_changed(pse);
	rnd_gui->invalidate_all(rnd_gui);
}

#define spring(dlg) \
	RND_DAD_BEGIN_VBOX(dlg); \
		RND_DAD_COMPFLAG(dlg, RND_HATF_EXPFILL); \
	RND_DAD_END(dlg);

void pcb_pstkedit_dialog(pse_t *pse, int target_tab)
{
	int n;
	const char *tabs[] = { "this instance", "prototype", "generate common geometry", NULL };
	rnd_hid_dad_buttons_t clbtn[] = {{"Close", 0}, {NULL, 0}};
	RND_DAD_DECL(dlg);

	pse->disable_instance_tab = !!pse->disable_instance_tab;
	target_tab -= pse->disable_instance_tab;

	RND_DAD_BEGIN_VBOX(dlg);
		RND_DAD_COMPFLAG(dlg, RND_HATF_EXPFILL);
		RND_DAD_BEGIN_TABBED(dlg, tabs + pse->disable_instance_tab);
			pse->tab = RND_DAD_CURRENT(dlg);

			if (!pse->disable_instance_tab) {
				/* Tab 0: this instance */
				RND_DAD_BEGIN_VBOX(dlg);
					RND_DAD_COMPFLAG(dlg, RND_HATF_EXPFILL);
					RND_DAD_BEGIN_VBOX(dlg); /* upper frame: instance settings */
						RND_DAD_COMPFLAG(dlg, RND_HATF_FRAME);
						RND_DAD_LABEL(dlg, "Settings that affect only this padstack instance");
						RND_DAD_BEGIN_HBOX(dlg);
							RND_DAD_LABEL(dlg, "prototype");
							RND_DAD_BUTTON(dlg, "#5");
								pse->proto_id = RND_DAD_CURRENT(dlg);
								RND_DAD_CHANGE_CB(dlg, pse_chg_protoid);
								RND_DAD_HELP(dlg, "Padstack prototype ID\n(click to use a different prototype)");
							RND_DAD_BUTTON(dlg, "Duplicate");
								RND_DAD_HELP(dlg, "Copy padstack prototype to create a new prototype\nfor this padstack instance. Changes to the new\nprototype will not affect other users of the\noriginal prototye.");
								RND_DAD_CHANGE_CB(dlg, pse_chg_protodup);
						RND_DAD_END(dlg);
						RND_DAD_BEGIN_TABLE(dlg, 2);
							RND_DAD_LABEL(dlg, "Clearance");
							RND_DAD_COORD(dlg);
								pse->clearance = RND_DAD_CURRENT(dlg);
								RND_DAD_MINVAL(dlg, 0);
								RND_DAD_MAXVAL(dlg, RND_MM_TO_COORD(1000));
								RND_DAD_CHANGE_CB(dlg, pse_chg_instance);
								RND_DAD_HELP(dlg, "global clearance (affects all layers)");
							RND_DAD_LABEL(dlg, "Rotation");
							RND_DAD_REAL(dlg);
								pse->rot = RND_DAD_CURRENT(dlg);
								RND_DAD_MINVAL(dlg, 0);
								RND_DAD_MAXVAL(dlg, 360);
								RND_DAD_CHANGE_CB(dlg, pse_chg_instance);
							RND_DAD_LABEL(dlg, "X-mirror");
							RND_DAD_BOOL(dlg);
								pse->xmirror = RND_DAD_CURRENT(dlg);
								RND_DAD_CHANGE_CB(dlg, pse_chg_instance);
							RND_DAD_LABEL(dlg, "S-mirror");
							RND_DAD_BOOL(dlg);
								pse->smirror = RND_DAD_CURRENT(dlg);
								RND_DAD_CHANGE_CB(dlg, pse_chg_instance);
						RND_DAD_END(dlg);
					RND_DAD_END(dlg);
					RND_DAD_BEGIN_VBOX(dlg); /* lower frame: thermals */
						RND_DAD_COMPFLAG(dlg, RND_HATF_EXPFILL | RND_HATF_SCROLL);
						RND_DAD_LABEL(dlg, "Thermals per layer");
						RND_DAD_BEGIN_TABLE(dlg, 2);
						{
							rnd_layergrp_id_t gid;
							pse->thermal.len = 0;
							for(gid = 0; gid < pse->pcb->LayerGroups.len; gid++) {
								pcb_layergrp_t *g = &pse->pcb->LayerGroups.grp[gid];
								if (!(g->ltype & PCB_LYT_COPPER))
									continue;
								for(n = 0; n < g->len; n++) {
									pcb_layer_t *ly = pcb_get_layer(pse->pcb->Data, g->lid[n]);
									if (ly == NULL)
										continue;
									RND_DAD_LABEL(dlg, ly->name);
									pse->thermal.lid[pse->thermal.len] = g->lid[n];
									RND_DAD_BEGIN_HBOX(dlg);
										RND_DAD_ENUM(dlg, thermal_type);
										pse->thermal.wtype[pse->thermal.len] = RND_DAD_CURRENT(dlg);
										RND_DAD_CHANGE_CB(dlg, pse_chg_thermal);
									RND_DAD_END(dlg);
									pse->thermal.len++;
								}
							}
						}
						RND_DAD_END(dlg);
					RND_DAD_END(dlg);
				RND_DAD_END(dlg);
			}

			/* Tab 1: prototype */
			RND_DAD_BEGIN_VBOX(dlg);
				RND_DAD_BEGIN_VBOX(dlg);

					RND_DAD_BEGIN_HBOX(dlg);
						RND_DAD_COMPFLAG(dlg, RND_HATF_EXPFILL);
						RND_DAD_LABEL(dlg, "Geometry of all padstacks with this proto");
						RND_DAD_LABEL(dlg, "[SMIRROR]");
							RND_DAD_HELP(dlg, "The layer stack of this specific padstack is mirrored.\nEditing the prototype will have mirrored effect,\ne.g. editing top side will affect the bottom side\nof this padstack instance.");
							pse->prsmirror = RND_DAD_CURRENT(dlg);
						spring(dlg);
						RND_DAD_BEGIN_HBOX(dlg);
							RND_DAD_COMPFLAG(dlg, RND_HATF_FRAME);
							RND_DAD_LABEL(dlg, "Prototype name:");
							RND_DAD_STRING(dlg);
								RND_DAD_CHANGE_CB(dlg, pse_chg_prname);
								pse->prname = RND_DAD_CURRENT(dlg);
						RND_DAD_END(dlg);
					RND_DAD_END(dlg);

					RND_DAD_COMPFLAG(dlg, RND_HATF_FRAME);
					RND_DAD_BEGIN_TABLE(dlg, 3);
						RND_DAD_COMPFLAG(dlg, RND_HATF_FRAME);

						/* header */
						RND_DAD_LABEL(dlg, "Per layer-type shape");
						RND_DAD_LABEL(dlg, "Shape geometry");
						RND_DAD_BEGIN_HBOX(dlg);
							RND_DAD_LABEL(dlg, "Change shape");
							spring(dlg);
							RND_DAD_LABEL(dlg, "Local clearance");
						RND_DAD_END(dlg);

						/* content */
						for(n = 0; n < pcb_proto_num_layers; n++) {
							const char *layname = pcb_proto_layers[n].name;
							char *layname_tmp = NULL;
							char *help = NULL;

							if (pcb_proto_board_layer_for(PCB->Data, pcb_proto_layers[n].mask, pcb_proto_layers[n].comb) == -1) {
								layname = layname_tmp = rnd_strdup_printf("(%s)", pcb_proto_layers[n].name);
								help = "No board layer available for this layer type.\nThis shape will not show on the board\nuntil the corresponding layer in the matching layer group type is created.";
							}

							/* col 1 */
							RND_DAD_LABEL(dlg, layname);
								if (help != NULL)
									RND_DAD_HELP(dlg, help);

							/* col 2 */
							RND_DAD_BEGIN_HBOX(dlg);
								RND_DAD_LABEL(dlg, "-");
									pse->proto_shape[n] = RND_DAD_CURRENT(dlg);
								RND_DAD_LABEL(dlg, "    ");
								RND_DAD_LABEL(dlg, "-");
									pse->proto_info[n] = RND_DAD_CURRENT(dlg);
								RND_DAD_BEGIN_VBOX(dlg);
									RND_DAD_COMPFLAG(dlg, RND_HATF_EXPFILL | RND_HATF_TIGHT);
								RND_DAD_END(dlg);
							RND_DAD_END(dlg);

							/* col 3 */
							RND_DAD_BEGIN_HBOX(dlg);
								RND_DAD_BUTTON(dlg, "Change");
									pse->proto_change[n] = RND_DAD_CURRENT(dlg);
									RND_DAD_CHANGE_CB(dlg, pse_chg_shape);
									RND_DAD_HELP(dlg, "Change the shape on this layer type");
								RND_DAD_LABEL(dlg, "      ");
								RND_DAD_COORD(dlg);
									pse->proto_clr[n] = RND_DAD_CURRENT(dlg);
									RND_DAD_MINVAL(dlg, 1);
									RND_DAD_MAXVAL(dlg, RND_MM_TO_COORD(1000));
									RND_DAD_CHANGE_CB(dlg, pse_chg_proto_clr);
									RND_DAD_WIDTH_CHR(dlg, 8);
									RND_DAD_HELP(dlg, "local, per layer type clearance\n(only when global padstack clearance is 0)");
								free(layname_tmp);
							RND_DAD_END(dlg);
						}
					RND_DAD_END(dlg);


					RND_DAD_BEGIN_HBOX(dlg);
						RND_DAD_LABEL(dlg, "Hole properties:");
							pse->hole_header = RND_DAD_CURRENT(dlg);
						spring(dlg);
						RND_DAD_LABEL(dlg, "Hole diameter:");
						RND_DAD_COORD(dlg);
							pse->hdia = RND_DAD_CURRENT(dlg);
							RND_DAD_MINVAL(dlg, 0);
							RND_DAD_MAXVAL(dlg, RND_MM_TO_COORD(1000));
							RND_DAD_CHANGE_CB(dlg, pse_chg_hole);
							RND_DAD_WIDTH_CHR(dlg, 10);
						spring(dlg);
						RND_DAD_LABEL(dlg, "Hole/slot plating:");
						RND_DAD_BOOL(dlg);
							pse->hplated = RND_DAD_CURRENT(dlg);
							RND_DAD_CHANGE_CB(dlg, pse_chg_hole);
							RND_DAD_HELP(dlg, "A plated hole galvanically connects layers");

					RND_DAD_END(dlg);

					RND_DAD_BEGIN_TABLE(dlg, 4);
						/* table row 1 */
						RND_DAD_LABEL(dlg, "Hole/slot top:");
						RND_DAD_INTEGER(dlg);
							pse->htop_val = RND_DAD_CURRENT(dlg);
							RND_DAD_MINVAL(dlg, -(pse->pcb->LayerGroups.cache.copper_len-1));
							RND_DAD_MAXVAL(dlg, pse->pcb->LayerGroups.cache.copper_len-1);
							RND_DAD_CHANGE_CB(dlg, pse_chg_hole);
							RND_DAD_HELP(dlg, "Blind/buried via/slot: top end of the hole");
							RND_DAD_WIDTH_CHR(dlg, 6);
						RND_DAD_LABEL(dlg, "<text>");
							pse->htop_text = RND_DAD_CURRENT(dlg);
						RND_DAD_LABEL(dlg, "<layer>");
							pse->htop_layer = RND_DAD_CURRENT(dlg);

						/* table row 2 */
						RND_DAD_LABEL(dlg, "Hole/slot bottom:");
						RND_DAD_INTEGER(dlg);
							pse->hbot_val = RND_DAD_CURRENT(dlg);
							RND_DAD_MINVAL(dlg, -(pse->pcb->LayerGroups.cache.copper_len-1));
							RND_DAD_MAXVAL(dlg, pse->pcb->LayerGroups.cache.copper_len-1);
							RND_DAD_CHANGE_CB(dlg, pse_chg_hole);
							RND_DAD_HELP(dlg, "Blind/buried via/slot: bottom end of the hole");
							RND_DAD_WIDTH_CHR(dlg, 6);
						RND_DAD_LABEL(dlg, "<text>");
							pse->hbot_text = RND_DAD_CURRENT(dlg);
						RND_DAD_LABEL(dlg, "<layer>");
							pse->hbot_layer = RND_DAD_CURRENT(dlg);

					RND_DAD_END(dlg);
				RND_DAD_END(dlg);
			RND_DAD_END(dlg);

			/* Tab 2: generate common geometry */
			RND_DAD_BEGIN_VBOX(dlg);
				RND_DAD_BEGIN_VBOX(dlg);
					RND_DAD_LABEL(dlg, "Generate a new prototype using a few numeric input");

					RND_DAD_BEGIN_TABLE(dlg, 2);
						RND_DAD_LABEL(dlg, "Copper shape:");
						RND_DAD_ENUM(dlg, shapes);
							pse->gen_shp = RND_DAD_CURRENT(dlg);

						RND_DAD_LABEL(dlg, "Size (circle diameter or square side):");
						RND_DAD_COORD(dlg);
							pse->gen_size = RND_DAD_CURRENT(dlg);
							RND_DAD_MINVAL(dlg, 1);
							RND_DAD_MAXVAL(dlg, RND_MM_TO_COORD(1000));

						RND_DAD_LABEL(dlg, "Drill diameter (0 means no hole):");
						RND_DAD_COORD(dlg);
							pse->gen_drill = RND_DAD_CURRENT(dlg);
							RND_DAD_MINVAL(dlg, 1);
							RND_DAD_MAXVAL(dlg, RND_MM_TO_COORD(1000));

						RND_DAD_LABEL(dlg, "Copper shapes on:");
						RND_DAD_ENUM(dlg, sides);
							pse->gen_sides = RND_DAD_CURRENT(dlg);

						RND_DAD_LABEL(dlg, "Expose top/bottom copper:");
						RND_DAD_BOOL(dlg);
							pse->gen_expose = RND_DAD_CURRENT(dlg);

						RND_DAD_LABEL(dlg, "Paste exposed copper:");
						RND_DAD_BOOL(dlg);
							pse->gen_paste = RND_DAD_CURRENT(dlg);

						RND_DAD_LABEL(dlg, "");
						RND_DAD_BUTTON(dlg, "Generate!");
							pse->gen_do = RND_DAD_CURRENT(dlg);
							RND_DAD_CHANGE_CB(dlg, pse_gen);
					RND_DAD_END(dlg);
				RND_DAD_END(dlg);
			RND_DAD_END(dlg);
		RND_DAD_END(dlg);
		RND_DAD_BUTTON_CLOSES(dlg, clbtn);
	RND_DAD_END(dlg);

	RND_DAD_NEW("padstack", dlg, "Edit padstack", pse, rnd_true, NULL);
	pse->attrs = dlg;
	pse_ps2dlg(dlg_hid_ctx, pse);
	if (target_tab > 0)
		RND_DAD_SET_VALUE(dlg_hid_ctx, pse->tab, lng, target_tab);
	RND_DAD_RUN(dlg);

	free((char *)pse->attrs[pse->prname].val.str);

	RND_DAD_FREE(dlg);
}

const char pcb_acts_PadstackEdit[] = "PadstackEdit(object, [tab])\n";
const char pcb_acth_PadstackEdit[] = "interactive pad stack editor";
fgw_error_t pcb_act_PadstackEdit(fgw_arg_t *res, int argc, fgw_arg_t *argv)
{
	int op = F_Object, target_tab = -1;
	pse_t pse;

	memset(&pse, 0, sizeof(pse));

	RND_ACT_MAY_CONVARG(1, FGW_KEYWORD, PadstackEdit, op = fgw_keyword(&argv[1]));
	RND_ACT_MAY_CONVARG(2, FGW_INT, PadstackEdit, target_tab = argv[2].val.nat_int);
	RND_ACT_IRES(0);

	if (op == F_Object) {
		rnd_coord_t x, y;
		void *ptr1, *ptr2 = NULL, *ptr3;
		long type;
		rnd_hid_get_coords("Click on a padstack to edit", &x, &y, 0);
		type = pcb_search_screen(x, y, PCB_OBJ_PSTK | PCB_OBJ_SUBC_PART | PCB_LOOSE_SUBC(PCB), &ptr1, &ptr2, &ptr3);
		if (type != PCB_OBJ_PSTK) {
			rnd_message(RND_MSG_ERROR, "Need a padstack.\n");
			RND_ACT_IRES(1);
			return 0;
		}
		pse.ps = ptr2;
	}
	else
		RND_ACT_FAIL(PadstackEdit);

	pse.pcb = pcb_data_get_top(pse.ps->parent.data);
	if (pse.pcb == NULL)
		pse.pcb = PCB;

	pse.data = pse.ps->parent.data;
	assert(pse.ps->parent_type == PCB_PARENT_DATA);

	pcb_pstkedit_dialog(&pse, target_tab);

	RND_ACT_IRES(0);
	return 0;
}