ó ¯iãó¸•SrSSKJrJrJr SrSrSrSrSr Sr \(d\(aS r O \(aS r OS r S r S r \(d\(d\(aSrOSrSrSSjrg)z- Templates for the splash screen tcl script. é)Ú is_cygwinÚ is_darwinÚis_wina proc _ipc_server {channel clientaddr clientport} { # This function is called if a new client connects to # the server. This creates a channel, which calls # _ipc_caller if data was send through the connection set client_name [format <%s:%d> $clientaddr $clientport] chan configure $channel \ -buffering none \ -encoding utf-8 \ -eofchar \x04 \ -translation cr chan event $channel readable [list _ipc_caller $channel $client_name] } proc _ipc_caller {channel client_name} { # This function is called if a command was sent through # the tcp connection. The current implementation supports # two commands: update_text and exit, although exit # is implemented to be called if the connection gets # closed (from python) or the character 0x04 was received chan gets $channel cmd if {[chan eof $channel]} { # This is entered if either the connection was closed # or the char 0x04 was send chan close $channel exit } elseif {![chan blocked $channel]} { # RPC methods # update_text command if {[string match "update_text*" $cmd]} { global status_text set first [expr {[string first "(" $cmd] + 1}] set last [expr {[string last ")" $cmd] - 1}] set status_text [string range $cmd $first $last] } # Implement other procedures here } } # By setting the port to 0 the os will assign a free port set server_socket [socket -server _ipc_server -myaddr localhost 0] set server_port [fconfigure $server_socket -sockname] # This environment variable is shared between the python and the tcl # interpreter and publishes the port the tcp server socket is available set env(_PYI_SPLASH_IPC) [lindex $server_port 2] aí # The variable $_image_data, which holds the data for the splash # image is created by the bootloader. image create photo splash_image splash_image put $_image_data # delete the variable, because the image now holds the data unset _image_data proc canvas_text_update {canvas tag _var - -} { # This function is rigged to be called if the a variable # status_text gets changed. This updates the text on # the canvas upvar $_var var $canvas itemconfigure $tag -text $var } aî package require Tk set image_width [image width splash_image] set image_height [image height splash_image] set display_width [winfo screenwidth .] set display_height [winfo screenheight .] set x_position [expr {int(0.5*($display_width - $image_width))}] set y_position [expr {int(0.5*($display_height - $image_height))}] # Toplevel frame in which all widgets should be positioned frame .root # Configure the canvas on which the splash # screen will be drawn canvas .root.canvas \ -width $image_width \ -height $image_height \ -borderwidth 0 \ -highlightthickness 0 # Draw the image into the canvas, filling it. .root.canvas create image \ [expr {$image_width / 2}] \ [expr {$image_height / 2}] \ -image splash_image a5 # Create a text on the canvas, which tracks the local # variable status_text. status_text is changed via C to # update the progress on the splash screen. # We cannot use the default label, because it has a # default background, which cannot be turned transparent .root.canvas create text \ %(pad_x)d \ %(pad_y)d \ -fill %(color)s \ -justify center \ -font myFont \ -tag vartext \ -anchor sw trace variable status_text w \ [list canvas_text_update .root.canvas vartext] set status_text "%(default_text)s" z] font create myFont {*}[font actual TkDefaultFont] font configure myFont -size %(font_size)d z9 font create myFont -family %(font)s -size %(font_size)d aI # If the image is transparent, the background will be filled # with magenta. The magenta background is later replaced with transparency. # Here is the limitation of this implementation, that only # sharp transparent image corners are possible wm attributes . -transparentcolor magenta .root.canvas configure -background magenta z wm attributes . -transparent 1 . configure -background systemTransparent .root.canvas configure -background systemTransparent Úzo # Position all widgets in the window pack .root grid .root.canvas -column 0 -row 0 -columnspan 1 -rowspan 2 z¬ # Set position and mode of the window - always-on-top behavior wm overrideredirect . 1 wm geometry . +${x_position}+${y_position} wm attributes . -topmost 1 z“ # Set position and mode of the window wm overrideredirect . 1 wm geometry . +${x_position}+${y_position} wm attributes . -topmost 0 z} # Set position and mode of the window wm geometry . +${x_position}+${y_position} wm attributes . -type splash z raise . Ncóº•[[[/nU(aRUSS:XaUR[U-5 OUR[ U-5 UR[ U-5 UR[5 UR[5 URU(a[O[5 UR[5 SRU5$)z< This function builds the tcl script for the splash screen. ÚfontÚ TkDefaultFontÚ ) Ú ipc_scriptÚ image_scriptÚsplash_canvas_setupÚappendÚsplash_canvas_default_fontÚsplash_canvas_custom_fontÚsplash_canvas_textÚtransparent_setupÚ pack_widgetsÚposition_window_on_topÚposition_windowÚ raise_windowÚjoin)Ú text_optionsÚ always_on_topÚscripts ÚRC:\des-py\RoboSAPF\venv\Lib\site-packages\PyInstaller\building\splash_templates.pyÚ build_scriptrÌs¡€ô ÜÜð€Fö à ˜Ñ  ?Ó 2Ø M‰MÔ4°|ÑCÕ Dà M‰MÔ3°lÑBÔ CØ ‰ Ô(¨<Ñ7Ô8à ‡MMÔ#Ô$à ‡MM”,ÔØ ‡MM®MÕ(¼ÔOØ ‡MM”,Ôà 9‰9VÓ Ðó)NF)Ú__doc__ÚPyInstaller.compatrrrr r r rrrrrrrrr©rrÚr!s—ðñ÷<Ñ;ð3€ ðj€ ð"Ðð:Ðð&Ðð Ðö ŽYðÑöðÑðÐð€ ðÐö ŽYž)ðOð€Oð € õ r