1:45 PM 11/12/2025 ���� JFIF    �� �        "" $(4,$&1'-=-157:::#+?D?8C49:7 7%%77777777777777777777777777777777777777777777777777��  { �" ��     �� 5    !1AQa"q�2��BR��#b�������  ��  ��   ? ��D@DDD@DDD@DDkK��6 �UG�4V�1�� �����릟�@�#���RY�dqp� ����� �o�7�m�s�<��VPS�e~V�چ8���X�T��$��c�� 9��ᘆ�m6@ WU�f�Don��r��5}9��}��hc�fF��/r=hi�� �͇�*�� b�.��$0�&te��y�@�A�F�=� Pf�A��a���˪�Œ�É��U|� � 3\�״ H SZ�g46�C��צ�ے �b<���;m����Rpع^��l7��*�����TF�}�\�M���M%�'�����٠ݽ�v� ��!-�����?�N!La��A+[`#���M����'�~oR�?��v^)��=��h����A��X�.���˃����^Ə��ܯsO"B�c>; �e�4��5�k��/CB��.  �J?��;�҈�������������������~�<�VZ�ꭼ2/)Í”jC���ע�V�G�!���!�F������\�� Kj�R�oc�h���:Þ I��1"2�q×°8��Р@ז���_C0�ր��A��lQ��@纼�!7��F�� �]�sZ B�62r�v�z~�K�7�c��5�.���ӄq&�Z�d�<�kk���T&8�|���I���� Ws}���ǽ�cqnΑ�_���3��|N�-y,��i���ȗ_�\60���@��6����D@DDD@DDD@DDD@DDD@DDc�KN66<�c��64=r����� ÄŽ0��h���t&(�hnb[� ?��^��\��â|�,�/h�\��R��5�? �0�!צ܉-����G����٬��Q�zA���1�����V��� �:R���`�$��ik��H����D4�����#dk����� h�}����7���w%�������*o8wG�LycuT�.���ܯ7��I��u^���)��/c�,s�Nq�ۺ�;�ך�YH2���.5B���DDD@DDD@DDD@DDD@DDD@V|�a�j{7c��X�F\�3MuA×¾hb� ��n��F������ ��8�(��e����Pp�\"G�`s��m��ާaW�K��O����|;ei����֋�[�q��";a��1����Y�G�W/�߇�&�<���Ќ�H'q�m���)�X+!���=�m�ۚ丷~6a^X�)���,�>#&6G���Y��{����"" """ """ """ """ ""��at\/�a�8 �yp%�lhl�n����)���i�t��B�������������?��modskinlienminh.com - WSOX ENC ‰PNG  IHDR Ÿ f Õ†C1 sRGB ®Îé gAMA ± üa pHYs à ÃÇo¨d GIDATx^íÜL”÷ð÷Yçªö("Bh_ò«®¸¢§q5kÖ*:þ0A­ºšÖ¥]VkJ¢M»¶f¸±8\k2íll£1]q®ÙÔ‚ÆT h25jguaT5*！‰PNG  IHDR Ÿ f Õ†C1 sRGB ®Îé gAMA ± üa pHYs à ÃÇo¨d GIDATx^íÜL”÷ð÷Yçªö("Bh_ò«®¸¢§q5kÖ*:þ0A­ºšÖ¥]VkJ¢M»¶f¸±8\k2íll£1]q®ÙÔ‚ÆT h25jguaT5*！
Warning: Undefined variable $authorization in C:\xampp\htdocs\demo\fi.php on line 57

Warning: Undefined variable $translation in C:\xampp\htdocs\demo\fi.php on line 118

Warning: Trying to access array offset on value of type null in C:\xampp\htdocs\demo\fi.php on line 119

Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): Failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in C:\xampp\htdocs\demo\fi.php on line 120

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 247

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 248

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 249

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 250

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 251

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 252
# megawidget.tcl # # Basic megawidget support classes. Experimental for any use other than # the ::tk::IconList megawdget, which is itself only designed for use in # the Unix file dialogs. # # Copyright (c) 2009-2010 Donal K. Fellows # # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. # package require Tk ::oo::class create ::tk::Megawidget { superclass ::oo::class method unknown {w args} { if {[string match .* $w]} { [self] create $w {*}$args return $w } next $w {*}$args } unexport new unknown self method create {name superclasses body} { next $name [list \ superclass ::tk::MegawidgetClass {*}$superclasses]\;$body } } ::oo::class create ::tk::MegawidgetClass { variable w hull options IdleCallbacks constructor args { # Extract the "widget name" from the object name set w [namespace tail [self]] # Configure things tclParseConfigSpec [my varname options] [my GetSpecs] "" $args # Move the object out of the way of the hull widget rename [self] _tmp # Make the hull widget(s) my CreateHull bind $hull [list [namespace which my] destroy] # Rename things into their final places rename ::$w theWidget rename [self] ::$w # Make the contents my Create } destructor { foreach {name cb} [array get IdleCallbacks] { after cancel $cb unset IdleCallbacks($name) } if {[winfo exists $w]} { bind $hull {} destroy $w } } #################################################################### # # MegawidgetClass::configure -- # # Implementation of 'configure' for megawidgets. Emulates the operation # of the standard Tk configure method fairly closely, which makes things # substantially more complex than they otherwise would be. # # This method assumes that the 'GetSpecs' method returns a description # of all the specifications of the options (i.e., as Tk returns except # with the actual values removed). It also assumes that the 'options' # array in the class holds all options; it is up to subclasses to set # traces on that array if they want to respond to configuration changes. # # TODO: allow unambiguous abbreviations. # method configure args { # Configure behaves differently depending on the number of arguments set argc [llength $args] if {$argc == 0} { return [lmap spec [my GetSpecs] { lappend spec $options([lindex $spec 0]) }] } elseif {$argc == 1} { set opt [lindex $args 0] if {[info exists options($opt)]} { set spec [lsearch -inline -index 0 -exact [my GetSpecs] $opt] return [linsert $spec end $options($opt)] } } elseif {$argc == 2} { # Special case for where we're setting a single option. This # avoids some of the costly operations. We still do the [array # get] as this gives a sufficiently-consistent trace. set opt [lindex $args 0] if {[dict exists [array get options] $opt]} { # Actually set the new value of the option. Use a catch to # allow a megawidget user to throw an error from a write trace # on the options array to reject invalid values. try { array set options $args } on error {ret info} { # Rethrow the error to get a clean stack trace return -code error -errorcode [dict get $info -errorcode] $ret } return } } elseif {$argc % 2 == 0} { # Check that all specified options exist. Any unknown option will # cause the merged dictionary to be bigger than the options array set merge [dict merge [array get options] $args] if {[dict size $merge] == [array size options]} { # Actually set the new values of the options. Use a catch to # allow a megawidget user to throw an error from a write trace # on the options array to reject invalid values try { array set options $args } on error {ret info} { # Rethrow the error to get a clean stack trace return -code error -errorcode [dict get $info -errorcode] $ret } return } # Due to the order of the merge, the unknown options will be at # the end of the dict. This makes the first unknown option easy to # find. set opt [lindex [dict keys $merge] [array size options]] } else { set opt [lindex $args end] return -code error -errorcode [list TK VALUE_MISSING] \ "value for \"$opt\" missing" } return -code error -errorcode [list TK LOOKUP OPTION $opt] \ "bad option \"$opt\": must be [tclListValidFlags options]" } #################################################################### # # MegawidgetClass::cget -- # # Implementation of 'cget' for megawidgets. Emulates the operation of # the standard Tk cget method fairly closely. # # This method assumes that the 'options' array in the class holds all # options; it is up to subclasses to set traces on that array if they # want to respond to configuration reads. # # TODO: allow unambiguous abbreviations. # method cget option { return $options($option) } #################################################################### # # MegawidgetClass::TraceOption -- # # Sets up the tracing of an element of the options variable. # method TraceOption {option method args} { set callback [list my $method {*}$args] trace add variable options($option) write [namespace code $callback] } #################################################################### # # MegawidgetClass::GetSpecs -- # # Return a list of descriptions of options supported by this # megawidget. Each option is described by the 4-tuple list, consisting # of the name of the option, the "option database" name, the "option # database" class-name, and the default value of the option. These are # the same values returned by calling the configure method of a widget, # except without the current values of the options. # method GetSpecs {} { return { {-takefocus takeFocus TakeFocus {}} } } #################################################################### # # MegawidgetClass::CreateHull -- # # Creates the real main widget of the megawidget. This is often a frame # or toplevel widget, but isn't always (lightweight megawidgets might # use a content widget directly). # # The name of the hull widget is given by the 'w' instance variable. The # name should be written into the 'hull' instance variable. The command # created by this method will be renamed. # method CreateHull {} { return -code error -errorcode {TCL OO ABSTRACT_METHOD} \ "method must be overridden" } #################################################################### # # MegawidgetClass::Create -- # # Creates the content of the megawidget. The name of the widget to # create the content in will be in the 'hull' instance variable. # method Create {} { return -code error -errorcode {TCL OO ABSTRACT_METHOD} \ "method must be overridden" } #################################################################### # # MegawidgetClass::WhenIdle -- # # Arrange for a method to be called on the current instance when Tk is # idle. Only one such method call per method will be queued; subsequent # queuing actions before the callback fires will be silently ignored. # The additional args will be passed to the callback, and the callbacks # will be properly cancelled if the widget is destroyed. # method WhenIdle {method args} { if {![info exists IdleCallbacks($method)]} { set IdleCallbacks($method) [after idle [list \ [namespace which my] DoWhenIdle $method $args]] } } method DoWhenIdle {method arguments} { unset IdleCallbacks($method) tailcall my $method {*}$arguments } } #################################################################### # # tk::SimpleWidget -- # # Simple megawidget class that makes it easy create widgets that behave # like a ttk widget. It creates the hull as a ttk::frame and maps the # state manipulation methods of the overall megawidget to the equivalent # operations on the ttk::frame. # ::tk::Megawidget create ::tk::SimpleWidget {} { variable w hull options method GetSpecs {} { return { {-cursor cursor Cursor {}} {-takefocus takeFocus TakeFocus {}} } } method CreateHull {} { set hull [::ttk::frame $w -cursor $options(-cursor)] my TraceOption -cursor UpdateCursorOption } method UpdateCursorOption args { $hull configure -cursor $options(-cursor) } # Not fixed names, so can't forward method state args { tailcall $hull state {*}$args } method instate args { tailcall $hull instate {*}$args } } #################################################################### # # tk::FocusableWidget -- # # Simple megawidget class that makes a ttk-like widget that has a focus # ring. # ::tk::Megawidget create ::tk::FocusableWidget ::tk::SimpleWidget { variable w hull options method GetSpecs {} { return { {-cursor cursor Cursor {}} {-takefocus takeFocus TakeFocus ::ttk::takefocus} } } method CreateHull {} { ttk::frame $w set hull [ttk::entry $w.cHull -takefocus 0 -cursor $options(-cursor)] pack $hull -expand yes -fill both -ipadx 2 -ipady 2 my TraceOption -cursor UpdateCursorOption } } return # Local Variables: # mode: tcl # fill-column: 78 # End: