[Gambas-user] [Gambas Bug Tracker] Bug #1220: error select case (format code)

[bugtracker at gambaswiki.org]

http://gambaswiki.org/bugtracker/edit?object=BUG.1220&from=L21haW4-

Víctor PEREZ reported a new bug.

Summary
-------

error select case (format code)

Type             : Bug
Priority         : Low
Gambas version   : Unknown
Product          : Bugtracker


Description
-----------

Public Sub cbxBuscar_Enter()
  
  Select Case cbxBuscar.Index '25 dic 2017
    Case 0 'Todos
      cbxBuscar.Tooltip = "Buscará en todos los libros de las Escrituras"
      
    Case 1 'Nuevo Testamento
      cbxBuscar.Tooltip = "<b>Buscará en los siguientes libros:</b><br>" &
        "Mateo, Marcos, Lucas, Juan, Hechos, Romanos, 1 de Corintios, 2 de Corintios, Gálatas, Efesios, Filipenses," &
        "Colosenses, 1 de Tesalonicenses, 2 de Tesalonicenses, 1 de Timoteo, 2 de Timoteo, Tito," &
        "Filemón, Hebreos, Santiago, 1 de Pedro, 2 de Pedro, 1 de Juan, 2 de Juan, 3 de Juan, Judas y Apocalipsis."
      
      Case 2 'Antiguo Testamento
      cbxBuscar.Tooltip = "<b>Buscará en:</b><br>" &
        "Génesis, Éxodo, Levítico, Números, Deuteronomio, " &
        "Josué, Jueces, Rut, 1 de Samuel, 2 de Samuel, 1 de Reyes, 2 de Reyes, 1 de Crónicas, 2 de Crónicas, " &
        "Esdras, Nehemías, Ester, Job, Salmos, Proverbios, Eclesiastés, Cantares, Isaías, Jeremías, Lamentaciones, " &
        "Ezequiel, Daniel, Oseas, Joel, Amós, Abdías, Jonás, Miqueas, Nahum, " &
        "Habacuc, Sofonias, Hageo, Zacarías y Malaquías."
      
      Case 3 'La tora
      cbxBuscar.Tooltip = "<b>Buscará en los 5 primeros libros del antiguo Testamento:</b><br>" &
        "Génesis, Éxodo, Levítico, Números y Deuteronomio."
      
      Case 5 'Profetas Mayores
      cbxBuscar.Tooltip = "<b>Buscará en:</b><br>" &
        "Isaías, Jeremías, Ezequiel y Daniel.<br><b>(Antiguo Testamento)</b>" 
      
      Case 6 'Profetas Menores
      cbxBuscar.Tooltip = "<b>Buscará en:</b><br>" &
        "Oseas, Joel, Amós, Abdías, Jonás, Miqueas, Nahum, " &
        "Habacuc, Sofonias, Hageo, Zacarías y Malaquías.<br><b>(Antiguo Testamento)</b>"
      
      Case 7 'Cartas de Pablo
      cbxBuscar.Tooltip = "<b>Buscará en estos libros:</b>" &
        "<br>Romanos, 1 de Corintios, 2 de Corintios, Gálatas, Efesios," &
        "Filipenses, Colosenses, 1 de Tesalonicenses, 2 de Tesalonicenses," &
        "1 de Timoteo, 2 de Timoteo, Tito y Filemón." &
        "<br><b>(Nuevo Testamento)</b>"
      
      Case 8 'Los Evangelistas "Mateo, Marcos, Lucas, Juan"
      cbxBuscar.Tooltip = "<b>Buscará en los libros:</b><br>Mateo, Marcos, Lucas y Juan.<br><b>(Nuevo Testamento)</b>"
      
    Case 9 'Libros historicos
      cbxBuscar.Tooltip = "<b>Buscará en los siguientes libros:</b><br>" &
        "Josué, Jueces, Rut, 1 de Samuel, 2 de Samuel,<br> 1 de Reyes, 2 de Reyes, 1 de Crónicas,<br> 2 de Crónicas, Esdras, Nehemias y Ester. " &
        "<br><b>(Antiguo Testamento)</b>" 
      
      Case Else
      cbxBuscar.Tooltip = "?"
  End Select
  
End


System information
------------------

Gambas=3.9.2
OperatingSystem=Linux
Kernel=3.19.0-32-generic
Architecture=x86
Distribution=Linux Mint 17.3 Rosa
Desktop=MATE
Theme=Gtk
Language=es_UY.UTF-8
Memory=1950M

[Libraries]
Cairo=libcairo.so.2.11301.0
Curl=libcurl.so.4.3.0
DBus=libdbus-1.so.3.7.6
GStreamer=libgstreamer-0.10.so.0.30.0
GStreamer=libgstreamer-1.0.so.0.204.0
GTK+2=libgtk-x11-2.0.so.0.2400.23
GTK+3=libgtk-3.so.0.1000.8
OpenGL=libGL.so.1.2.0
Poppler=libpoppler.so.44.0.0
QT4=libQtCore.so.4.8.6
QT5=libQt5Core.so.5.2.1
SDL=libSDL-1.2.so.0.11.4
SQLite=libsqlite3.so.0.8.6