Website Bookmarker Dialog

By slub77 on May 19, 2010

Name:Website Bookmarker
Type:Dialog
Price:Free :P
Features:Bookmark webpages; Add them to groups;Add an image for that group

Personal View:I think it's just a handy thing to have, you can add websites to a certain group, like say Hawkee group, then add snippets and give them nicknames, like this one you could simply call "Website bookmark" and then when you click on it, you can just click open and it opens the web page up for you.

Preview:
Image

Rating: That's up to you

dialog Websites {
  title MIRC Bookmark manager
  size -1 -1 200 120
  option dbu
  combo 1, 1 5 80 10, drop
  list 2, 1 15 80 100
  button OPEN, 3, 1 110 80 10, flat, disable
  box Bookmark man.,4, 85 5 110 110
  button Add website,5,90 15 100 10, disable
  button Remove Link,6,90 25 100 10, disable
  button Add Group,7,90 35 100 10
  edit ,8,90 45 100 20, read, rich
  icon 9, 90 65 100 45,
  button Sel img,10,90 110 100 10
}
alias web { dialog -ma websites websites }
on *:DIALOG:Websites:init:*:{
  if !$ini(bookmark.ini,Main_Index) { writeini bookmark.ini Main_Index Hawkee http://www.hawkee.com }
else { did -f $dname 1 1 | var %A $calc($ini(bookmark.ini,0) +1) | var %B 1 | while (%a != %b) { did -o $dname 1 %b $replace($ini(bookmark.ini,%b),_,$chr(32)) | inc %b } } }
on *:DIALOG:Websites:sclick:*:{
  if $did == 1 { did -r $dname 2 | did -e $dname 5 | var %A $calc($ini(bookmark.ini,$replace($did(1,0).seltext,$chr(32),_),0) +1) | var %B 1 | var %c 1 | while (%a != %b) { if $replace($ini(bookmark.ini,$replace($did(1,0).seltext,$chr(32),_),%b),_,$chr(32)) != imgofrthisgroup { did -o $dname 2 %c $replace($ini(bookmark.ini,$replace($did(1,0).seltext,$chr(32),_),%b),_,$chr(32)))  | inc %c } | inc %b } | $iif($len($readini(bookmark.ini,$replace($did(1,0).seltext,$chr(32),_),imgofrthisgroup)) >= 10,did -g $dname 9 $shortfn($readini(bookmark.ini,$replace($did(1,0).seltext,$chr(32),_),imgofrthisgroup)))  }
  if $did == 2 { did -e $dname 3 | did -e $dname 6 | did -o $dname 8 1 $readini(bookmark.ini,$replace($did(1,0).seltext,$chr(32),_),$replace($did(2,0).seltext,$chr(32),_)) }
  if $did == 3 { run $readini(bookmark.ini,$did(1,0).seltext,$did(2,0).seltext) }
  if $did == 5 { noop $?="Enter the websites URL" | $iif(!$!,halt,$websiteadd($!)) | noop  $?="Enter the websites NickName" | $iif(!$!,halt,writeini bookmark.ini $did(1,0).seltext $replace($!,$chr(32),_) %website.name ) | webcrash }
  if $did == 6 { remini bookmark.ini $did(1,0).seltext $did(2,0).seltext | noop $input(Item Removed $+([,$did(2,0).seltext,]),y) | webcrash }
  if $did == 7 { noop $?="Enter the new group" | set %website.g $replace($!,$chr(32),_) | $iif(!$!,halt,$webnewg($!)) | webcrash }
if $did == 10 { writeini bookmark.ini $replace($did(1,0).seltext,$chr(32),_) imgofrthisgroup $+(",$sfile(Choose a picure,Picture for the group,This picture),) } }
alias webcrash { var %a $dname | var %b $did(1,0).sel | dialog -x %a %a | dialog -ma %a %a | did -fc $dname 1 %b }
alias webnewg { noop $?="Enter the first websites URL" | $iif(!$!,halt,$websiteadd($!)) | noop $?="Enter the websites NickName" | $iif(!$!,halt,$newwebg($!)) | unset %website.name }
alias newwebg { writeini bookmark.ini %website.g $replace($1,$chr(32),_) %website.name | writeini bookmark.ini %website.g imgofrthisgroup $+(",$sfile(Choose a picure,Picture for the group,This picture),) }
alias ch { echo -a $replace($1-,$chr(32),_) }
alias websiteadd { if http:// !isin $1 { set %website.name $+(http://,$1) }
else { set %website.name $1 } }
menu * {
  Website Bookmarks:/dialog -ma Websites Websites
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.