interface_regions.c

Go to the documentation of this file.

/*
 * ***** BEGIN GPL LICENSE BLOCK *****
 *
 * 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.
 *
 * The Original Code is Copyright (C) 2008 Blender Foundation.
 * All rights reserved.
 * 
 * Contributor(s): Blender Foundation
 *
 * ***** END GPL LICENSE BLOCK *****
 */

#include <stdarg.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>

#include "MEM_guardedalloc.h"

#include "DNA_userdef_types.h"

#include "BLI_math.h"
#include "BLI_blenlib.h"
#include "BLI_utildefines.h"
#include "BLI_dynstr.h"
#include "BLI_ghash.h"

#include "BKE_context.h"
#include "BKE_screen.h"

#include "WM_api.h"
#include "WM_types.h"
#include "wm_draw.h"
#include "wm_subwindow.h"
#include "wm_window.h"

#include "RNA_access.h"

#include "BIF_gl.h"

#include "UI_interface.h"
#include "UI_interface_icons.h"
#include "UI_view2d.h"

#include "BLF_api.h"

#include "ED_screen.h"

#include "interface_intern.h"

#define MENU_SEPR_HEIGHT        6
#define B_NOP                   -1
#define MENU_SHADOW_SIDE        8
#define MENU_SHADOW_BOTTOM      10
#define MENU_TOP                        8

/*********************** Menu Data Parsing ********************* */

typedef struct MenuEntry {
        const char *str;
        int retval;
        int icon;
        int sepr;
} MenuEntry;

typedef struct MenuData {
        char *instr;
        const char *title;
        int titleicon;
        
        MenuEntry *items;
        int nitems, itemssize;
} MenuData;

static MenuData *menudata_new(char *instr)
{
        MenuData *md= MEM_mallocN(sizeof(*md), "MenuData");

        md->instr= instr;
        md->title= NULL;
        md->titleicon= 0;
        md->items= NULL;
        md->nitems= md->itemssize= 0;
        
        return md;
}

static void menudata_set_title(MenuData *md, const char *title, int titleicon)
{
        if (!md->title)
                md->title= title;
        if (!md->titleicon)
                md->titleicon= titleicon;
}

static void menudata_add_item(MenuData *md, const char *str, int retval, int icon, int sepr)
{
        if (md->nitems==md->itemssize) {
                int nsize= md->itemssize?(md->itemssize<<1):1;
                MenuEntry *oitems= md->items;
                
                md->items= MEM_mallocN(nsize*sizeof(*md->items), "md->items");
                if (oitems) {
                        memcpy(md->items, oitems, md->nitems*sizeof(*md->items));
                        MEM_freeN(oitems);
                }
                
                md->itemssize= nsize;
        }
        
        md->items[md->nitems].str= str;
        md->items[md->nitems].retval= retval;
        md->items[md->nitems].icon= icon;
        md->items[md->nitems].sepr= sepr;
        md->nitems++;
}

static void menudata_free(MenuData *md)
{
        MEM_freeN(md->instr);
        if (md->items)
                MEM_freeN(md->items);
        MEM_freeN(md);
}

static MenuData *decompose_menu_string(char *str) 
{
        char *instr= BLI_strdup(str);
        MenuData *md= menudata_new(instr);
        const char *nitem= NULL;
        char *s= instr;
        int nicon=0, nretval= 1, nitem_is_title= 0, nitem_is_sepr= 0;
        
        while (1) {
                char c= *s;

                if (c=='%') {
                        if (s[1]=='x') {
                                nretval= atoi(s+2);

                                *s= '\0';
                                s++;
                        } else if (s[1]=='t') {
                                nitem_is_title= 1;

                                *s= '\0';
                                s++;
                        } else if (s[1]=='l') {
                                nitem_is_sepr= 1;
                                if(!nitem) nitem= "";

                                *s= '\0';
                                s++;
                        } else if (s[1]=='i') {
                                nicon= atoi(s+2);
                                
                                *s= '\0';
                                s++;
                        }
                } else if (c=='|' || c == '\n' || c=='\0') {
                        if (nitem) {
                                *s= '\0';

                                if(nitem_is_title) {
                                        menudata_set_title(md, nitem, nicon);
                                        nitem_is_title= 0;
                                }
                                else if(nitem_is_sepr) {
                                        /* prevent separator to get a value */
                                        menudata_add_item(md, nitem, -1, nicon, 1);
                                        nretval= md->nitems+1;
                                        nitem_is_sepr= 0;
                                }
                                else {
                                        menudata_add_item(md, nitem, nretval, nicon, 0);
                                        nretval= md->nitems+1;
                                } 
                                
                                nitem= NULL;
                                nicon= 0;
                        }
                        
                        if (c=='\0')
                                break;
                } else if (!nitem)
                        nitem= s;
                
                s++;
        }
        
        return md;
}

void ui_set_name_menu(uiBut *but, int value)
{
        MenuData *md;
        int i;
        
        md= decompose_menu_string(but->str);
        for (i=0; i<md->nitems; i++)
                if (md->items[i].retval==value)
                        strcpy(but->drawstr, md->items[i].str);
        
        menudata_free(md);
}

int ui_step_name_menu(uiBut *but, int step)
{
        MenuData *md;
        int value= ui_get_but_val(but);
        int i;
        
        md= decompose_menu_string(but->str);
        for (i=0; i<md->nitems; i++)
                if (md->items[i].retval==value)
                        break;
        
        if(step==1) {
                /* skip separators */
                for(; i<md->nitems-1; i++) {
                        if(md->items[i+1].retval != -1) {
                                value= md->items[i+1].retval;
                                break;
                        }
                }
        }
        else {
                if(i>0) {
                        /* skip separators */
                        for(; i>0; i--) {
                                if(md->items[i-1].retval != -1) {
                                        value= md->items[i-1].retval;
                                        break;
                                }
                        }
                }
        }
        
        menudata_free(md);
                
        return value;
}


/******************** Creating Temporary regions ******************/

static ARegion *ui_add_temporary_region(bScreen *sc)
{
        ARegion *ar;

        ar= MEM_callocN(sizeof(ARegion), "area region");
        BLI_addtail(&sc->regionbase, ar);

        ar->regiontype= RGN_TYPE_TEMPORARY;
        ar->alignment= RGN_ALIGN_FLOAT;

        return ar;
}

static void ui_remove_temporary_region(bContext *C, bScreen *sc, ARegion *ar)
{
        if(CTX_wm_window(C))
                wm_draw_region_clear(CTX_wm_window(C), ar);

        ED_region_exit(C, ar);
        BKE_area_region_free(NULL, ar);         /* NULL: no spacetype */
        BLI_freelinkN(&sc->regionbase, ar);
}

/************************* Creating Tooltips **********************/

#define MAX_TOOLTIP_LINES 8

typedef struct uiTooltipData {
        rcti bbox;
        uiFontStyle fstyle;
        char lines[MAX_TOOLTIP_LINES][512];
        unsigned int color[MAX_TOOLTIP_LINES];
        int totline;
        int toth, spaceh, lineh;
} uiTooltipData;

static void ui_tooltip_region_draw_cb(const bContext *UNUSED(C), ARegion *ar)
{
        uiTooltipData *data= ar->regiondata;
        rcti bbox= data->bbox;
        int a;
        
        ui_draw_menu_back(U.uistyles.first, NULL, &data->bbox);
        
        /* draw text */
        uiStyleFontSet(&data->fstyle);

        bbox.ymax= bbox.ymax - 0.5f*((bbox.ymax - bbox.ymin) - data->toth);
        bbox.ymin= bbox.ymax - data->lineh;

        for(a=0; a<data->totline; a++) {
                cpack(data->color[a]);
                uiStyleFontDraw(&data->fstyle, &bbox, data->lines[a]);
                bbox.ymin -= data->lineh + data->spaceh;
                bbox.ymax -= data->lineh + data->spaceh;
        }
}

static void ui_tooltip_region_free_cb(ARegion *ar)
{
        uiTooltipData *data;

        data= ar->regiondata;
        MEM_freeN(data);
        ar->regiondata= NULL;
}

ARegion *ui_tooltip_create(bContext *C, ARegion *butregion, uiBut *but)
{
        uiStyle *style= U.uistyles.first;       // XXX pass on as arg
        static ARegionType type;
        ARegion *ar;
        uiTooltipData *data;
        IDProperty *prop;
        char buf[512];
        float fonth, fontw, aspect= but->block->aspect;
        float x1f, x2f, y1f, y2f;
        int x1, x2, y1, y2, winx, winy, ofsx, ofsy, w, h, a;

        if(but->flag & UI_BUT_NO_TOOLTIP)
                return NULL;

        /* create tooltip data */
        data= MEM_callocN(sizeof(uiTooltipData), "uiTooltipData");

        /* special case, enum rna buttons only have enum item description, use general enum description too before the spesific one */
        if(but->rnaprop && RNA_property_type(but->rnaprop) == PROP_ENUM) {
                const char *descr= RNA_property_description(but->rnaprop);
                if(descr && descr[0]) {
                        BLI_strncpy(data->lines[data->totline], descr, sizeof(data->lines[0]));
                        data->color[data->totline]= 0xFFFFFF;
                        data->totline++;
                }

                if(but->type == ROW) {
                        EnumPropertyItem *item;
                        int i, totitem, free;

                        RNA_property_enum_items(C, &but->rnapoin, but->rnaprop, &item, &totitem, &free);

                        for(i=0; i<totitem; i++) {
                                if(item[i].identifier[0] && item[i].value == (int)but->hardmax) {
                                        if(item[i].description[0]) {
                                                BLI_snprintf(data->lines[data->totline], sizeof(data->lines[0]), "%s: %s", item[i].name, item[i].description);
                                                data->color[data->totline]= 0xFFFFFF;
                                                data->totline++;
                                        }
                                        break;
                                }
                        }

                        if(free)
                                MEM_freeN(item);
                }
        }
        
        if(but->tip && strlen(but->tip)) {
                BLI_strncpy(data->lines[data->totline], but->tip, sizeof(data->lines[0]));
                data->color[data->totline]= 0xFFFFFF;
                data->totline++;
        }

        if(but->optype && !(but->block->flag & UI_BLOCK_LOOP)) {
                /* operator keymap (not menus, they already have it) */
                prop= (but->opptr)? but->opptr->data: NULL;

                if(WM_key_event_operator_string(C, but->optype->idname, but->opcontext, prop, buf, sizeof(buf))) {
                        BLI_snprintf(data->lines[data->totline], sizeof(data->lines[0]), "Shortcut: %s", buf);
                        data->color[data->totline]= 0x888888;
                        data->totline++;
                }
        }

        if(ELEM3(but->type, TEX, IDPOIN, SEARCH_MENU)) {
                /* full string */
                ui_get_but_string(but, buf, sizeof(buf));
                if(buf[0]) {
                        BLI_snprintf(data->lines[data->totline], sizeof(data->lines[0]), "Value: %s", buf);
                        data->color[data->totline]= 0x888888;
                        data->totline++;
                }
        }

        if(but->rnaprop) {
                int unit_type= uiButGetUnitType(but);
                
                if (unit_type == PROP_UNIT_ROTATION) {
                        if (RNA_property_type(but->rnaprop) == PROP_FLOAT) {
                                BLI_snprintf(data->lines[data->totline], sizeof(data->lines[0]), "Radians: %f", RNA_property_float_get_index(&but->rnapoin, but->rnaprop, but->rnaindex));
                                data->color[data->totline]= 0x888888;
                                data->totline++;
                        }
                }
                
                if(but->flag & UI_BUT_DRIVEN) {
                        if(ui_but_anim_expression_get(but, buf, sizeof(buf))) {
                                /* expression */
                                BLI_snprintf(data->lines[data->totline], sizeof(data->lines[0]), "Expression: %s", buf);
                                data->color[data->totline]= 0x888888;
                                data->totline++;
                        }
                }

                /* rna info */
                if ((U.flag & USER_TOOLTIPS_PYTHON) == 0) {
                        BLI_snprintf(data->lines[data->totline], sizeof(data->lines[0]), "Python: %s.%s", RNA_struct_identifier(but->rnapoin.type), RNA_property_identifier(but->rnaprop));
                        data->color[data->totline]= 0x888888;
                        data->totline++;
                }
                
                if(but->rnapoin.id.data) {
                        ID *id= but->rnapoin.id.data;
                        if(id->lib && id->lib->name) {
                                BLI_snprintf(data->lines[data->totline], sizeof(data->lines[0]), "Library: %s", id->lib->name);
                                data->color[data->totline]= 0x888888;
                                data->totline++;
                        }
                }
        }
        else if (but->optype) {
                PointerRNA *opptr;
                char *str;
                opptr= uiButGetOperatorPtrRNA(but); /* allocated when needed, the button owns it */

                str= WM_operator_pystring(C, but->optype, opptr, 0);

                /* operator info */
                if ((U.flag & USER_TOOLTIPS_PYTHON) == 0) {
                        BLI_snprintf(data->lines[data->totline], sizeof(data->lines[0]), "Python: %s", str);
                        data->color[data->totline]= 0x888888;
                        data->totline++;
                }

                MEM_freeN(str);

                /* second check if we are disabled - why */
                if(but->flag & UI_BUT_DISABLED) {
                        const char *poll_msg;
                        CTX_wm_operator_poll_msg_set(C, NULL);
                        WM_operator_poll_context(C, but->optype, but->opcontext);
                        poll_msg= CTX_wm_operator_poll_msg_get(C);
                        if(poll_msg) {
                                BLI_snprintf(data->lines[data->totline], sizeof(data->lines[0]), "Disabled: %s", poll_msg);
                                data->color[data->totline]= 0x6666ff; /* alert */
                                data->totline++;                        
                        }
                }
        }
        else if (ELEM(but->type, MENU, PULLDOWN)) {
                if ((U.flag & USER_TOOLTIPS_PYTHON) == 0) {
                        if(but->menu_create_func && WM_menutype_contains((MenuType *)but->poin)) {
                                MenuType *mt= (MenuType *)but->poin;
                                BLI_snprintf(data->lines[data->totline], sizeof(data->lines[0]), "Python: %s", mt->idname);
                                data->color[data->totline]= 0x888888;
                                data->totline++;
                        }
                }

        }

        assert(data->totline < MAX_TOOLTIP_LINES);
        
        if(data->totline == 0) {
                MEM_freeN(data);
                return NULL;
        }

        /* create area region */
        ar= ui_add_temporary_region(CTX_wm_screen(C));

        memset(&type, 0, sizeof(ARegionType));
        type.draw= ui_tooltip_region_draw_cb;
        type.free= ui_tooltip_region_free_cb;
        ar->type= &type;
        
        /* set font, get bb */
        data->fstyle= style->widget; /* copy struct */
        data->fstyle.align= UI_STYLE_TEXT_CENTER;
        uiStyleFontSet(&data->fstyle);

        /* these defines may need to be tweaked depending on font */
#define TIP_MARGIN_Y 2
#define TIP_BORDER_X 16.0f
#define TIP_BORDER_Y 6.0f

        h= BLF_height_max(data->fstyle.uifont_id);

        for(a=0, fontw=0, fonth=0; a<data->totline; a++) {
                w= BLF_width(data->fstyle.uifont_id, data->lines[a]);
                fontw= MAX2(fontw, w);
                fonth += (a == 0)? h: h+TIP_MARGIN_Y;
        }

        fontw *= aspect;

        ar->regiondata= data;

        data->toth= fonth;
        data->lineh= h;
        data->spaceh= TIP_MARGIN_Y;


        /* compute position */
        ofsx= (but->block->panel)? but->block->panel->ofsx: 0;
        ofsy= (but->block->panel)? but->block->panel->ofsy: 0;

        x1f= (but->x1 + but->x2) * 0.5f + ofsx - (TIP_BORDER_X * aspect);
        x2f= x1f + fontw + (TIP_BORDER_X * aspect);
        y2f= but->y1 + ofsy - (TIP_BORDER_Y * aspect);
        y1f= y2f - fonth*aspect - (TIP_BORDER_Y * aspect);
        
#undef TIP_MARGIN_Y
#undef TIP_BORDER_X
#undef TIP_BORDER_Y

        /* copy to int, gets projected if possible too */
        x1= x1f; y1= y1f; x2= x2f; y2= y2f; 
        
        if(butregion) {
                /* XXX temp, region v2ds can be empty still */
                if(butregion->v2d.cur.xmin != butregion->v2d.cur.xmax) {
                        UI_view2d_to_region_no_clip(&butregion->v2d, x1f, y1f, &x1, &y1);
                        UI_view2d_to_region_no_clip(&butregion->v2d, x2f, y2f, &x2, &y2);
                }

                x1 += butregion->winrct.xmin;
                x2 += butregion->winrct.xmin;
                y1 += butregion->winrct.ymin;
                y2 += butregion->winrct.ymin;
        }

        wm_window_get_size(CTX_wm_window(C), &winx, &winy);

        if(x2 > winx) {
                /* super size */
                if(x2 > winx + x1) {
                        x2= winx;
                        x1= 0;
                }
                else {
                        x1 -= x2-winx;
                        x2= winx;
                }
        }
        /* ensure at least 5 px above screen bounds
         * 25 is just a guess to be above the menu item */
        if(y1 < 5) {
                y2 += (-y1) + 30;
                y1 = 30;
        }

        /* widget rect, in region coords */
        data->bbox.xmin= MENU_SHADOW_SIDE;
        data->bbox.xmax= x2-x1 + MENU_SHADOW_SIDE;
        data->bbox.ymin= MENU_SHADOW_BOTTOM;
        data->bbox.ymax= y2-y1 + MENU_SHADOW_BOTTOM;
        
        /* region bigger for shadow */
        ar->winrct.xmin= x1 - MENU_SHADOW_SIDE;
        ar->winrct.xmax= x2 + MENU_SHADOW_SIDE;
        ar->winrct.ymin= y1 - MENU_SHADOW_BOTTOM;
        ar->winrct.ymax= y2 + MENU_TOP;

        /* adds subwindow */
        ED_region_init(C, ar);
        
        /* notify change and redraw */
        ED_region_tag_redraw(ar);

        return ar;
}

void ui_tooltip_free(bContext *C, ARegion *ar)
{
        ui_remove_temporary_region(C, CTX_wm_screen(C), ar);
}


/************************* Creating Search Box **********************/

struct uiSearchItems {
        int maxitem, totitem, maxstrlen;
        
        int offset, offset_i; /* offset for inserting in array */
        int more;  /* flag indicating there are more items */
        
        char **names;
        void **pointers;
        int *icons;

        AutoComplete *autocpl;
        void *active;
};

typedef struct uiSearchboxData {
        rcti bbox;
        uiFontStyle fstyle;
        uiSearchItems items;
        int active;             /* index in items array */
        int noback;             /* when menu opened with enough space for this */
        int preview;    /* draw thumbnail previews, rather than list */
        int prv_rows, prv_cols;
} uiSearchboxData;

#define SEARCH_ITEMS    10

/* exported for use by search callbacks */
/* returns zero if nothing to add */
int uiSearchItemAdd(uiSearchItems *items, const char *name, void *poin, int iconid)
{
        /* hijack for autocomplete */
        if(items->autocpl) {
                autocomplete_do_name(items->autocpl, name);
                return 1;
        }
        
        /* hijack for finding active item */
        if(items->active) {
                if(poin==items->active)
                        items->offset_i= items->totitem;
                items->totitem++;
                return 1;
        }
        
        if(items->totitem>=items->maxitem) {
                items->more= 1;
                return 0;
        }
        
        /* skip first items in list */
        if(items->offset_i > 0) {
                items->offset_i--;
                return 1;
        }
        
        if(items->names)
                BLI_strncpy(items->names[items->totitem], name, items->maxstrlen);
        if(items->pointers)
                items->pointers[items->totitem]= poin;
        if(items->icons)
                items->icons[items->totitem]= iconid;
        
        items->totitem++;
        
        return 1;
}

int uiSearchBoxhHeight(void)
{
        return SEARCH_ITEMS*UI_UNIT_Y + 2*MENU_TOP;
}

/* ar is the search box itself */
static void ui_searchbox_select(bContext *C, ARegion *ar, uiBut *but, int step)
{
        uiSearchboxData *data= ar->regiondata;
        
        /* apply step */
        data->active+= step;
        
        if(data->items.totitem==0)
                data->active= 0;
        else if(data->active > data->items.totitem) {
                if(data->items.more) {
                        data->items.offset++;
                        data->active= data->items.totitem;
                        ui_searchbox_update(C, ar, but, 0);
                }
                else
                        data->active= data->items.totitem;
        }
        else if(data->active < 1) {
                if(data->items.offset) {
                        data->items.offset--;
                        data->active= 1;
                        ui_searchbox_update(C, ar, but, 0);
                }
                else if(data->active < 0)
                        data->active= 0;
        }
        
        ED_region_tag_redraw(ar);
}

static void ui_searchbox_butrect(rcti *rect, uiSearchboxData *data, int itemnr)
{
        /* thumbnail preview */
        if (data->preview) {
                int buth = (data->bbox.ymax - data->bbox.ymin - 2*MENU_TOP) / data->prv_rows;
                int butw = (data->bbox.xmax - data->bbox.xmin) / data->prv_cols;
                int row, col;
                
                *rect= data->bbox;
                
                col = itemnr % data->prv_cols;
                row = itemnr / data->prv_cols;
                
                rect->xmin += col * butw;
                rect->xmax = rect->xmin + butw;
                
                rect->ymax = data->bbox.ymax - MENU_TOP - (row * buth);
                rect->ymin = rect->ymax - buth;
        }
        /* list view */
        else {
                int buth= (data->bbox.ymax-data->bbox.ymin - 2*MENU_TOP)/SEARCH_ITEMS;
                
                *rect= data->bbox;
                rect->xmin= data->bbox.xmin + 3.0f;
                rect->xmax= data->bbox.xmax - 3.0f;
                
                rect->ymax= data->bbox.ymax - MENU_TOP - itemnr*buth;
                rect->ymin= rect->ymax - buth;
        }
        
}

/* x and y in screencoords */
int ui_searchbox_inside(ARegion *ar, int x, int y)
{
        uiSearchboxData *data= ar->regiondata;
        
        return(BLI_in_rcti(&data->bbox, x-ar->winrct.xmin, y-ar->winrct.ymin));
}

/* string validated to be of correct length (but->hardmax) */
void ui_searchbox_apply(uiBut *but, ARegion *ar)
{
        uiSearchboxData *data= ar->regiondata;

        but->func_arg2= NULL;
        
        if(data->active) {
                char *name= data->items.names[data->active-1];
                char *cpoin= strchr(name, '|');
                
                if(cpoin) cpoin[0]= 0;
                BLI_strncpy(but->editstr, name, data->items.maxstrlen);
                if(cpoin) cpoin[0]= '|';
                
                but->func_arg2= data->items.pointers[data->active-1];
        }
}

