- restored scriptlink buttons

  i tried to find place for it in the other menus, like material, object,
  camera, etc. But thats hard... now it's just one nice Panel, without
  the idiot headerbuttons icons!
- changed drawing of 'tabbed' Panels. The old method takes too much space.
  hint from xype! Dragging tabbed Panels can be done with the right hand
  circle. designers are welcom to tweak this.
  main reason: dragging is not meant to be happening a lot... pressing tabs
  is more important.

1 files changed, 257 insertions, 4 deletions

diff --git a/source/blender/src/buttons_script.c b/source/blender/src/buttons_script.c
index 834b1083d4e..9e0593509c5 100644
--- a/source/blender/src/buttons_script.c
+++ b/source/blender/src/buttons_script.c
@@ -44,13 +44,52 @@
 #endif
 
 #include "MEM_guardedalloc.h"
+#include "DNA_action_types.h"
+#include "DNA_armature_types.h"
+#include "DNA_camera_types.h"
+#include "DNA_constraint_types.h"
+#include "DNA_curve_types.h"
+#include "DNA_effect_types.h"
+#include "DNA_group_types.h"
+#include "DNA_ika_types.h"
+#include "DNA_image_types.h"
+#include "DNA_key_types.h"
+#include "DNA_lamp_types.h"
+#include "DNA_lattice_types.h"
+#include "DNA_material_types.h"
+#include "DNA_meta_types.h"
+#include "DNA_mesh_types.h"
+#include "DNA_object_types.h"
+#include "DNA_radio_types.h"
 #include "DNA_screen_types.h"
-#include "DNA_space_types.h"
 #include "DNA_scene_types.h"
+#include "DNA_sound_types.h"
+#include "DNA_texture_types.h"
+#include "DNA_userdef_types.h"
+#include "DNA_vfont_types.h"
+#include "DNA_view3d_types.h"
+#include "DNA_world_types.h"
+#include "DNA_space_types.h"
 
+#include "BKE_anim.h"
+#include "BKE_armature.h"
+#include "BKE_constraint.h"
+#include "BKE_curve.h"
+#include "BKE_displist.h"
+#include "BKE_effect.h"
+#include "BKE_font.h"
+#include "BKE_ika.h"
+#include "BKE_image.h"
+#include "BKE_ipo.h"
+#include "BKE_lattice.h"
+#include "BKE_material.h"
+#include "BKE_mball.h"
+#include "BKE_mesh.h"
+#include "BKE_object.h"
+#include "BKE_sound.h"
+#include "BKE_texture.h"
 #include "BKE_global.h"
-#include "BKE_main.h"
-#include "BKE_library.h"
+#include "BKE_utildefines.h"
 
 #include "BLI_blenlib.h"
 
@@ -73,10 +112,224 @@
 #include "interface.h"
 #include "mydevice.h"
 #include "blendef.h"
