on *:start: { dialog -m Solbar Solbar }

menu * { 
  -
  .» Yan Menü Aç/Kapat
  .» Aç:.dialog -m Solbar Solbar  | echo -a  2 $me Menü açıldı. %fullname
  .» Kapat:.dialog -x Solbar Solbar  | echo -a  2 $me Menü kapatıldı. %fullname
  -
}
alias _tb {
  if $dialog(tb) {
    dialog -c tb tb
  }
  else {
    dialog -m tb tb
  }
}

dialog Solbar {
  title "SohbetSen2"
  size 5 5 30 514
  option dbu
  list 1, 4 2 42 389, size
}
on *:dialog:Solbar:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style 
  mdx SetFont $dname 1 13 700 Tahoma
  rebar HideToolbar .
  rebar Dock $dialog(Solbar).hwnd > left
  mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
  mdx SetBorderStyle 1

  did -i $dname 1 1 bmpsize 29 29
  did -a $dname 1 +a 1 $chr(32) _____ $chr(9) $+ Facebook Anasayfasını Açar
  did -a $dname 1 +a 2 $chr(32) _____ $chr(9) $+ Twitter Anasayfasını Açar
  did -a $dname 1 +a 3 $chr(32) _____ $chr(9) $+ Youtube Anasayfasını Açar
  did -a $dname 1 +a 4 $chr(32) _____ $chr(9) $+ Yahoo Anasayfasını Açar
  did -a $dname 1 +a 5 $chr(32) _____ $chr(9) $+ Myspace.Com Anasayfasını Açar
  did -a $dname 1 +a 6 $chr(32) _____ $chr(9) $+ Msn Anasayfasını Açar
  did -a $dname 1 +a 7 $chr(32) _____ $chr(9) $+ Google Mail Anasayfasını Açar
  did -a $dname 1 +a 8 $chr(32) _____ $chr(9) $+ Mynet.com Anasayfasını Açar
  did -a $dname 1 +a 9 $chr(32) _____ $chr(9) $+ İzlesene.com Anasayfasını Açar
  did -a $dname 1 +a 10 $chr(32) _____ $chr(9) $+ Gazeteoku.com Anasayfasını Açar
  did -a $dname 1 +a 11 $chr(32) _____ $chr(9) $+ TFF.org Anasayfasını Açar

  did -i $dname 1 1 setimage icon large SohbetSen\ico\25.ico
  did -i $dname 1 1 setimage icon large SohbetSen\ico\26.ico
  did -i $dname 1 1 setimage icon large SohbetSen\ico\27.ico
  did -i $dname 1 1 setimage icon large SohbetSen\ico\28.ico
  did -i $dname 1 1 setimage icon large SohbetSen\ico\29.ico
  did -i $dname 1 1 setimage icon large SohbetSen\ico\30.ico
  did -i $dname 1 1 setimage icon large SohbetSen\ico\31.ico
  did -i $dname 1 1 setimage icon large SohbetSen\ico\32.ico
  did -i $dname 1 1 setimage icon large SohbetSen\ico\33.ico
  did -i $dname 1 1 setimage icon large SohbetSen\ico\34.ico
  did -i $dname 1 1 setimage icon large SohbetSen\ico\35.ico
}
on *:dialog:Solbar:sclick:*: {
  if  ($did($dname,1).sel == 2) { 
    if (!$window(@Facebook)) {
      window -pek[0] @Facebook
      nhtml attach $window(@Facebook).hwnd
    }
    nhtml navigate www.facebook.com
  }
  elseif ($did($dname,1).sel == 3) { 
    if (!$window(@Twitter)) {
      window -pek[0] @Twitter
      nhtml attach $window(@Twitter).hwnd
    }
    nhtml navigate www.twitter.com 
  }
  elseif ($did($dname,1).sel == 4) { 
    if (!$window(@Youtube)) {
      window -pek[0] @Youtube
      nhtml attach $window(@Youtube).hwnd
    }
    nhtml navigate www.youtube.com 
  }
  elseif ($did($dname,1).sel == 5) { 
    if (!$window(@YaHoO)) {
      window -pek[0] @YaHoO
      nhtml attach $window(@YaHoO).hwnd
    }
    nhtml navigate http://tr.yahoo.com/?p=us
  }
  elseif ($did($dname,1).sel == 6) { 
    if (!$window(@MysPace)) {
      window -pek[0] @MysPace
      nhtml attach $window(@MysPace).hwnd
    }
    nhtml navigate www.myspace.com 
  }
  elseif ($did($dname,1).sel == 7) {     
    if (!$window(@Msn)) {
      window -pek[0] @Msn
      nhtml attach $window(@Msn).hwnd
    }
    nhtml navigate http://tr.msn.com/?st=1 
  }
  elseif ($did($dname,1).sel == 8) { 
    if (!$window(@Gmail)) {
      window -pek[0] @Gmail
      nhtml attach $window(@Gmail).hwnd
    }
    nhtml navigate www.gmail.com 
  }
  elseif ($did($dname,1).sel == 9) { 
    if (!$window(@MyneT)) {
      window -pek[0] @MyneT
      nhtml attach $window(@MyneT).hwnd
    }
    nhtml navigate www.mynet.com 
  }

  elseif ($did($dname,1).sel == 10) { 
    if (!$window(@İzleCom)) {
      window -pek[0] @İzleCom
      nhtml attach $window(@İzleCom).hwnd
    }
    nhtml navigate http://www.izlesene.com
  }

  elseif ($did($dname,1).sel == 11) { 
    if (!$window(@Gazete)) {
      window -pek[0] @Gazete
      nhtml attach $window(@Gazete).hwnd
    }
    nhtml navigate http://www.gazeteoku.com
  }

  elseif ($did($dname,1).sel == 12) { 
    if (!$window(@TFF.ORG)) {
      window -pek[0] @TFF.ORG
      nhtml attach $window(@TFF.ORG).hwnd
    }
    nhtml navigate http://www.tff.org

  }

}



alias -l go.to.url {
  if (!$window(@WebSite)) {
    window -pek[0] @WebSite
    editbox -a Yeni gidilecek adresi buraya girin ve enterleyin: Örneğin: www.sohbetsen.org
    nhtml attach $window(@WebSite).hwnd
  }
  nhtml navigate $1
}
on *:input:@WebSite: go.to.url $1

alias nhtml dll $shortfn($mircdirSohbetSen/dll/nHTMLn_2.95.dll) $1-