void ui_searchbox_event(bContext *C, ARegion *ar, uiBut *but, wmEvent *event)
{
        uiSearchboxData *data= ar->regiondata;
        
        switch(event->type) {
                case WHEELUPMOUSE:
                case UPARROWKEY:
                        ui_searchbox_select(C, ar, but, -1);
                        break;
                case WHEELDOWNMOUSE:
                case DOWNARROWKEY:
                        ui_searchbox_select(C, ar, but, 1);
                        break;
                case MOUSEMOVE:
                        if(BLI_in_rcti(&ar->winrct, event->x, event->y)) {
                                rcti rect;
                                int a;
                                
                                for(a=0; a<data->items.totitem; a++) {
                                        ui_searchbox_butrect(&rect, data, a);
                                        if(BLI_in_rcti(&rect, event->x - ar->winrct.xmin, event->y - ar->winrct.ymin)) {
                                                if( data->active!= a+1) {
                                                        data->active= a+1;
                                                        ui_searchbox_select(C, ar, but, 0);
                                                        break;
                                                }
                                        }
                                }
                        }
                        break;
        }
}

/* ar is the search box itself */
void ui_searchbox_update(bContext *C, ARegion *ar, uiBut *but, int reset)
{
        uiSearchboxData *data= ar->regiondata;
        
        /* reset vars */
        data->items.totitem= 0;
        data->items.more= 0;
        if(reset==0) {
                data->items.offset_i= data->items.offset;
        }
        else {
                data->items.offset_i= data->items.offset= 0;
                data->active= 0;
                
                /* handle active */
                if(but->search_func && but->func_arg2) {
                        data->items.active= but->func_arg2;
                        but->search_func(C, but->search_arg, but->editstr, &data->items);
                        data->items.active= NULL;
                        
                        /* found active item, calculate real offset by centering it */
                        if(data->items.totitem) {
                                /* first case, begin of list */
                                if(data->items.offset_i < data->items.maxitem) {
                                        data->active= data->items.offset_i+1;
                                        data->items.offset_i= 0;
                                }
                                else {
                                        /* second case, end of list */
                                        if(data->items.totitem - data->items.offset_i <= data->items.maxitem) {
                                                data->active= 1 + data->items.offset_i - data->items.totitem + data->items.maxitem;
                                                data->items.offset_i= data->items.totitem - data->items.maxitem;
                                        }
                                        else {
                                                /* center active item */
                                                data->items.offset_i -= data->items.maxitem/2;
                                                data->active= 1 + data->items.maxitem/2;
                                        }
                                }
                        }
                        data->items.offset= data->items.offset_i;
                        data->items.totitem= 0;
                }
        }
        
        /* callback */
        if(but->search_func)
                but->search_func(C, but->search_arg, but->editstr, &data->items);
        
        /* handle case where editstr is equal to one of items */
        if(reset && data->active==0) {
                int a;
                
                for(a=0; a<data->items.totitem; a++) {
                        char *cpoin= strchr(data->items.names[a], '|');
                        
                        if(cpoin) cpoin[0]= 0;
                        if(0==strcmp(but->editstr, data->items.names[a]))
                                data->active= a+1;
                        if(cpoin) cpoin[0]= '|';
                }
                if(data->items.totitem==1 && but->editstr[0])
                        data->active= 1;
        }

        /* validate selected item */
        ui_searchbox_select(C, ar, but, 0);
        
        ED_region_tag_redraw(ar);
}

void ui_searchbox_autocomplete(bContext *C, ARegion *ar, uiBut *but, char *str)
{
        uiSearchboxData *data= ar->regiondata;

        if(str[0]) {
                data->items.autocpl= autocomplete_begin(str, ui_get_but_string_max_length(but));

                but->search_func(C, but->search_arg, but->editstr, &data->items);

                autocomplete_end(data->items.autocpl, str);
                data->items.autocpl= NULL;
        }
}

static void ui_searchbox_region_draw_cb(const bContext *UNUSED(C), ARegion *ar)
{
        uiSearchboxData *data= ar->regiondata;
        
        /* pixel space */
        wmOrtho2(-0.01f, ar->winx-0.01f, -0.01f, ar->winy-0.01f);

        if(!data->noback)
                ui_draw_search_back(NULL, NULL, &data->bbox); /* style not used yet */
        
        /* draw text */
        if(data->items.totitem) {
                rcti rect;
                int a;
                
                if (data->preview) {
                        /* draw items */
                        for(a=0; a<data->items.totitem; a++) {
                                ui_searchbox_butrect(&rect, data, a);
                                
                                /* widget itself */
                                if (data->preview)
                                        ui_draw_preview_item(&data->fstyle, &rect, data->items.names[a], data->items.icons[a], (a+1)==data->active?UI_ACTIVE:0);
                                else 
                                        ui_draw_menu_item(&data->fstyle, &rect, data->items.names[a], data->items.icons[a], (a+1)==data->active?UI_ACTIVE:0);
                        }
                        
                        /* indicate more */
                        if(data->items.more) {
                                ui_searchbox_butrect(&rect, data, data->items.maxitem-1);
                                glEnable(GL_BLEND);
                                UI_icon_draw(rect.xmax-18, rect.ymin-7, ICON_TRIA_DOWN);
                                glDisable(GL_BLEND);
                        }
                        if(data->items.offset) {
                                ui_searchbox_butrect(&rect, data, 0);
                                glEnable(GL_BLEND);
                                UI_icon_draw(rect.xmin, rect.ymax-9, ICON_TRIA_UP);
                                glDisable(GL_BLEND);
                        }
                        
                } else {
                        /* draw items */
                        for(a=0; a<data->items.totitem; a++) {
                                ui_searchbox_butrect(&rect, data, a);
                                
                                /* widget itself */
                                ui_draw_menu_item(&data->fstyle, &rect, data->items.names[a], data->items.icons[a], (a+1)==data->active?UI_ACTIVE:0);
                                
                        }
                        /* indicate more */
                        if(data->items.more) {
                                ui_searchbox_butrect(&rect, data, data->items.maxitem-1);
                                glEnable(GL_BLEND);
                                UI_icon_draw((rect.xmax-rect.xmin)/2, rect.ymin-9, ICON_TRIA_DOWN);
                                glDisable(GL_BLEND);
                        }
                        if(data->items.offset) {
                                ui_searchbox_butrect(&rect, data, 0);
                                glEnable(GL_BLEND);
                                UI_icon_draw((rect.xmax-rect.xmin)/2, rect.ymax-7, ICON_TRIA_UP);
                                glDisable(GL_BLEND);
                        }
                }
        }
}

static void ui_searchbox_region_free_cb(ARegion *ar)
{
        uiSearchboxData *data= ar->regiondata;
        int a;

        /* free search data */
        for(a=0; a<data->items.maxitem; a++)
                MEM_freeN(data->items.names[a]);
        MEM_freeN(data->items.names);
        MEM_freeN(data->items.pointers);
        MEM_freeN(data->items.icons);
        
        MEM_freeN(data);
        ar->regiondata= NULL;
}

ARegion *ui_searchbox_create(bContext *C, ARegion *butregion, uiBut *but)
{
        uiStyle *style= U.uistyles.first;       // XXX pass on as arg
        static ARegionType type;
        ARegion *ar;
        uiSearchboxData *data;
        float aspect= but->block->aspect;
        float x1f, x2f, y1f, y2f;
        int x1, x2, y1, y2, winx, winy, ofsx, ofsy;
        
        /* create area region */
        ar= ui_add_temporary_region(CTX_wm_screen(C));
        
        memset(&type, 0, sizeof(ARegionType));
        type.draw= ui_searchbox_region_draw_cb;
        type.free= ui_searchbox_region_free_cb;
        ar->type= &type;
        
        /* create searchbox data */
        data= MEM_callocN(sizeof(uiSearchboxData), "uiSearchboxData");

        /* set font, get bb */
        data->fstyle= style->widget; /* copy struct */
        data->fstyle.align= UI_STYLE_TEXT_CENTER;
        ui_fontscale(&data->fstyle.points, aspect);
        uiStyleFontSet(&data->fstyle);
        
        ar->regiondata= data;
        
        /* special case, hardcoded feature, not draw backdrop when called from menus,
           assume for design that popup already added it */
        if(but->block->flag & UI_BLOCK_LOOP)
                data->noback= 1;
        
        if (but->a1 > 0 && but->a2 > 0) {
                data->preview = 1;
                data->prv_rows = but->a1;
                data->prv_cols = but->a2;
        }
        
        /* compute position */
        if(but->block->flag & UI_BLOCK_LOOP) {
                /* this case is search menu inside other menu */
                /* we copy region size */

                ar->winrct= butregion->winrct;
                
                /* widget rect, in region coords */
                data->bbox.xmin= MENU_SHADOW_SIDE;
                data->bbox.xmax= (ar->winrct.xmax-ar->winrct.xmin) - MENU_SHADOW_SIDE;
                data->bbox.ymin= MENU_SHADOW_BOTTOM;
                data->bbox.ymax= (ar->winrct.ymax-ar->winrct.ymin) - MENU_SHADOW_BOTTOM;
                
                /* check if button is lower half */
                if( but->y2 < (but->block->miny+but->block->maxy)/2 ) {
                        data->bbox.ymin += (but->y2-but->y1);
                }
                else {
                        data->bbox.ymax -= (but->y2-but->y1);
                }
        }
        else {
                x1f= but->x1 - 5;       /* align text with button */
                x2f= but->x2 + 5;       /* symmetrical */
                y2f= but->y1;
                y1f= y2f - uiSearchBoxhHeight();

                ofsx= (but->block->panel)? but->block->panel->ofsx: 0;
                ofsy= (but->block->panel)? but->block->panel->ofsy: 0;

                x1f += ofsx;
                x2f += ofsx;
                y1f += ofsy;
                y2f += ofsy;
        
                /* minimal width */
                if(x2f - x1f < 150) x2f= x1f+150; // XXX arbitrary
                
                /* copy to int, gets projected if possible too */
                x1= x1f; y1= y1f; x2= x2f; y2= y2f; 
                
                if(butregion) {
                        if(butregion->v2d.cur.xmin != butregion->v2d.cur.xmax) {
                                UI_view2d_to_region_no_clip(&butregion->v2d, x1f, y1f, &x1, &y1);
                                UI_view2d_to_region_no_clip(&butregion->v2d, x2f, y2f, &x2, &y2);
                        }
                        
                        x1 += butregion->winrct.xmin;
                        x2 += butregion->winrct.xmin;
                        y1 += butregion->winrct.ymin;
                        y2 += butregion->winrct.ymin;
                }
                
                wm_window_get_size(CTX_wm_window(C), &winx, &winy);
                
                if(x2 > winx) {
                        /* super size */
                        if(x2 > winx + x1) {
                                x2= winx;
                                x1= 0;
                        }
                        else {
                                x1 -= x2-winx;
                                x2= winx;
                        }
                }
                if(y1 < 0) { /* XXX butregion NULL check?, there is one above */
                        int newy1;
                        UI_view2d_to_region_no_clip(&butregion->v2d, 0, but->y2 + ofsy, NULL, &newy1);
                        newy1 += butregion->winrct.ymin;

                        y2= y2-y1 + newy1;
                        y1= newy1;
                }

                /* widget rect, in region coords */
                data->bbox.xmin= MENU_SHADOW_SIDE;
                data->bbox.xmax= x2-x1 + MENU_SHADOW_SIDE;
                data->bbox.ymin= MENU_SHADOW_BOTTOM;
                data->bbox.ymax= y2-y1 + MENU_SHADOW_BOTTOM;
                
                /* region bigger for shadow */
                ar->winrct.xmin= x1 - MENU_SHADOW_SIDE;
                ar->winrct.xmax= x2 + MENU_SHADOW_SIDE;
                ar->winrct.ymin= y1 - MENU_SHADOW_BOTTOM;
                ar->winrct.ymax= y2;
        }
        
        /* adds subwindow */
        ED_region_init(C, ar);
        
        /* notify change and redraw */
        ED_region_tag_redraw(ar);
        
        /* prepare search data */
        if (data->preview) {
                data->items.maxitem= data->prv_rows * data->prv_cols;
        } else {
                data->items.maxitem= SEARCH_ITEMS;
        }
        data->items.maxstrlen= but->hardmax;
        data->items.totitem= 0;
        data->items.names= MEM_callocN(data->items.maxitem*sizeof(void *), "search names");
        data->items.pointers= MEM_callocN(data->items.maxitem*sizeof(void *), "search pointers");
        data->items.icons= MEM_callocN(data->items.maxitem*sizeof(int), "search icons");
        for(x1=0; x1<data->items.maxitem; x1++)
                data->items.names[x1]= MEM_callocN(but->hardmax+1, "search pointers");
        
        return ar;
}

void ui_searchbox_free(bContext *C, ARegion *ar)
{
        ui_remove_temporary_region(C, CTX_wm_screen(C), ar);
}

/* sets red alert if button holds a string it can't find */
/* XXX weak: search_func adds all partial matches... */
void ui_but_search_test(uiBut *but)
{
        uiSearchItems *items;
        int x1;

        /* possibly very large lists (such as ID datablocks) only
         * only validate string RNA buts (not pointers) */
        if(but->rnaprop && RNA_property_type(but->rnaprop) != PROP_STRING) {
                return;
        }

        items= MEM_callocN(sizeof(uiSearchItems), "search items");

        /* setup search struct */
        items->maxitem= 10;
        items->maxstrlen= 256;
        items->names= MEM_callocN(items->maxitem*sizeof(void *), "search names");
        for(x1=0; x1<items->maxitem; x1++)
                items->names[x1]= MEM_callocN(but->hardmax+1, "search names");
        
        but->search_func(but->block->evil_C, but->search_arg, but->drawstr, items);
        
        /* only redalert when we are sure of it, this can miss cases when >10 matches */
        if(items->totitem==0)
                uiButSetFlag(but, UI_BUT_REDALERT);
        else if(items->more==0) {
                for(x1= 0; x1<items->totitem; x1++)
                        if(strcmp(but->drawstr, items->names[x1])==0)
                                break;
                if(x1==items->totitem)
                        uiButSetFlag(but, UI_BUT_REDALERT);
        }
        
        for(x1=0; x1<items->maxitem; x1++)
                MEM_freeN(items->names[x1]);
        MEM_freeN(items->names);
        MEM_freeN(items);
}


/************************* Creating Menu Blocks **********************/

/* position block relative to but, result is in window space */
static void ui_block_position(wmWindow *window, ARegion *butregion, uiBut *but, uiBlock *block)
{
        uiBut *bt;
        uiSafetyRct *saferct;
        rctf butrct;
        float aspect;
        int xsize, ysize, xof=0, yof=0, center;
        short dir1= 0, dir2=0;
        
        /* transform to window coordinates, using the source button region/block */
        butrct.xmin= but->x1; butrct.xmax= but->x2;
        butrct.ymin= but->y1; butrct.ymax= but->y2;

        ui_block_to_window_fl(butregion, but->block, &butrct.xmin, &butrct.ymin);
        ui_block_to_window_fl(butregion, but->block, &butrct.xmax, &butrct.ymax);

        /* calc block rect */
        if(block->minx == 0.0f && block->maxx == 0.0f) {
                if(block->buttons.first) {
                        block->minx= block->miny= 10000;
                        block->maxx= block->maxy= -10000;
                        
                        bt= block->buttons.first;
                        while(bt) {
                                if(bt->x1 < block->minx) block->minx= bt->x1;
                                if(bt->y1 < block->miny) block->miny= bt->y1;

                                if(bt->x2 > block->maxx) block->maxx= bt->x2;
                                if(bt->y2 > block->maxy) block->maxy= bt->y2;
                                
                                bt= bt->next;
                        }
                }
                else {
                        /* we're nice and allow empty blocks too */
                        block->minx= block->miny= 0;
                        block->maxx= block->maxy= 20;
                }
        }
        
        aspect= (float)(block->maxx - block->minx + 4);
        ui_block_to_window_fl(butregion, but->block, &block->minx, &block->miny);
        ui_block_to_window_fl(butregion, but->block, &block->maxx, &block->maxy);

        //block->minx-= 2.0; block->miny-= 2.0;
        //block->maxx+= 2.0; block->maxy+= 2.0;
        
        xsize= block->maxx - block->minx+4; // 4 for shadow
        ysize= block->maxy - block->miny+4;
        aspect/= (float)xsize;

        if(but) {
                int left=0, right=0, top=0, down=0;
                int winx, winy;
                // int offscreen;

                wm_window_get_size(window, &winx, &winy);

                if(block->direction & UI_CENTER) center= ysize/2;
                else center= 0;
                
                /* check if there's space at all */
                if( butrct.xmin-xsize > 0.0f) left= 1;
                if( butrct.xmax+xsize < winx) right= 1;
                if( butrct.ymin-ysize+center > 0.0f) down= 1;
                if( butrct.ymax+ysize-center < winy) top= 1;
                
                if(top==0 && down==0) {
                        if (butrct.ymin-ysize < winy-butrct.ymax-ysize)
                                top= 1;
                        else
                                down= 1;
                }
                
                dir1= block->direction & UI_DIRECTION;

                /* secundary directions */
                if(dir1 & (UI_TOP|UI_DOWN)) {
                        if(dir1 & UI_LEFT) dir2= UI_LEFT;
                        else if(dir1 & UI_RIGHT) dir2= UI_RIGHT;
                        dir1 &= (UI_TOP|UI_DOWN);
                }

                if(dir2==0) if(dir1==UI_LEFT || dir1==UI_RIGHT) dir2= UI_DOWN;
                if(dir2==0) if(dir1==UI_TOP || dir1==UI_DOWN) dir2= UI_LEFT;
                
                /* no space at all? dont change */
                if(left || right) {
                        if(dir1==UI_LEFT && left==0) dir1= UI_RIGHT;
                        if(dir1==UI_RIGHT && right==0) dir1= UI_LEFT;
                        /* this is aligning, not append! */
                        if(dir2==UI_LEFT && right==0) dir2= UI_RIGHT;
                        if(dir2==UI_RIGHT && left==0) dir2= UI_LEFT;
                }
                if(down || top) {
                        if(dir1==UI_TOP && top==0) dir1= UI_DOWN;
                        if(dir1==UI_DOWN && down==0) dir1= UI_TOP;
                        if(dir2==UI_TOP && top==0) dir2= UI_DOWN;
                        if(dir2==UI_DOWN && down==0) dir2= UI_TOP;
                }
                
                if(dir1==UI_LEFT) {
                        xof= butrct.xmin - block->maxx;
                        if(dir2==UI_TOP) yof= butrct.ymin - block->miny-center;
                        else yof= butrct.ymax - block->maxy+center;
                }
                else if(dir1==UI_RIGHT) {
                        xof= butrct.xmax - block->minx;
                        if(dir2==UI_TOP) yof= butrct.ymin - block->miny-center;
                        else yof= butrct.ymax - block->maxy+center;
                }
                else if(dir1==UI_TOP) {
                        yof= butrct.ymax - block->miny;
                        if(dir2==UI_RIGHT) xof= butrct.xmax - block->maxx;
                        else xof= butrct.xmin - block->minx;
                        // changed direction? 
                        if((dir1 & block->direction)==0) {
                                if(block->direction & UI_SHIFT_FLIPPED)
                                        xof+= dir2==UI_LEFT?25:-25;
                                uiBlockFlipOrder(block);
                        }
                }
                else if(dir1==UI_DOWN) {
                        yof= butrct.ymin - block->maxy;
                        if(dir2==UI_RIGHT) xof= butrct.xmax - block->maxx;
                        else xof= butrct.xmin - block->minx;
                        // changed direction?
                        if((dir1 & block->direction)==0) {
                                if(block->direction & UI_SHIFT_FLIPPED)
                                        xof+= dir2==UI_LEFT?25:-25;
                                uiBlockFlipOrder(block);
                        }
                }

                /* and now we handle the exception; no space below or to top */
                if(top==0 && down==0) {
                        if(dir1==UI_LEFT || dir1==UI_RIGHT) {
                                // align with bottom of screen 
                                // yof= ysize; (not with menu scrolls)
                        }
                }
                
                /* or no space left or right */
                if(left==0 && right==0) {
                        if(dir1==UI_TOP || dir1==UI_DOWN) {
                                // align with left size of screen 
                                xof= -block->minx+5;
                        }
                }
                
                // apply requested offset in the block
                xof += block->xofs/block->aspect;
                yof += block->yofs/block->aspect;
#if 0
                /* clamp to window bounds, could be made into an option if its ever annoying */
                if(     (offscreen= (block->miny+yof)) < 0)      yof -= offscreen; /* bottom */
                else if((offscreen= (block->maxy+yof)-winy) > 0) yof -= offscreen; /* top */
                if(     (offscreen= (block->minx+xof)) < 0)      xof -= offscreen; /* left */
                else if((offscreen= (block->maxx+xof)-winx) > 0) xof -= offscreen; /* right */
#endif
        }
        
        /* apply offset, buttons in window coords */
        
        for(bt= block->buttons.first; bt; bt= bt->next) {
                ui_block_to_window_fl(butregion, but->block, &bt->x1, &bt->y1);
                ui_block_to_window_fl(butregion, but->block, &bt->x2, &bt->y2);

                bt->x1 += xof;
                bt->x2 += xof;
                bt->y1 += yof;
                bt->y2 += yof;

                bt->aspect= 1.0;
                // ui_check_but recalculates drawstring size in pixels
                ui_check_but(bt);
        }
        
        block->minx += xof;
        block->miny += yof;
        block->maxx += xof;
        block->maxy += yof;

        /* safety calculus */
        if(but) {
                float midx= (butrct.xmin+butrct.xmax)/2.0f;
                float midy= (butrct.ymin+butrct.ymax)/2.0f;
                
                /* when you are outside parent button, safety there should be smaller */
                
                // parent button to left
                if( midx < block->minx ) block->safety.xmin= block->minx-3; 
                else block->safety.xmin= block->minx-40;
                // parent button to right
                if( midx > block->maxx ) block->safety.xmax= block->maxx+3; 
                else block->safety.xmax= block->maxx+40;
                
                // parent button on bottom
                if( midy < block->miny ) block->safety.ymin= block->miny-3; 
                else block->safety.ymin= block->miny-40;
                // parent button on top
                if( midy > block->maxy ) block->safety.ymax= block->maxy+3; 
                else block->safety.ymax= block->maxy+40;
                
                // exception for switched pulldowns...
                if(dir1 && (dir1 & block->direction)==0) {
                        if(dir2==UI_RIGHT) block->safety.xmax= block->maxx+3; 
                        if(dir2==UI_LEFT) block->safety.xmin= block->minx-3; 
                }
                block->direction= dir1;
        }
        else {
                block->safety.xmin= block->minx-40;
                block->safety.ymin= block->miny-40;
                block->safety.xmax= block->maxx+40;
                block->safety.ymax= block->maxy+40;
        }

        /* keep a list of these, needed for pulldown menus */
        saferct= MEM_callocN(sizeof(uiSafetyRct), "uiSafetyRct");
        saferct->parent= butrct;
        saferct->safety= block->safety;
        BLI_freelistN(&block->saferct);
        if(but)
                BLI_duplicatelist(&block->saferct, &but->block->saferct);
        BLI_addhead(&block->saferct, saferct);
}

