Dedicado a mis proyectos en Gambas ,un lenguaje de programación parecido al Visual Basic + Java pero ampliamente mejorado y...¡¡para gnu/linux!!.La potencia del gnu/linux sumada a la facilidad del Basic



Consultas, Desarrollo de programas y petición de presupuestos:



domingo, 29 de septiembre de 2013

Xbindkeys: FrontEnd hecho con Gambas3



Xbindkeys: 
FrontEnd hecho con Gambas3
Preparando un ejemplo de FrontEnd hecho con gambas3 para el curso de gambas que estoy terminando de escribir (http://cursogambas.blogspot.com.es/), pues he hecho esta pequeña utilidad, para facilitar el uso de XbindKeys.

Simplemente sirve para asignar una combinación de teclas al programa que le indiquemos haciendonos las correspondinetes preguntas, y el solo modifica y actualiza el fichero de configuración, activando la combinación de teclas.


    

  1. 
' Gambas class file
    

    2. 

  2. 

    

    3. 

  3. 
Public Sub _new()
    

    4. 

  4.   
    5. 

  5. 
End
    

    6. 

  6. 

    

    7. 

  7. 
Public Sub Form_Open()
    

    8. 

  8. 
'comprobar que exista el fichero .xbindkeysrc
    

    9. 

  9.   
    10. 

  10. 
If Exist(User.Home & "/.xbindkeysrc") Then 
    

    11. 

  11. 
'no hago nada
    

    12. 

  12. 
Else
    

    13. 

  13. 
'copio el archivo de conifguracion inicial
    

    14. 

  14. 
Copy "xbindkeysrc" To User.Home & "/.xbindkeysrc" 'este archivo es oculto
    

    15. 

  15. 
Endif
    

    16. 

  16. 
Me.center
    

    17. 

  17.   
    18. 

  18. 
End
    

    19. 

  19. 

    

    20. 

  20. 
Public Sub ToolButtonCrear_Click()
    

    21. 

  21.   
    22. 

  22. 
Dim contenido As String
    

    23. 

  23. 
Dim comando As String
    

    24. 

  24. 
Dim salida As String
    

    25. 

  25. 
Dim lineas As New String[]
    

    26. 

  26.   
    27. 

  27. 
Message.Info("Cuando cierre esta ventana,pulse la combinación de teclas", "cerrar")
    

    28. 

  28. 
Shell "xbindkeys -k" To salida
    

    29. 

  29. 
'de la salida extraigo las dos ultimas lineas que son las que me interesan
    

    30. 

  30. 
lineas = Split(salida, gb.CrLf)
    

    31. 

  31. 
Print salida
    

    32. 

  32. 
Print "lineas que me interesan:"
    

    33. 

  33. 
Print lineas[lineas.max - 2]
    

    34. 

  34. 
Print lineas[lineas.max - 1]
    

    35. 

  35. 
comando = InputBox("Introduce el nombre del programa al que llamara esa combinación de teclas:")
    

    36. 

  36. 
contenido = File.Load(User.Home & "/.xbindkeysrc")
    

    37. 

  37. 
contenido &= gb.CrLf
    

    38. 

  38. 
contenido &= "\"" & comando & "\"" & gb.CrLf
    

    39. 

  39. 
contenido &= lineas[lineas.max - 2] & gb.CrLf
    

    40. 

  40. 
contenido &= lineas[lineas.max - 1] & gb.CrLf
    

    41. 

  41. 
File.Save(User.Home & "/.xbindkeysrc", contenido)
    

    42. 

  42. 
Shell "xbindkeys"
    

    43. 

  43. 
Message.Info("Se acaba de añadir la combinacion de teclas...!!!")
    

    44. 

  44.   
    45. 

  45. 
End
    

    46. 

  46. 

    

    47. 

  47. 
Public Sub ToolButtonConfigurar_Click()
    

    48. 

  48.   
    49. 

  49. 
Shell "xbindkeys-config"
    

    50. 

  50.   
    51. 

  51. 
End
    

    52. 

  52.  
    53.

Pulsando el boton de "Crear nuevo atajo", lo que hacemos sacar un mensaje para indicar al usuario que tiene que pulsar la combinación de teclas cuando cierre el mensaje:


Message.Info("Cuando cierre esta ventana,pulse la combinación de teclas", "cerrar")


a continuación ejecutamos el programa xbindkeys, (y pulsaremos la combinación de teclas), capturamos la salida que produce el comando xbindkeys,



Shell "xbindkeys -k" To salida

y preguntamos que aplicación se va a ejecutar con la combinación de teclas dada anteriormente.
  • 
comando = InputBox("Introduce el nombre del programa al que llamara esa combinación de teclas:")
    

    •


    Con la información recopilada,


  • 
lineas = Split(salida, gb.CrLf)
    

    • 


  • 
contenido &= gb.CrLf
    

    • 

  • 
contenido &= "\"" & comando & "\"" & gb.CrLf
    

    • 

  • 
contenido &= lineas[lineas.max - 2] & gb.CrLf
    

    • 

  • 
contenido &= lineas[lineas.max - 1] & gb.CrLf
    

    • 

  • 
File.Save(User.Home & "/.xbindkeysrc", contenido)
    

    •


    la vamos a añadir al fichero oculto 
    .xbindkeysrc

    Finalmente, ejecutamos
  • 
Shell "xbindkeys"
    

    •
    Para que los cambios se añadan.


    Enlaces de descarga:
    • Archivo de instalación .deb: enlace
    Publicado por en