#!/usr/bin/mumps

#	Mumps GTK Signal Handler

 do ^gtk4.h
 write "on.select1.changed.mps"," ",widget,!

 set lf=$char(10)

 set x=$z~gtk~tree~selection~get~selected(select1,0)
 set x=x_lf_lf
 set x=x_$z~gtk~tree~selection~get~selected(select1,1)
 write "selection ",x,!
 set %=$z~gtk~text~buffer~set~text(textbuffer1,x)