static void ui_block_region_draw(const bContext *C, ARegion *ar)
{
        uiBlock *block;

        for(block=ar->uiblocks.first; block; block=block->next)
                uiDrawBlock(C, block);
}

static void ui_popup_block_clip(wmWindow *window, uiBlock *block)
{
        int winx, winy;
        
        wm_window_get_size(window, &winx, &winy);
        
        if(block->minx < MENU_SHADOW_SIDE)
                block->minx= MENU_SHADOW_SIDE;
        if(block->maxx > winx-MENU_SHADOW_SIDE)
                block->maxx= winx-MENU_SHADOW_SIDE;
        
        if(block->miny < MENU_SHADOW_BOTTOM)
                block->miny= MENU_SHADOW_BOTTOM;
        if(block->maxy > winy-MENU_TOP)
                block->maxy= winy-MENU_TOP;
}

void ui_popup_block_scrolltest(uiBlock *block)
{
        uiBut *bt;
        
        block->flag &= ~(UI_BLOCK_CLIPBOTTOM|UI_BLOCK_CLIPTOP);
        
        for(bt= block->buttons.first; bt; bt= bt->next)
                bt->flag &= ~UI_SCROLLED;
        
        if(block->buttons.first==block->buttons.last)
                return;
        
        /* mark buttons that are outside boundary and the ones next to it for arrow(s) */
        for(bt= block->buttons.first; bt; bt= bt->next) {
                if(bt->y1 < block->miny) {
                        bt->flag |= UI_SCROLLED;
                        block->flag |= UI_BLOCK_CLIPBOTTOM;
                        /* make space for arrow */
                        if(bt->y2 < block->miny +10) {
                                if(bt->next && bt->next->y1 > bt->y1)
                                        bt->next->flag |= UI_SCROLLED;
                                if(bt->prev && bt->prev->y1 > bt->y1)
                                        bt->prev->flag |= UI_SCROLLED;
                        }
                }
                if(bt->y2 > block->maxy) {
                        bt->flag |= UI_SCROLLED;
                        block->flag |= UI_BLOCK_CLIPTOP;
                        /* make space for arrow */
                        if(bt->y1 > block->maxy -10) {
                                if(bt->next && bt->next->y2 < bt->y2)
                                        bt->next->flag |= UI_SCROLLED;
                                if(bt->prev && bt->prev->y2 < bt->y2)
                                        bt->prev->flag |= UI_SCROLLED;
                        }
                }
        }
}

uiPopupBlockHandle *ui_popup_block_create(bContext *C, ARegion *butregion, uiBut *but, uiBlockCreateFunc create_func, uiBlockHandleCreateFunc handle_create_func, void *arg)
{
        wmWindow *window= CTX_wm_window(C);
        static ARegionType type;
        ARegion *ar;
        uiBlock *block;
        uiBut *bt;
        uiPopupBlockHandle *handle;
        uiSafetyRct *saferct;

        /* create handle */
        handle= MEM_callocN(sizeof(uiPopupBlockHandle), "uiPopupBlockHandle");

        /* store context for operator */
        handle->ctx_area= CTX_wm_area(C);
        handle->ctx_region= CTX_wm_region(C);
        
        /* create area region */
        ar= ui_add_temporary_region(CTX_wm_screen(C));
        handle->region= ar;

        memset(&type, 0, sizeof(ARegionType));
        type.draw= ui_block_region_draw;
        ar->type= &type;

        UI_add_region_handlers(&ar->handlers);

        /* create ui block */
        if(create_func)
                block= create_func(C, handle->region, arg);
        else
                block= handle_create_func(C, handle, arg);
        
        if(block->handle) {
                memcpy(block->handle, handle, sizeof(uiPopupBlockHandle));
                MEM_freeN(handle);
                handle= block->handle;
        }
        else
                block->handle= handle;

        ar->regiondata= handle;

        if(!block->endblock)
                uiEndBlock(C, block);

        /* if this is being created from a button */
        if(but) {
                if(ELEM(but->type, BLOCK, PULLDOWN))
                        block->xofs = -2;       /* for proper alignment */

                /* only used for automatic toolbox, so can set the shift flag */
                if(but->flag & UI_MAKE_TOP) {
                        block->direction= UI_TOP|UI_SHIFT_FLIPPED;
                        uiBlockFlipOrder(block);
                }
                if(but->flag & UI_MAKE_DOWN) block->direction= UI_DOWN|UI_SHIFT_FLIPPED;
                if(but->flag & UI_MAKE_LEFT) block->direction |= UI_LEFT;
                if(but->flag & UI_MAKE_RIGHT) block->direction |= UI_RIGHT;

                ui_block_position(window, butregion, but, block);
        }
        else {
                /* keep a list of these, needed for pulldown menus */
                saferct= MEM_callocN(sizeof(uiSafetyRct), "uiSafetyRct");
                saferct->safety= block->safety;
                BLI_addhead(&block->saferct, saferct);
                block->flag |= UI_BLOCK_POPUP|UI_BLOCK_NUMSELECT;
        }

        /* clip block with window boundary */
        ui_popup_block_clip(window, block);
        
        /* the block and buttons were positioned in window space as in 2.4x, now
         * these menu blocks are regions so we bring it back to region space.
         * additionally we add some padding for the menu shadow or rounded menus */
        ar->winrct.xmin= block->minx - MENU_SHADOW_SIDE;
        ar->winrct.xmax= block->maxx + MENU_SHADOW_SIDE;
        ar->winrct.ymin= block->miny - MENU_SHADOW_BOTTOM;
        ar->winrct.ymax= block->maxy + MENU_TOP;
        
        block->minx -= ar->winrct.xmin;
        block->maxx -= ar->winrct.xmin;
        block->miny -= ar->winrct.ymin;
        block->maxy -= ar->winrct.ymin;

        for(bt= block->buttons.first; bt; bt= bt->next) {
                bt->x1 -= ar->winrct.xmin;
                bt->x2 -= ar->winrct.xmin;
                bt->y1 -= ar->winrct.ymin;
                bt->y2 -= ar->winrct.ymin;
        }
        
        block->flag |= UI_BLOCK_LOOP;

        /* adds subwindow */
        ED_region_init(C, ar);

        /* checks which buttons are visible, sets flags to prevent draw (do after region init) */
        ui_popup_block_scrolltest(block);
        
        /* get winmat now that we actually have the subwindow */
        wmSubWindowSet(window, ar->swinid);
        
        wm_subwindow_getmatrix(window, ar->swinid, block->winmat);
        
        /* notify change and redraw */
        ED_region_tag_redraw(ar);

        return handle;
}

void ui_popup_block_free(bContext *C, uiPopupBlockHandle *handle)
{
        ui_remove_temporary_region(C, CTX_wm_screen(C), handle->region);
        
        if(handle->scrolltimer)
                WM_event_remove_timer(CTX_wm_manager(C), CTX_wm_window(C), handle->scrolltimer);
        
        MEM_freeN(handle);
}

/***************************** Menu Button ***************************/

static void ui_block_func_MENUSTR(bContext *UNUSED(C), uiLayout *layout, void *arg_str)
{
        uiBlock *block= uiLayoutGetBlock(layout);
        uiPopupBlockHandle *handle= block->handle;
        uiLayout *split, *column=NULL;
        uiBut *bt;
        MenuData *md;
        MenuEntry *entry;
        char *instr= arg_str;
        int columns, rows, a, b;

        uiBlockSetFlag(block, UI_BLOCK_MOVEMOUSE_QUIT);
        
        /* compute menu data */
        md= decompose_menu_string(instr);

        /* columns and row estimation */
        columns= (md->nitems+20)/20;
        if(columns<1)
                columns= 1;
        if(columns>8)
                columns= (md->nitems+25)/25;
        
        rows= md->nitems/columns;
        if(rows<1)
                rows= 1;
        while(rows*columns<md->nitems)
                rows++;

        /* create title */
        if(md->title) {
                if(md->titleicon) {
                        uiItemL(layout, md->title, md->titleicon);
                }
                else {
                        uiItemL(layout, md->title, ICON_NONE);
                        bt= block->buttons.last;
                        bt->flag= UI_TEXT_LEFT;
                }
        }

        /* inconsistent, but menus with labels do not look good flipped */
        for(a=0, b=0; a<md->nitems; a++, b++) {
                entry= &md->items[a];

                if(entry->sepr && entry->str[0])
                        block->flag |= UI_BLOCK_NO_FLIP;
        }

        /* create items */
        split= uiLayoutSplit(layout, 0, 0);

        for(a=0, b=0; a<md->nitems; a++, b++) {
                if(block->flag & UI_BLOCK_NO_FLIP)
                        entry= &md->items[a];
                else
                        entry= &md->items[md->nitems-a-1];
                
                /* new column on N rows or on separation label */
                if((b % rows == 0) || (entry->sepr && entry->str[0])) {
                        column= uiLayoutColumn(split, 0);
                        b= 0;
                }

                if(entry->sepr) {
                        uiItemL(column, entry->str, entry->icon);
                        bt= block->buttons.last;
                        bt->flag= UI_TEXT_LEFT;
                }
                else if(entry->icon) {
                        uiDefIconTextButF(block, BUTM|FLO, B_NOP, entry->icon, entry->str, 0, 0,
                                UI_UNIT_X*5, UI_UNIT_Y, &handle->retvalue, (float) entry->retval, 0.0, 0, 0, "");
                }
                else {
                        uiDefButF(block, BUTM|FLO, B_NOP, entry->str, 0, 0,
                                UI_UNIT_X*5, UI_UNIT_X, &handle->retvalue, (float) entry->retval, 0.0, 0, 0, "");
                }
        }
        
        menudata_free(md);
}

void ui_block_func_ICONROW(bContext *UNUSED(C), uiLayout *layout, void *arg_but)
{
        uiBlock *block= uiLayoutGetBlock(layout);
        uiPopupBlockHandle *handle= block->handle;
        uiBut *but= arg_but;
        int a;
        
        uiBlockSetFlag(block, UI_BLOCK_MOVEMOUSE_QUIT);
        
        for(a=(int)but->hardmin; a<=(int)but->hardmax; a++)
                uiDefIconButF(block, BUTM|FLO, B_NOP, but->icon+(a-but->hardmin), 0, 0, UI_UNIT_X*5, UI_UNIT_Y,
                        &handle->retvalue, (float)a, 0.0, 0, 0, "");
}

