K-Meleon :: Development

Development : K-Meleon Forum

K-Meleon development related discussions.

Goto: Forum List•Message List•Search•Log In

Your Name:
Subject:

Help information

[quote=JamesD]
@ desga2

I think I have Groups2 deleting from menu.  See code at lines 99, 147, and 150.

[b]Groups2.kmm[/b]

[code]
#  K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)
# File name: Groups2.kmm
# ---------- Groups2 in tabs for K-Meleon 1.5.x ----
#
# Dependencies        : - main.kmm KM version 1.5 tabs
# Resources           : - 
# Preferences         : - k-meleon_Groups2.<name>.<#>
#                     : - k-meleon_Groups2.<name>.count
#                     : - k-meleon_Groups2.list
# Version             : - 0.2c 2008-12-29
# Authors             : JamesD and desga2
# --------------------------------------------------------------------------------

_GroupsUnit_RunCode_Save{
macroinfo="Save the current tab's URLS";
$_GroupsUnit_Name = prompt("Assign a name for this group.", "GroupUnit Name (save)");
if($_GroupsUnit_Name != "" ){
	$_Glist="";
	$_Glist=getpref( STRING, "k-meleon_Groups2.list");
	if(index( $_Glist, $_GroupsUnit_Name ) != -1){
		$_Goverwrite = confirm("Grup name: '".$_GroupsUnit_Name."' already exist.\nDo you want overwrite it?", "GroupUnit Name (save)", YESNO, QUESTION);
		$_Goverwrite == "YES" ? plugin(macros,"_Goverwrite(".$_GroupsUnit_Name.")") : 0;
	} else {
		$_Glist=$_Glist.$_GroupsUnit_Name."|";
		setpref( STRING, "k-meleon_Groups2.list", $_Glist );
		$_GroupsUnit_Number_of_Tabs = $TabNumber;
		$_GroupsUnit_Tab_Count = 0;
		while( $_GroupsUnit_Tab_Count < $_GroupsUnit_Number_of_Tabs ) &_GroupsUnit_Save_Loop;
		&_Groups2_BuildGroupsMenu;
	}
}
}

_GroupsUnit_Save_Loop{
$_GroupsUnit_Tab_Count == 0 ? setpref( INT, "k-meleon_Groups2.".$_GroupsUnit_Name.".count", $_GroupsUnit_Number_of_Tabs ) :0;
id(ID_TAB_NEXT);
setpref( STRING, "k-meleon_Groups2.".$_GroupsUnit_Name.".".$_GroupsUnit_Tab_Count, $URL );
$_GroupsUnit_Tab_Count = $_GroupsUnit_Tab_Count + 1;
}

_Goverwrite{
$_GroupsUnit_Name = $ARG;
#alert("Group name in $ARG: ".$_GroupsUnit_Name, "Groups2 DEBUG", INFO);
# First Delete:
$_GroupsUnit_Number_of_Tabs = getpref( INT, "k-meleon_Groups2.".$_GroupsUnit_Name.".count");
$_GroupsUnit_Tab_Count = 0 ;
while( $_GroupsUnit_Tab_Count < $_GroupsUnit_Number_of_Tabs ) &_GroupsUnit_Delete_Loop;
# Second Save:
$_GroupsUnit_Number_of_Tabs = $TabNumber;
$_GroupsUnit_Tab_Count = 0;
while( $_GroupsUnit_Tab_Count < $_GroupsUnit_Number_of_Tabs ) &_GroupsUnit_Save_Loop;
}

_Groups2_OpenGroup{
$_GroupsUnit_Name = $ARG;
#alert("Group name in $ARG: ".$_GroupsUnit_Name, "Groups2 DEBUG", INFO);
$_GroupsUnit_Name==""?$_GroupsUnit_Name=$URLBAR:0; $_GroupsUnit_Name==""?$_Group=$URL:0;
$_GroupsUnit_Name==$URL?0:$_GroupsUnit_Number_of_Tabs = getpref( INT, "k-meleon_Groups2.".$_GroupsUnit_Name.".count");
$_GroupsUnit_Tab_Count = 0 ;
if($_GroupsUnit_Name != $URL ) while($_GroupsUnit_Tab_Count<$_GroupsUnit_Number_of_Tabs) &_GroupsUnit_Load_Loop;
}

_GroupsUnit_RunCode_Load{
$_GroupsUnit_Name = prompt("Enter name of group to load.", "GroupUnit Name (load)");
if($_GroupsUnit_Name != "" ){
	$_Glist="";
	$_Glist=getpref( STRING, "k-meleon_Groups2.list");
	if(index( $_Glist, $_GroupsUnit_Name ) != -1){
		$_GroupsUnit_Number_of_Tabs = getpref( INT, "k-meleon_Groups2.".$_GroupsUnit_Name.".count");
		$_GroupsUnit_Tab_Count = 0 ;
		id(ID_CLOSE_ALLTAB);
		$URLBAR="about:blank";
		while( $_GroupsUnit_Tab_Count < $_GroupsUnit_Number_of_Tabs ) &_GroupsUnit_Load_Loop;
	} else {
		alert("No group found with name: ".$_GroupsUnit_Name, "GroupUnit Name (load)", EXCLAIM);
	}
}
}