+#include "butspace.h"
 
 
-void script_panels()
+
+
+
+
+/* *************************** SCRIPT ******************************** */
+
+static void extend_scriptlink(ScriptLink *slink)
+{
+	void *stmp, *ftmp;
+
+	if (!slink) return;
+		
+	stmp= slink->scripts;		
+	slink->scripts= MEM_mallocN(sizeof(ID*)*(slink->totscript+1), "scriptlistL");
+	
+	ftmp= slink->flag;		
+	slink->flag= MEM_mallocN(sizeof(short*)*(slink->totscript+1), "scriptlistF");
+	
+	if (slink->totscript) {
+		memcpy(slink->scripts, stmp, sizeof(ID*)*(slink->totscript));
+		MEM_freeN(stmp);
+
+		memcpy(slink->flag, ftmp, sizeof(short)*(slink->totscript));
+		MEM_freeN(ftmp);
+	}
+
+	slink->scripts[slink->totscript]= NULL;
+	slink->flag[slink->totscript]= SCRIPT_FRAMECHANGED;
+
+	slink->totscript++;
+				
+	if(slink->actscript<1) slink->actscript=1;
+}
+
+static void delete_scriptlink(ScriptLink *slink)
 {
+	int i;
+	
+	if (!slink) return;
+	
+	if (slink->totscript>0) {
+		for (i=slink->actscript-1; i<slink->totscript-1; i++) {
+			slink->flag[i]= slink->flag[i+1];
+			slink->scripts[i]= slink->scripts[i+1];
+		}
+		
+		slink->totscript--;
+	}
+		
+	CLAMP(slink->actscript, 1, slink->totscript);
+		
+	if (slink->totscript==0) {
+		if (slink->scripts) MEM_freeN(slink->scripts);
+		if (slink->flag) MEM_freeN(slink->flag);
+
+		slink->scripts= NULL;
+		slink->flag= NULL;
+		slink->totscript= slink->actscript= 0;			
+	}
+}
+
+void do_scriptbuts(unsigned short event)
+{
+	Object *ob=NULL;
+	ScriptLink *script=NULL;
+	Material *ma;
+	
+	switch (event) {
+	case B_SSCRIPT_ADD:
+		extend_scriptlink(&G.scene->scriptlink);
+		break;
+	case B_SSCRIPT_DEL:
+		delete_scriptlink(&G.scene->scriptlink);
+		break;
+		
+	case B_SCRIPT_ADD:
+	case B_SCRIPT_DEL:
+		ob= OBACT;
+
+		if (ob && G.buts->scriptblock==ID_OB) {
+				script= &ob->scriptlink;
+
+		} else if (ob && G.buts->scriptblock==ID_MA) {
+			ma= give_current_material(ob, ob->actcol);
+			if (ma)	script= &ma->scriptlink;
+
+		} else if (ob && G.buts->scriptblock==ID_CA) {
+			if (ob->type==OB_CAMERA)
+				script= &((Camera *)ob->data)->scriptlink;
+
+		} else if (ob && G.buts->scriptblock==ID_LA) {
+			if (ob->type==OB_LAMP)
+				script= &((Lamp *)ob->data)->scriptlink;
+
+		} else if (G.buts->scriptblock==ID_WO) {
+			if (G.scene->world) 
+				script= &(G.scene->world->scriptlink);
+		}
+		
+		if (event==B_SCRIPT_ADD) extend_scriptlink(script);
+		else delete_scriptlink(script);
+		
+		break;
+	default:
+		break;
+	}
+
+	allqueue(REDRAWBUTSSCRIPT, 0);
+}
+
+void draw_scriptlink(uiBlock *block, ScriptLink *script, int sx, int sy, int scene) 
+{
+	char str[256];
+
+	uiBlockSetCol(block, BUTGREY);
 
+	if (script->totscript) {
+		strcpy(str, "FrameChanged%x 1|");
+		strcat(str, "Redraw%x 4|");
+		if (scene) {
+			strcat(str, "OnLoad%x 2");
+		}
+
+		uiDefButS(block, MENU, 1, str, (short)sx, (short)sy, 140, 19, &script->flag[script->actscript-1], 0, 0, 0, 0, "Script links for the Frame changed event");
+
+		uiDefIDPoinBut(block, test_scriptpoin_but, 1, "", (short)(sx+140),(short)sy, 140, 19, &script->scripts[script->actscript-1], "Name of Script to link");
+	}
+
+	sprintf(str,"%d Scr:", script->totscript);
+	uiDefButS(block, NUM, REDRAWBUTSSCRIPT, str, (short)(sx+140), (short)sy-20,60,19, &script->actscript, 1, script->totscript, 0, 0, "Total / Active Script link (LeftMouse + Drag to change)");
+
+	uiBlockSetCol(block, BUTSALMON);
+
+	if (scene) {
+		if (script->totscript<32767) 
+			uiDefBut(block, BUT, B_SSCRIPT_ADD, "New", (short)(sx+240), (short)sy-20, 40, 19, 0, 0, 0, 0, 0, "Add a new Script link");
+		if (script->totscript) 
+			uiDefBut(block, BUT, B_SSCRIPT_DEL, "Del", (short)(sx+200), (short)sy-20, 40, 19, 0, 0, 0, 0, 0, "Delete the current Script link");
+
+		uiDefBut(block, LABEL, 0, "Scene scriptlink",	sx,sy-20,140,20, 0, 0, 0, 0, 0, "");
+
+	} 
+	else {
+		if (script->totscript<32767) 
+			uiDefBut(block, BUT, B_SCRIPT_ADD, "New", (short)(sx+240), (short)sy-20, 40, 19, 0, 0, 0, 0, 0, "Add a new Script link");
+		if (script->totscript) 
+			uiDefBut(block, BUT, B_SCRIPT_DEL, "Del", (short)(sx+200), (short)sy-20, 40, 19, 0, 0, 0, 0, 0, "Delete the current Script link");
+
+		uiDefBut(block, LABEL, 0, "Selected scriptlink",	sx,sy-20,140,20, 0, 0, 0, 0, 0, "");
+	}		
+}
+
+/* ************************************* */
+
+static void  script_panel_scriptlink(void)
+{
+	uiBlock *block;
+	Object *ob=NULL;
+	ScriptLink *script=NULL;
+	Material *ma;
+	int xco = 10;
+	
+	block= uiNewBlock(&curarea->uiblocks, "script_panel_scriptlink", UI_EMBOSSX, UI_HELV, curarea->win);
+	if(uiNewPanel(curarea, block, "Scriptlinks", "Script", 0, 0, 318, 204)==0) return;
+	
+	
+	ob= OBACT;
+	if(ob) 
+		uiDefIconButS(block, ROW, B_REDR, ICON_OBJECT, xco,180,25,20, &G.buts->scriptblock,  2.0, (float)ID_OB, 0, 0, "Displays Object script links");
+
+	if(ob && give_current_material(ob, ob->actcol))
+		uiDefIconButS(block, ROW, B_REDR, ICON_MATERIAL,	xco+=25,180,25,20, &G.buts->scriptblock, 2.0, (float)ID_MA, 0, 0, "Displays Material script links ");
+
+	if(G.scene->world) 
+		uiDefIconButS(block, ROW, B_REDR, ICON_WORLD,	xco+=25,180,25,20, &G.buts->scriptblock, 2.0, (float)ID_WO, 0, 0, "Displays World script links");
+
+	if(ob && ob->type==OB_CAMERA)
+		uiDefIconButS(block, ROW, B_REDR, ICON_CAMERA,	xco+=25,180,25,20, &G.buts->scriptblock, 2.0, (float)ID_CA, 0, 0, "Displays Camera script links");
+
+	if(ob && ob->type==OB_LAMP)
+		uiDefIconButS(block, ROW, B_REDR, ICON_LAMP,	xco+=25,180,25,20, &G.buts->scriptblock, 2.0, (float)ID_LA, 0, 0, "Displays Lamp script links");
+
+
+	if (ob && G.buts->scriptblock==ID_OB) {
+		script= &ob->scriptlink;
+		
+	} else if (ob && G.buts->scriptblock==ID_MA) {
+		ma= give_current_material(ob, ob->actcol);
+		if (ma)	script= &ma->scriptlink;
+		
+	} else if (ob && G.buts->scriptblock==ID_CA) {
+		if (ob->type==OB_CAMERA)
+			script= &((Camera *)ob->data)->scriptlink;
+			
+	} else if (ob && G.buts->scriptblock==ID_LA) {
+		if (ob->type==OB_LAMP)
+			script= &((Lamp *)ob->data)->scriptlink;
+
+	} else if (G.buts->scriptblock==ID_WO) {
+		if (G.scene->world)
+			script= &(G.scene->world->scriptlink);
+	}
+
+	if (script) draw_scriptlink(block, script, 10, 140, 0);			
+
+	draw_scriptlink(block, &G.scene->scriptlink, 10, 80, 1);
+
+
+}
+
+
+
+
+void script_panels()
+{
+	script_panel_scriptlink();
 	
 }