void ui_block_func_ICONTEXTROW(bContext *UNUSED(C), uiLayout *layout, void *arg_but)
{
        uiBlock *block= uiLayoutGetBlock(layout);
        uiPopupBlockHandle *handle= block->handle;
        uiBut *but= arg_but, *bt;
        MenuData *md;
        MenuEntry *entry;
        int a;
        
        uiBlockSetFlag(block, UI_BLOCK_MOVEMOUSE_QUIT);

        md= decompose_menu_string(but->str);

        /* title */
        if(md->title) {
                bt= uiDefBut(block, LABEL, 0, md->title, 0, 0, UI_UNIT_X*5, UI_UNIT_Y, NULL, 0.0, 0.0, 0, 0, "");
                bt->flag= UI_TEXT_LEFT;
        }

        /* loop through the menu options and draw them out with icons & text labels */
        for(a=0; a<md->nitems; a++) {
                entry= &md->items[md->nitems-a-1];

                if(entry->sepr)
                        uiItemS(layout);
                else
                        uiDefIconTextButF(block, BUTM|FLO, B_NOP, (short)((but->icon)+(entry->retval-but->hardmin)), entry->str,
                                0, 0, UI_UNIT_X*5, UI_UNIT_Y, &handle->retvalue, (float) entry->retval, 0.0, 0, 0, "");
        }

        menudata_free(md);
}

#if 0
static void ui_warp_pointer(int x, int y)
{
        /* XXX 2.50 which function to use for this? */
        /* OSX has very poor mousewarp support, it sends events;
           this causes a menu being pressed immediately ... */
        #ifndef __APPLE__
        warp_pointer(x, y);
        #endif
}
#endif

/********************* Color Button ****************/

/* picker sizes S hsize, F full size, D spacer, B button/pallette height  */
#define SPICK   110.0
#define FPICK   180.0
#define DPICK   6.0
#define BPICK   24.0

/* for picker, while editing hsv */
void ui_set_but_hsv(uiBut *but)
{
        float col[3];
        float *hsv= ui_block_hsv_get(but->block);
        
        hsv_to_rgb(hsv[0], hsv[1], hsv[2], col, col+1, col+2);
        ui_set_but_vectorf(but, col);
}

/* also used by small picker, be careful with name checks below... */
static void ui_update_block_buts_rgb(uiBlock *block, float *rgb)
{
        uiBut *bt;
        float *hsv= ui_block_hsv_get(block);
        
        /* this is to keep the H and S value when V is equal to zero
         * and we are working in HSV mode, of course!
         */
        rgb_to_hsv_compat(rgb[0], rgb[1], rgb[2], hsv, hsv+1, hsv+2);
        
        // this updates button strings, is hackish... but button pointers are on stack of caller function
        for(bt= block->buttons.first; bt; bt= bt->next) {
                if (bt->rnaprop) {
                        
                        ui_set_but_vectorf(bt, rgb);
                        
                }
                else if(strcmp(bt->str, "Hex: ")==0) {
                        float rgb_gamma[3];
                        double intpart;
                        char col[16];
                        
                        /* Hex code is assumed to be in sRGB space (coming from other applications, web, etc) */
                        
                        if (block->color_profile == BLI_PR_NONE) {
                                copy_v3_v3(rgb_gamma, rgb);
                        } else {
                                /* make an sRGB version, for Hex code */
                                linearrgb_to_srgb_v3_v3(rgb_gamma, rgb);
                        }
                        
                        if (rgb_gamma[0] > 1.0f) rgb_gamma[0] = modf(rgb_gamma[0], &intpart);
                        if (rgb_gamma[1] > 1.0f) rgb_gamma[1] = modf(rgb_gamma[1], &intpart);
                        if (rgb_gamma[2] > 1.0f) rgb_gamma[2] = modf(rgb_gamma[2], &intpart);

                        sprintf(col, "%02X%02X%02X", FTOCHAR(rgb_gamma[0]), FTOCHAR(rgb_gamma[1]), FTOCHAR(rgb_gamma[2]));
                        
                        strcpy(bt->poin, col);
                }
                else if(bt->str[1]==' ') {
                        if(bt->str[0]=='R') {
                                ui_set_but_val(bt, rgb[0]);
                        }
                        else if(bt->str[0]=='G') {
                                ui_set_but_val(bt, rgb[1]);
                        }
                        else if(bt->str[0]=='B') {
                                ui_set_but_val(bt, rgb[2]);
                        }
                        else if(bt->str[0]=='H') {
                                ui_set_but_val(bt, hsv[0]);
                        }
                        else if(bt->str[0]=='S') {
                                ui_set_but_val(bt, hsv[1]);
                        }
                        else if(bt->str[0]=='V') {
                                ui_set_but_val(bt, hsv[2]);
                        }
                }               

                ui_check_but(bt);
        }
}

static void do_picker_rna_cb(bContext *UNUSED(C), void *bt1, void *UNUSED(arg))
{
        uiBut *but= (uiBut *)bt1;
        uiPopupBlockHandle *popup= but->block->handle;
        PropertyRNA *prop = but->rnaprop;
        PointerRNA ptr = but->rnapoin;
        float rgb[4];
        
        if (prop) {
                RNA_property_float_get_array(&ptr, prop, rgb);
                ui_update_block_buts_rgb(but->block, rgb);
        }
        
        if(popup)
                popup->menuretval= UI_RETURN_UPDATE;
}

static void do_hsv_rna_cb(bContext *UNUSED(C), void *bt1, void *UNUSED(arg))
{
        uiBut *but= (uiBut *)bt1;
        uiPopupBlockHandle *popup= but->block->handle;
        float rgb[3];
        float *hsv= ui_block_hsv_get(but->block);
        
        hsv_to_rgb(hsv[0], hsv[1], hsv[2], rgb, rgb+1, rgb+2);
        
        ui_update_block_buts_rgb(but->block, rgb);
        
        if(popup)
                popup->menuretval= UI_RETURN_UPDATE;
}

static void do_hex_rna_cb(bContext *UNUSED(C), void *bt1, void *hexcl)
{
        uiBut *but= (uiBut *)bt1;
        uiPopupBlockHandle *popup= but->block->handle;
        char *hexcol= (char *)hexcl;
        float rgb[3];
        
        hex_to_rgb(hexcol, rgb, rgb+1, rgb+2);
        
        /* Hex code is assumed to be in sRGB space (coming from other applications, web, etc) */
        if (but->block->color_profile != BLI_PR_NONE) {
                /* so we need to linearise it for Blender */
                srgb_to_linearrgb_v3_v3(rgb, rgb);
        }
        
        ui_update_block_buts_rgb(but->block, rgb);
        
        if(popup)
                popup->menuretval= UI_RETURN_UPDATE;
}

static void close_popup_cb(bContext *UNUSED(C), void *bt1, void *UNUSED(arg))
{
        uiBut *but= (uiBut *)bt1;
        uiPopupBlockHandle *popup= but->block->handle;
        
        if(popup)
                popup->menuretval= UI_RETURN_OK;
}

static void picker_new_hide_reveal(uiBlock *block, short colormode)
{
        uiBut *bt;
        
        /* tag buttons */
        for(bt= block->buttons.first; bt; bt= bt->next) {
                
                if (bt->type == LABEL) {
                        if( bt->str[1]=='G') {
                                if(colormode==2) bt->flag &= ~UI_HIDDEN;
                                else bt->flag |= UI_HIDDEN;
                        }
                }
                
                if(bt->type==NUMSLI || bt->type==TEX) {
                        if( bt->str[1]=='e') {
                                if(colormode==2) bt->flag &= ~UI_HIDDEN;
                                else bt->flag |= UI_HIDDEN;
                        }
                        else if( ELEM3(bt->str[0], 'R', 'G', 'B')) {
                                if(colormode==0) bt->flag &= ~UI_HIDDEN;
                                else bt->flag |= UI_HIDDEN;
                        }
                        else if( ELEM3(bt->str[0], 'H', 'S', 'V')) {
                                if(colormode==1) bt->flag &= ~UI_HIDDEN;
                                else bt->flag |= UI_HIDDEN;
                        }
                }
        }
}

static void do_picker_new_mode_cb(bContext *UNUSED(C), void *bt1, void *UNUSED(arg))
{
        uiBut *bt= bt1;
        short colormode= ui_get_but_val(bt);
        picker_new_hide_reveal(bt->block, colormode);
}

/* picker sizes S hsize, F full size, D spacer, B button/pallette height  */
#define SPICK1  150.0
#define DPICK1  6.0

#define PICKER_H        150
#define PICKER_W        150
#define PICKER_SPACE    6
#define PICKER_BAR              14

#define PICKER_TOTAL_W  (PICKER_W+PICKER_SPACE+PICKER_BAR)

static void circle_picker(uiBlock *block, PointerRNA *ptr, PropertyRNA *prop)
{
        uiBut *bt;
        
        /* HS circle */
        bt= uiDefButR_prop(block, HSVCIRCLE, 0, "",     0, 0, PICKER_H, PICKER_W, ptr, prop, 0, 0.0, 0.0, 0, 0, "Color");
        uiButSetFunc(bt, do_picker_rna_cb, bt, NULL);
        
        /* value */
        bt= uiDefButR_prop(block, HSVCUBE, 0, "", PICKER_W+PICKER_SPACE,0,PICKER_BAR,PICKER_H, ptr, prop, 0, 0.0, 0.0, UI_GRAD_V_ALT, 0, "Value");
        uiButSetFunc(bt, do_picker_rna_cb, bt, NULL);
}


static void square_picker(uiBlock *block, PointerRNA *ptr, PropertyRNA *prop, int type)
{
        uiBut *bt;
        int bartype = type + 3;
        
        /* HS square */
        bt= uiDefButR_prop(block, HSVCUBE, 0, "",       0, PICKER_BAR+PICKER_SPACE, PICKER_TOTAL_W, PICKER_H, ptr, prop, 0, 0.0, 0.0, type, 0, "Color");
        uiButSetFunc(bt, do_picker_rna_cb, bt, NULL);
        
        /* value */
        bt= uiDefButR_prop(block, HSVCUBE, 0, "",               0, 0, PICKER_TOTAL_W, PICKER_BAR, ptr, prop, 0, 0.0, 0.0, bartype, 0, "Value");
        uiButSetFunc(bt, do_picker_rna_cb, bt, NULL);
}


