Development
: K-Meleon Web Browser Forum
K-Meleon development related discussions.
Go to:
Forum List
•
Message List
•
Search
•
Log In
Your Name:
Subject:
Help information
BBcode help
Smileys help
Spam prevention:
Please, enter the code that you see below in the input field. This is for blocking bots that try to post this form automatically. If the code is hard to read, then just try to guess it right. If you enter the wrong code, a new image is created and you get another chance to enter it right.
[Please, enable JavaScript to see the code]
Enter code:
[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]
[Please Enable JavaScript]
K-Meleon forum is powered by
Phorum
.
Home/News
Screenshots
Download
Documentation
Resources
Get Involved
Forum
FAQ
English