_GroupsUnit_Load_Loop{
$_GroupsUnit_URL = getpref(STRING, "k-meleon_Groups2.".$_GroupsUnit_Name.".".$_GroupsUnit_Tab_Count, $URL );
if($URLBAR=="about:blank"){
	open($_GroupsUnit_URL);
	$URLBAR="";
} else {
	opentab( $_GroupsUnit_URL );
}
$_GroupsUnit_Tab_Count = $_GroupsUnit_Tab_Count + 1;
}

_GroupsUnit_RunCode_Delete{
$_GroupsUnit_Name = prompt("Enter name of group to delete.", "GroupUnit Name (delete)");
if($_GroupsUnit_Name != "" ){
	$_Glist="";
	$_Glist=getpref( STRING, "k-meleon_Groups2.list");
	if(index( $_Glist, $_GroupsUnit_Name ) != -1){
		$_Glist = sub( $_GroupsUnit_Name."|", "", $_Glist );
		setpref( STRING, "k-meleon_Groups2.list", $_Glist );
		$_GroupsUnit_DelName = $_GroupsUnit_Name;
		$_GroupsUnit_Number_of_Tabs = getpref( INT, "k-meleon_Groups2.".$_GroupsUnit_Name.".count");
		$_GroupsUnit_Tab_Count = 0 ;
		while( $_GroupsUnit_Tab_Count < $_GroupsUnit_Number_of_Tabs ) &_GroupsUnit_Delete_Loop;
		#setmenu("_Groups_List",macro,"","");
		#alert($_Glist."\n just prior to call to _Groups2_BuildGroupsMenu", "DEBUG", "INFO");
		&_Groups2_BuildGroupsMenu;
	} else {
		alert("No group found with name: ".$_GroupsUnit_Name, "GroupUnit Name (delete)", EXCLAIM);
	}
}
}

_GroupsUnit_Delete_Loop{
$_GroupsUnit_Tab_Count == 0 ? delpref("k-meleon_Groups2.".$_GroupsUnit_Name.".count"):0;
delpref("k-meleon_Groups2.".$_GroupsUnit_Name.".".$_GroupsUnit_Tab_Count);
$_GroupsUnit_Tab_Count = $_GroupsUnit_Tab_Count + 1 ;
}

_Groups2_BuildMenu{
# Groups menu
if($kTabs){
	$_g="&Groups";
	setmenu(Main,popup,$_g,"&Tools");
	$__m="_Groups";
	setmenu($_g,inline,$__m);
	setmenu($__m,macro,"&Save a group",_GroupsUnit_RunCode_Save);
	setmenu($__m,macro,"&Load a group",_GroupsUnit_RunCode_Load);
	setmenu($__m,macro,"&Delete a group",_GroupsUnit_RunCode_Delete);
	setmenu($__m,separator,3);
	&_Groups2_BuildGroupsMenu;
}
}

_Groups2_BuildGroupsMenu{
  #alert("Just starting _Groups2_BuildGroupsMenu", "DEBUG", "INFO");
  $_g="&Groups";
  $_m="_Groups_List";
  setmenu($_g,inline,$_m);
  $__glist=getpref( STRING, "k-meleon_Groups2.list");
  #alert("Group list:\n".$__glist, "Groups2 DEBUG", INFO);
  while($__glist != ""){
	$__gname = substr($__glist, 0 , index($__glist, "|"));
	#alert("Group name:\n".$__gname, "Groups2 DEBUG", INFO);
	setmenu($_m,macro,$__gname,"_Groups2_OpenGroup(".$__gname.")");
	$__glist=sub( $__gname."|", "", $__glist );
	#alert("Group list:\n".$__glist, "Groups2 DEBUG", INFO);
    }
  $_GroupsUnit_DelName != ""?setmenu($_m,macro,$_GroupsUnit_DelName,"") : 0;
  rebuildmenu($_g);
  rebuildmenu($_m);
  $_GroupsUnit_DelName = "";
}

_Groups2_SetAccels{
# SHIFT VK_RETURN not work
setaccel("ALT VK_RETURN","macros(_Groups2_OpenGroup)");
}

$OnInit=$OnInit."_Groups2_SetAccels;_Groups2_BuildMenu;";
$macroModules=$macroModules."Groups2;";

[/code][/quote]

K-Meleon forum is powered by Phorum.