/* a HS circle, V slider, rgb/hsv/hex sliders */
static void uiBlockPicker(uiBlock *block, float *rgb, PointerRNA *ptr, PropertyRNA *prop)
{
        static short colormode= 0;      /* temp? 0=rgb, 1=hsv, 2=hex */
        uiBut *bt;
        int width, butwidth;
        static char tip[50];
        static char hexcol[128];
        float rgb_gamma[3];
        float min, max, step, precision;
        float *hsv= ui_block_hsv_get(block);
        
        ui_block_hsv_get(block);
        
        width= PICKER_TOTAL_W;
        butwidth = width - UI_UNIT_X - 10;
        
        /* existence of profile means storage is in linear color space, with display correction */
        if (block->color_profile == BLI_PR_NONE) {
                sprintf(tip, "Value in Display Color Space");
                copy_v3_v3(rgb_gamma, rgb);
        } else {
                sprintf(tip, "Value in Linear RGB Color Space");
                /* make an sRGB version, for Hex code */
                linearrgb_to_srgb_v3_v3(rgb_gamma, rgb);
        }
        
        /* sneaky way to check for alpha */
        rgb[3]= FLT_MAX;

        RNA_property_float_ui_range(ptr, prop, &min, &max, &step, &precision);
        RNA_property_float_get_array(ptr, prop, rgb);

        switch (U.color_picker_type) {
                case USER_CP_CIRCLE:
                        circle_picker(block, ptr, prop);
                        break;
                case USER_CP_SQUARE_SV:
                        square_picker(block, ptr, prop, UI_GRAD_SV);
                        break;
                case USER_CP_SQUARE_HS:
                        square_picker(block, ptr, prop, UI_GRAD_HS);
                        break;
                case USER_CP_SQUARE_HV:
                        square_picker(block, ptr, prop, UI_GRAD_HV);
                        break;
        }
        
        /* mode */
        uiBlockBeginAlign(block);
        bt= uiDefButS(block, ROW, 0, "RGB",     0, -30, width/3, UI_UNIT_Y, &colormode, 0.0, 0.0, 0, 0, "");
        uiButSetFunc(bt, do_picker_new_mode_cb, bt, NULL);
        bt= uiDefButS(block, ROW, 0, "HSV",     width/3, -30, width/3, UI_UNIT_Y, &colormode, 0.0, 1.0, 0, 0, "");
        uiButSetFunc(bt, do_picker_new_mode_cb, bt, NULL);
        bt= uiDefButS(block, ROW, 0, "Hex",     2*width/3, -30, width/3, UI_UNIT_Y, &colormode, 0.0, 2.0, 0, 0, "");
        uiButSetFunc(bt, do_picker_new_mode_cb, bt, NULL);
        uiBlockEndAlign(block);

        bt= uiDefIconButO(block, BUT, "UI_OT_eyedropper", WM_OP_INVOKE_DEFAULT, ICON_EYEDROPPER, butwidth+10, -60, UI_UNIT_X, UI_UNIT_Y, NULL);
        uiButSetFunc(bt, close_popup_cb, bt, NULL);
        
        /* RGB values */
        uiBlockBeginAlign(block);
        bt= uiDefButR_prop(block, NUMSLI, 0, "R ",      0, -60, butwidth, UI_UNIT_Y, ptr, prop, 0, 0.0, 0.0, 0, 3, "Red");
        uiButSetFunc(bt, do_picker_rna_cb, bt, NULL);
        bt= uiDefButR_prop(block, NUMSLI, 0, "G ",      0, -80, butwidth, UI_UNIT_Y, ptr, prop, 1, 0.0, 0.0, 0, 3, "Green");
        uiButSetFunc(bt, do_picker_rna_cb, bt, NULL);
        bt= uiDefButR_prop(block, NUMSLI, 0, "B ",      0, -100, butwidth, UI_UNIT_Y, ptr, prop, 2, 0.0, 0.0, 0, 3, "Blue");
        uiButSetFunc(bt, do_picker_rna_cb, bt, NULL);

        // could use uiItemFullR(col, ptr, prop, -1, 0, UI_ITEM_R_EXPAND|UI_ITEM_R_SLIDER, "", ICON_NONE);
        // but need to use uiButSetFunc for updating other fake buttons
        
        /* HSV values */
        uiBlockBeginAlign(block);
        bt= uiDefButF(block, NUMSLI, 0, "H ",   0, -60, butwidth, UI_UNIT_Y, hsv, 0.0, 1.0, 10, 3, "Hue");
        uiButSetFunc(bt, do_hsv_rna_cb, bt, hsv);
        bt= uiDefButF(block, NUMSLI, 0, "S ",   0, -80, butwidth, UI_UNIT_Y, hsv+1, 0.0, 1.0, 10, 3, "Saturation");
        uiButSetFunc(bt, do_hsv_rna_cb, bt, hsv);
        bt= uiDefButF(block, NUMSLI, 0, "V ",   0, -100, butwidth, UI_UNIT_Y, hsv+2, 0.0, max, 10, 3, "Value");
        uiButSetFunc(bt, do_hsv_rna_cb, bt, hsv);
        uiBlockEndAlign(block);

        if(rgb[3] != FLT_MAX) {
                bt= uiDefButR_prop(block, NUMSLI, 0, "A ",      0, -120, butwidth, UI_UNIT_Y, ptr, prop, 3, 0.0, 0.0, 0, 0, "Alpha");
                uiButSetFunc(bt, do_picker_rna_cb, bt, NULL);
        }
        else {
                rgb[3]= 1.0f;
        }

        sprintf(hexcol, "%02X%02X%02X", FTOCHAR(rgb_gamma[0]), FTOCHAR(rgb_gamma[1]), FTOCHAR(rgb_gamma[2]));

        bt= uiDefBut(block, TEX, 0, "Hex: ", 0, -60, butwidth, UI_UNIT_Y, hexcol, 0, 8, 0, 0, "Hex triplet for color (#RRGGBB)");
        uiButSetFunc(bt, do_hex_rna_cb, bt, hexcol);
        uiDefBut(block, LABEL, 0, "(Gamma Corrected)", 0, -80, butwidth, UI_UNIT_Y, NULL, 0.0, 0.0, 0, 0, "");

        rgb_to_hsv(rgb[0], rgb[1], rgb[2], hsv, hsv+1, hsv+2);

        picker_new_hide_reveal(block, colormode);
}


static int ui_picker_small_wheel_cb(const bContext *UNUSED(C), uiBlock *block, wmEvent *event)
{
        float add= 0.0f;
        
        if(event->type==WHEELUPMOUSE)
                add= 0.05f;
        else if(event->type==WHEELDOWNMOUSE)
                add= -0.05f;
        
        if(add!=0.0f) {
                uiBut *but;
                
                for(but= block->buttons.first; but; but= but->next) {
                        if(but->type==HSVCUBE && but->active==NULL) {
                                uiPopupBlockHandle *popup= block->handle;
                                float col[3];
                                float *hsv= ui_block_hsv_get(block);
                                
                                ui_get_but_vectorf(but, col);
                                
                                rgb_to_hsv_compat(col[0], col[1], col[2], hsv, hsv+1, hsv+2);
                                hsv[2]= CLAMPIS(hsv[2]+add, 0.0f, 1.0f);
                                hsv_to_rgb(hsv[0], hsv[1], hsv[2], col, col+1, col+2);

                                ui_set_but_vectorf(but, col);
                                
                                ui_update_block_buts_rgb(block, col);
                                if(popup)
                                        popup->menuretval= UI_RETURN_UPDATE;
                                
                                return 1;
                        }
                }
        }
        return 0;
}

uiBlock *ui_block_func_COL(bContext *C, uiPopupBlockHandle *handle, void *arg_but)
{
        uiBut *but= arg_but;
        uiBlock *block;
        
        block= uiBeginBlock(C, handle->region, "colorpicker", UI_EMBOSS);
        
        if (but->rnaprop) {
                if (RNA_property_subtype(but->rnaprop) == PROP_COLOR_GAMMA) {
                        block->color_profile = BLI_PR_NONE;
                }
        }
        
        uiBlockSetFlag(block, UI_BLOCK_MOVEMOUSE_QUIT);
        
        VECCOPY(handle->retvec, but->editvec);
        
        uiBlockPicker(block, handle->retvec, &but->rnapoin, but->rnaprop);
        
        block->flag= UI_BLOCK_LOOP|UI_BLOCK_REDRAW|UI_BLOCK_KEEP_OPEN|UI_BLOCK_OUT_1;
        uiBoundsBlock(block, 10);
        
        block->block_event_func= ui_picker_small_wheel_cb;
        
        /* and lets go */
        block->direction= UI_TOP;
        
        return block;
}

/************************ Popup Menu Memory ****************************/

static int ui_popup_string_hash(char *str)
{
        /* sometimes button contains hotkey, sometimes not, strip for proper compare */
        int hash;
        char *delimit= strchr(str, '|');

        if(delimit) *delimit= 0;
        hash= BLI_ghashutil_strhash(str);
        if(delimit) *delimit= '|';

        return hash;
}

static int ui_popup_menu_hash(char *str)
{
        return BLI_ghashutil_strhash(str);
}

/* but == NULL read, otherwise set */
uiBut *ui_popup_menu_memory(uiBlock *block, uiBut *but)
{
        static int mem[256], first=1;
        int hash= block->puphash;
        
        if(first) {
                /* init */
                memset(mem, -1, sizeof(mem));
                first= 0;
        }

        if(but) {
                /* set */
                mem[hash & 255 ]= ui_popup_string_hash(but->str);
                return NULL;
        }
        else {
                /* get */
                for(but=block->buttons.first; but; but=but->next)
                        if(ui_popup_string_hash(but->str) == mem[hash & 255])
                                return but;

                return NULL;
        }
}

/******************** Popup Menu with callback or string **********************/

struct uiPopupMenu {
        uiBlock *block;
        uiLayout *layout;
        uiBut *but;

        int mx, my, popup, slideout;
        int startx, starty, maxrow;

        uiMenuCreateFunc menu_func;
        void *menu_arg;
};

static uiBlock *ui_block_func_POPUP(bContext *C, uiPopupBlockHandle *handle, void *arg_pup)
{
        uiBlock *block;
        uiBut *bt;
        ScrArea *sa;
        ARegion *ar;
        uiPopupMenu *pup= arg_pup;
        int offset[2], direction, minwidth, width, height, flip;

        if(pup->menu_func) {
                pup->block->handle= handle;
                pup->menu_func(C, pup->layout, pup->menu_arg);
                pup->block->handle= NULL;
        }

        if(pup->but) {
                /* minimum width to enforece */
                minwidth= pup->but->x2 - pup->but->x1;

                if(pup->but->type == PULLDOWN || pup->but->menu_create_func) {
                        direction= UI_DOWN;
                        flip= 1;
                }
                else {
                        direction= UI_TOP;
                        flip= 0;
                }
        }
        else {
                minwidth= 50;
                direction= UI_DOWN;
                flip= 1;
        }

        block= pup->block;
        
        /* in some cases we create the block before the region,
           so we set it delayed here if necessary */
        if(BLI_findindex(&handle->region->uiblocks, block) == -1)
                uiBlockSetRegion(block, handle->region);

        block->direction= direction;

        uiBlockLayoutResolve(block, &width, &height);

        uiBlockSetFlag(block, UI_BLOCK_MOVEMOUSE_QUIT);
        
        if(pup->popup) {
                uiBlockSetFlag(block, UI_BLOCK_LOOP|UI_BLOCK_REDRAW|UI_BLOCK_NUMSELECT|UI_BLOCK_RET_1);
                uiBlockSetDirection(block, direction);

                /* offset the mouse position, possibly based on earlier selection */
                if((block->flag & UI_BLOCK_POPUP_MEMORY) &&
                        (bt= ui_popup_menu_memory(block, NULL))) {
                        /* position mouse on last clicked item, at 0.8*width of the
                           button, so it doesn't overlap the text too much, also note
                           the offset is negative because we are inverse moving the
                           block to be under the mouse */
                        offset[0]= -(bt->x1 + 0.8f*(bt->x2 - bt->x1));
                        offset[1]= -(bt->y1 + 0.5f*UI_UNIT_Y);
                }
                else {
                        /* position mouse at 0.8*width of the button and below the tile
                           on the first item */
                        offset[0]= 0;
                        for(bt=block->buttons.first; bt; bt=bt->next)
                                offset[0]= MIN2(offset[0], -(bt->x1 + 0.8f*(bt->x2 - bt->x1)));

                        offset[1]= 1.5*UI_UNIT_Y;
                }

                block->minbounds= minwidth;
                uiMenuPopupBoundsBlock(block, 1, offset[0], offset[1]);
        }
        else {
                /* for a header menu we set the direction automatic */
                if(!pup->slideout && flip) {
                        sa= CTX_wm_area(C);
                        ar= CTX_wm_region(C);

                        if(sa && sa->headertype==HEADERDOWN) {
                                if(ar && ar->regiontype == RGN_TYPE_HEADER) {
                                        uiBlockSetDirection(block, UI_TOP);
                                        uiBlockFlipOrder(block);
                                }
                        }
                }

                block->minbounds= minwidth;
                uiTextBoundsBlock(block, 50);
        }

        /* if menu slides out of other menu, override direction */
        if(pup->slideout)
                uiBlockSetDirection(block, UI_RIGHT);

        uiEndBlock(C, block);

        return pup->block;
}

