develooper Front page | perl.tcltk | Postings from December 2019

Call perl subroutine from $int->Eval

Thread Next
From:
welle ozean via tcltk
Date:
December 5, 2019 21:32
Subject:
Call perl subroutine from $int->Eval
Message ID:
CAL0NCLsdxaCp95BOnHvDOWKdMQm4Rnp0n10dkfAOXVbiVC=N=w@mail.gmail.com
I have some portion of codes written in Tcl inside my Perl script (here a
Drag&Drop I can not write in Perl).

#creating Dropper
$int->Eval("bind $Widgetname <<Drop>> {
$Widgetname configure -state normal
  # .drop_target delete 0 end
  $Widgetname insert end %D
focus $Widgetname
#.drop_target configure -state disabled
set x -2000
 }"
);

Is there a way to call a Perl subroutine from within the $int->Eval?
Best,
Welle

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About