' Gambas module file

' Copyright(C) 2011-2014, Michał Głowienka aka eloaders <eloaders@linux.pl>
'
' This program is free software; you can redistribute it and/or modify
' it under the terms of the GNU General Public License as published by
' the Free Software Foundation; either version 3 of the License, or
' (at your option) any later version.
'
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with this program. If not, see <http://www.gnu.org/licenses/>.

Public Sub _inits()
 Dim DV As String = File.Load("" & User.Home & "/.i-nex/DistributionVendor.conf")
 Dim DE As String = File.Load("" & User.Home & "/.i-nex/DE.conf")
 Select Case DV
  Case Like "*Mint*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/mint.png"]
  
  Case Like "*Ubuntu*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/ubuntu.png"]
   Finfosys.PictureBox2.Name = "ubuntu.png"
  Case Like "*xUbuntu*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/xubuntu.png"]
   Finfosys.PictureBox2.Name = "xubuntu.png"
  Case Like "*SUSE*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/opensuse.png"]
   Finfosys.PictureBox2.Name = "opensuse.png"
  Case Like "*Manjaro*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/manjaro.png"]
   Finfosys.PictureBox2.Name = "manjaro.png"
  Case Like "*Fedora*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/fedora.png"]
   Finfosys.PictureBox2.Name = "fedora.png"
  Case Like "*Debian*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/debian.png"]
   Finfosys.PictureBox2.Name = "debian.png"
  Case Like "*Arch Linux*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/archlinux.png"]
   Finfosys.PictureBox2.Name = "archlinux.png"
  Case Like "*Sabayon*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/sabayon.png"]
   Finfosys.PictureBox2.Name = "sabayon.png"
  Case Like "*Gentoo*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/gentoo.png"]
   Finfosys.PictureBox2.Name = "gentoo.png"
  Case Like "*Red Hat Linux*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/redhat.png"]
   Finfosys.PictureBox2.Name = "redhat.png"
  Case Like "*Slackware*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/slackware.png"]
   Finfosys.PictureBox2.Name = "slackware.png"
  Case Like "*LMDE*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/Mint/linux_mint_LMDE_Big_sticker.png"]
   Finfosys.PictureBox2.Name = "Mint/linux_mint_LMDE_Big_sticker.png"
  Case Like "*elementary OS*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/elementaryos.png"]
   Finfosys.PictureBox2.Name = "elementaryos.png"
  Case Like "*LinuxDeepin*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/LinuxDeepin.png"]
   Finfosys.PictureBox2.Name = "LinuxDeepin.png"
  Case Like "*netrunner*"
   Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/netrunner.png"]
   Finfosys.PictureBox2.Name = "netrunner.png"
 End Select
 
 If DV Like "*Ubuntu*" And DE Like "*KDE*" Then
  Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/kubuntu.png"]
  Finfosys.PictureBox2.Name = "kubuntu.png"
 Endif
 If DV Like "*Ubuntu*" And DE Like "*XFCE*" Then
  Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/xubuntu.png"]
  Finfosys.PictureBox2.Name = "xubuntu.png"
 Endif
 If DV Like "*Mint*" And DE Like "*KDE*" Then
  Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/Mint/linux_mint_KDE_BIG_sticker.png"]
  Finfosys.PictureBox2.Name = "Mint/linux_mint_KDE_BIG_sticker.png"
 Endif
 If DV Like "*Mint*" And DE Like "*LXDE*" Then
  Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/Mint/linux_mint_LXDE_BIG_sticker.png"]
  Finfosys.PictureBox2.Name = "Mint/linux_mint_KDE_BIG_sticker.png"
 Endif
 If DV Like "*Mint*" And DE Like "*Fluxbox*" Then
  Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/Mint/linux_mint_Fluxbox_BIG_sticker.png"]
  Finfosys.PictureBox2.Name = "Mint/linux_mint_Fluxbox_BIG_sticker.png"
 Endif
 If DV Like "*Mint*" And DE Like "*XFCE*" Then
  Finfosys.PictureBox2.Picture = Picture["Database/Distlogos/Mint/linux_mint_XFCE_Big_sticker.png"]
  Finfosys.PictureBox2.Name = "Mint/linux_mint_XFCE_Big_sticker.png"
 Endif
'Mageia
' Mandriva
' Mandrake
' Kali Linux
' Raspbian
' FreeBSD
' OpenBSD
' DragonFlyBSD
' NetBSD
' CrunchBang
' Funtoo
' Slackware
' Frugalware
' Peppermint
' SolusOS
' ParabolaGNU / Linux - libre
' Viperr
' LinuxDeepin
' Chakra
' CentOS
' Mac OS X
' Fuduntu
End