uiPopupBlockHandle *ui_popup_menu_create(bContext *C, ARegion *butregion, uiBut *but, uiMenuCreateFunc menu_func, void *arg, char *str)
{
        wmWindow *window= CTX_wm_window(C);
        uiStyle *style= U.uistyles.first;
        uiPopupBlockHandle *handle;
        uiPopupMenu *pup;
        
        pup= MEM_callocN(sizeof(uiPopupMenu), "menu dummy");
        pup->block= uiBeginBlock(C, NULL, "ui_button_menu_create", UI_EMBOSSP);
        pup->layout= uiBlockLayout(pup->block, UI_LAYOUT_VERTICAL, UI_LAYOUT_MENU, 0, 0, 200, 0, style);
        pup->slideout= (but && (but->block->flag & UI_BLOCK_LOOP));
        pup->but= but;
        uiLayoutSetOperatorContext(pup->layout, WM_OP_INVOKE_REGION_WIN);

        if(!but) {
                /* no button to start from, means we are a popup */
                pup->mx= window->eventstate->x;
                pup->my= window->eventstate->y;
                pup->popup= 1;
                pup->block->flag |= UI_BLOCK_NO_FLIP;
        }

        if(str) {
                /* menu is created from a string */
                pup->menu_func= ui_block_func_MENUSTR;
                pup->menu_arg= str;
        }
        else {
                /* menu is created from a callback */
                pup->menu_func= menu_func;
                pup->menu_arg= arg;
        }
        
        handle= ui_popup_block_create(C, butregion, but, NULL, ui_block_func_POPUP, pup);

        if(!but) {
                handle->popup= 1;

                UI_add_popup_handlers(C, &window->modalhandlers, handle);
                WM_event_add_mousemove(C);
        }
        
        MEM_freeN(pup);

        return handle;
}

/******************** Popup Menu API with begin and end ***********************/

/* only return handler, and set optional title */
uiPopupMenu *uiPupMenuBegin(bContext *C, const char *title, int icon)
{
        uiStyle *style= U.uistyles.first;
        uiPopupMenu *pup= MEM_callocN(sizeof(uiPopupMenu), "popup menu");
        uiBut *but;
        
        pup->block= uiBeginBlock(C, NULL, "uiPupMenuBegin", UI_EMBOSSP);
        pup->block->flag |= UI_BLOCK_POPUP_MEMORY;
        pup->block->puphash= ui_popup_menu_hash((char*)title);
        pup->layout= uiBlockLayout(pup->block, UI_LAYOUT_VERTICAL, UI_LAYOUT_MENU, 0, 0, 200, 0, style);
        uiLayoutSetOperatorContext(pup->layout, WM_OP_EXEC_REGION_WIN);

        /* create in advance so we can let buttons point to retval already */
        pup->block->handle= MEM_callocN(sizeof(uiPopupBlockHandle), "uiPopupBlockHandle");
        
        /* create title button */
        if(title && title[0]) {
                char titlestr[256];
                
                if(icon) {
                        sprintf(titlestr, " %s", title);
                        uiDefIconTextBut(pup->block, LABEL, 0, icon, titlestr, 0, 0, 200, UI_UNIT_Y, NULL, 0.0, 0.0, 0, 0, "");
                }
                else {
                        but= uiDefBut(pup->block, LABEL, 0, title, 0, 0, 200, UI_UNIT_Y, NULL, 0.0, 0.0, 0, 0, "");
                        but->flag= UI_TEXT_LEFT;
                }
        }

        return pup;
}

/* set the whole structure to work */
void uiPupMenuEnd(bContext *C, uiPopupMenu *pup)
{
        wmWindow *window= CTX_wm_window(C);
        uiPopupBlockHandle *menu;
        
        pup->popup= 1;
        pup->mx= window->eventstate->x;
        pup->my= window->eventstate->y;
        
        menu= ui_popup_block_create(C, NULL, NULL, NULL, ui_block_func_POPUP, pup);
        menu->popup= 1;
        
        UI_add_popup_handlers(C, &window->modalhandlers, menu);
        WM_event_add_mousemove(C);
        
        MEM_freeN(pup);
}

uiLayout *uiPupMenuLayout(uiPopupMenu *pup)
{
        return pup->layout;
}

/*************************** Standard Popup Menus ****************************/

static void operator_name_cb(bContext *C, void *arg, int retval)
{
        const char *opname= arg;

        if(opname && retval > 0)
                WM_operator_name_call(C, opname, WM_OP_EXEC_DEFAULT, NULL);
}

static void operator_cb(bContext *C, void *arg, int retval)
{
        wmOperator *op= arg;
        
        if(op && retval > 0)
                WM_operator_call(C, op);
        else
                WM_operator_free(op);
}

static void confirm_cancel_operator(void *opv)
{
        WM_operator_free(opv);
}

static void vconfirm_opname(bContext *C, const char *opname, const char *title, const char *itemfmt, va_list ap)
{
        uiPopupBlockHandle *handle;
        char *s, buf[512];

        s= buf;
        if (title) s+= sprintf(s, "%s%%t|", title);
        vsnprintf(s, sizeof(buf) - (s - buf), itemfmt, ap);
        buf[sizeof(buf) - 1]= '\0';

        handle= ui_popup_menu_create(C, NULL, NULL, NULL, NULL, buf);

        handle->popup_func= operator_name_cb;
        handle->popup_arg= (void *)opname;
}

static void confirm_operator(bContext *C, wmOperator *op, const char *title, const char *item)
{
        uiPopupBlockHandle *handle;
        char *s, buf[512];
        
        s= buf;
        if (title) s+= sprintf(s, "%s%%t|%s", title, item);
        (void)s;
        
        handle= ui_popup_menu_create(C, NULL, NULL, NULL, NULL, buf);

        handle->popup_func= operator_cb;
        handle->popup_arg= op;
        handle->cancel_func= confirm_cancel_operator;
}

void uiPupMenuOkee(bContext *C, const char *opname, const char *str, ...)
{
        va_list ap;
        char titlestr[256];

        sprintf(titlestr, "OK? %%i%d", ICON_QUESTION);

        va_start(ap, str);
        vconfirm_opname(C, opname, titlestr, str, ap);
        va_end(ap);
}

void uiPupMenuSaveOver(bContext *C, wmOperator *op, const char *filename)
{
        size_t len= strlen(filename);

        if(len==0)
                return;

        if(filename[len-1]=='/' || filename[len-1]=='\\') {
                uiPupMenuError(C, "Cannot overwrite a directory");
                WM_operator_free(op);
                return;
        }
        if(BLI_exists(filename)==0)
                operator_cb(C, op, 1);
        else
                confirm_operator(C, op, "Save Over", filename);
}

void uiPupMenuNotice(bContext *C, const char *str, ...)
{
        va_list ap;

        va_start(ap, str);
        vconfirm_opname(C, NULL, NULL, str, ap);
        va_end(ap);
}

void uiPupMenuError(bContext *C, const char *str, ...)
{
        va_list ap;
        char nfmt[256];
        char titlestr[256];

        sprintf(titlestr, "Error %%i%d", ICON_ERROR);

        sprintf(nfmt, "%s", str);

        va_start(ap, str);
        vconfirm_opname(C, NULL, titlestr, nfmt, ap);
        va_end(ap);
}

void uiPupMenuReports(bContext *C, ReportList *reports)
{
        Report *report;
        DynStr *ds;
        char *str;

        if(!reports || !reports->list.first)
                return;
        if(!CTX_wm_window(C))
                return;

        ds= BLI_dynstr_new();

        for(report=reports->list.first; report; report=report->next) {
                if(report->type < reports->printlevel)
                        ; /* pass */
                else if(report->type >= RPT_ERROR)
                        BLI_dynstr_appendf(ds, "Error %%i%d%%t|%s", ICON_ERROR, report->message);
                else if(report->type >= RPT_WARNING)
                        BLI_dynstr_appendf(ds, "Warning %%i%d%%t|%s", ICON_ERROR, report->message);
                else if(report->type >= RPT_INFO)
                        BLI_dynstr_appendf(ds, "Info %%i%d%%t|%s", ICON_INFO, report->message);
        }

        str= BLI_dynstr_get_cstring(ds);
        if(str[0] != '\0')
                ui_popup_menu_create(C, NULL, NULL, NULL, NULL, str);
        MEM_freeN(str);

        BLI_dynstr_free(ds);
}

void uiPupMenuInvoke(bContext *C, const char *idname)
{
        uiPopupMenu *pup;
        uiLayout *layout;
        Menu menu;
        MenuType *mt= WM_menutype_find(idname, TRUE);

        if(mt==NULL) {
                printf("uiPupMenuInvoke: named menu \"%s\" not found\n", idname);
                return;
        }

        if(mt->poll && mt->poll(C, mt)==0)
                return;

        pup= uiPupMenuBegin(C, mt->label, ICON_NONE);
        layout= uiPupMenuLayout(pup);

        menu.layout= layout;
        menu.type= mt;

        mt->draw(C, &menu);

        uiPupMenuEnd(C, pup);
}


/*************************** Popup Block API **************************/

void uiPupBlockO(bContext *C, uiBlockCreateFunc func, void *arg, const char *opname, int opcontext)
{
        wmWindow *window= CTX_wm_window(C);
        uiPopupBlockHandle *handle;
        
        handle= ui_popup_block_create(C, NULL, NULL, func, NULL, arg);
        handle->popup= 1;
        handle->optype= (opname)? WM_operatortype_find(opname, 0): NULL;
        handle->opcontext= opcontext;
        
        UI_add_popup_handlers(C, &window->modalhandlers, handle);
        WM_event_add_mousemove(C);
}

void uiPupBlock(bContext *C, uiBlockCreateFunc func, void *arg)
{
        uiPupBlockO(C, func, arg, NULL, 0);
}

void uiPupBlockEx(bContext *C, uiBlockCreateFunc func, uiBlockCancelFunc cancel_func, void *arg)
{
        wmWindow *window= CTX_wm_window(C);
        uiPopupBlockHandle *handle;
        
        handle= ui_popup_block_create(C, NULL, NULL, func, NULL, arg);
        handle->popup= 1;
        handle->retvalue= 1;

        handle->popup_arg= arg;
        // handle->popup_func= operator_cb;
        handle->cancel_func= cancel_func;
        // handle->opcontext= opcontext;
        
        UI_add_popup_handlers(C, &window->modalhandlers, handle);
        WM_event_add_mousemove(C);
}

#if 0 /* UNUSED */
void uiPupBlockOperator(bContext *C, uiBlockCreateFunc func, wmOperator *op, int opcontext)
{
        wmWindow *window= CTX_wm_window(C);
        uiPopupBlockHandle *handle;
        
        handle= ui_popup_block_create(C, NULL, NULL, func, NULL, op);
        handle->popup= 1;
        handle->retvalue= 1;

        handle->popup_arg= op;
        handle->popup_func= operator_cb;
        handle->cancel_func= confirm_cancel_operator;
        handle->opcontext= opcontext;
        
        UI_add_popup_handlers(C, &window->modalhandlers, handle);
        WM_event_add_mousemove(C);
}
#endif

void uiPupBlockClose(bContext *C, uiBlock *block)
{
        if(block->handle) {
                UI_remove_popup_handlers(&CTX_wm_window(C)->modalhandlers, block->handle);
                ui_popup_block_free(C, block->handle);
        }
}

float *ui_block_hsv_get(uiBlock *block)
{
        return block->_hsv;
}