Visualizza wikitesto di Inglobare in un programma Gambas la finestra di un altro programma Gambas mediante le funzioni del API di X11

Per inglobare la finestra di un programma Gambas all'interno della finestra principale di un altro programma Gambas, si può utilizzare la funzione ''XReparentWindow()'' della libreria dinamica condivisa: "''libX11.so.6.3.0''".

Va precisto che il ''Form'', che si intende inglobare, <SPAN Style="text-decoration:underline">non deve possedere bordi</span>.
<BR>Pertanto la Proprietà ''.Border'' del ''Form'', che deve essere inglobato, va posta a ''False''.

Tale funzione esterna richiede, fra l'altro, la specificazione del numero identificativo della finestra (il predetto "Form") del programma da inglobare.


Mostriamo un esempio essenziale, nel quale si hanno due programmi Gambas in ambiente grafico.
<BR>La finestra (ossia il ''Form'') di un programma sarà inglobata nella finestra (ossia nel "Form") dell'altro programma.

Di seguito il codice del programma Gambas, di cui si vuole far inglobare il ''Form'' <SPAN Style="text-decoration:underline">nel</span> ''Form'' dell'<SPAN Style="text-decoration:underline">altro</span> programma Gambas:
 '''Public''' Sub Form_Open()
  
  With Me
    .W = 100
    .H = 100
    <FONT Color=#B22222>.Border = <B>False</b></font>
    .Background = Color.Yellow
  End With
  
  Print Me.Id
   
 '''End'''


Invece, ecco di seguito il codice del programma Gambas che nel proprio ''Form'' deve inglobare la finestra del precedente programma Gambas (è necessario in questo esempio attivare il Componente ''gb.desktop'', per consentire a questo programma di individuare il numero identificativo della finestra del programma da inglobare):
 Library "libX11:6.3.0"
 
 <FONT Color=gray>' ''Display *XOpenDisplay(char *display_name)''
 ' ''Opens a connection to the X server that controls a display.''</font>
 Private Extern XOpenDisplay(display_name As String) As Pointer
 
 <FONT Color=gray>' ''int XReparentWindow(Display *display, Window w, Window parent, int x, int y)
 ' ''Removes a window from its current position in the hierarchy, and inserts it as the child of the specified parent.''</font>
 Private Extern XReparentWindow(display As Pointer, w As Long, parent As Long, x As Integer, y As Integer) As Integer
 
 <FONT Color=gray>' ''int XCloseDisplay(Display *display)''
 ' ''Closes the connection to the X server for the display specified in the Display structure and destroys all windows.''</font>
 Private Extern XCloseDisplay(display As Pointer) As Integer
 
 
 '''Public''' Sub Button1_Click()
 
  Dim disp As Pointer
  Dim <FONT Color=#B22222>id</font> As Integer
 
 <FONT Color=gray>' ''Connessione al server X ed impostazione di default:''</font>
  disp = XOpenDisplay(Null)
  If disp == 0 Then Error.Raise("Errore !")
 
 <FONT Color=gray>' ''Individua il numero identificativo del nome della finestra del programma Gambas da inglobare:''</font>
  <FONT Color=#B22222>id</font> = Desktop.FindWindow("<FONT Color=gray>''nome_della_finestra_da_inglobare''</font>", Null, Null)[0]
  
 <FONT Color=gray>' ''Ingloba nel Form principale del programma Gambas la finestra dell'altro programma Gambas individuata dal suo numero identificativo:''</font>
  <FONT Color=#B22222>XReparentWindow</font>(disp, <FONT Color=#B22222>id</font>, Me.Id, 10, 10)
 
 <FONT Color=gray>' ''Chiude la libreria:''</font>
  XCloseDisplay(disp)
 
 '''End'''



=Riferimenti=
* [http://www.df.unipi.it/~moruzzi/xlib-programming.html http://www.df.unipi.it/~moruzzi/xlib-programming.html]
* [http://math.msu.su/~vvb/2course/Borisenko/CppProjects/GWindow/xintro.html#over A Brief intro to X11 Programming]
* [http://tronche.com/gui/x/xlib/ Manuale della libreria X]
* [http://www.x.org/docs/X11/xlib.pdf Xlib − C Language X Interface Manual]