administrator/ware_house
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: initial commit

Browse Source
This commit is contained in:
allebonvi
2025-10-27 17:18:09 +01:00
commit 8806d598eb
48 changed files with 10024 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

148
backups/autosave.tcl.bak1 Normal file
View File

@@ -0,0 +1,148 @@
#############################################################################
# Generated by PAGE version 8.0
# in conjunction with Tcl version 8.6
# Sep 15, 2025 05:35:31 PM CEST platform: Windows NT
set vTcl(timestamp) ""
if {![info exists vTcl(borrow)]} {
::vTcl::MessageBox -title Error -message "You must open project files from within PAGE."
exit}
set vTcl(actual_gui_font_dft_desc) TkDefaultFont
set vTcl(actual_gui_font_dft_name) TkDefaultFont
set vTcl(actual_gui_font_text_desc) TkTextFont
set vTcl(actual_gui_font_text_name) TkTextFont
set vTcl(actual_gui_font_fixed_desc) TkFixedFont
set vTcl(actual_gui_font_fixed_name) TkFixedFont
set vTcl(actual_gui_font_menu_desc) TkMenuFont
set vTcl(actual_gui_font_menu_name) TkMenuFont
set vTcl(actual_gui_font_tooltip_desc) TkDefaultFont
set vTcl(actual_gui_font_tooltip_name) TkDefaultFont
set vTcl(actual_gui_font_treeview_desc) TkDefaultFont
set vTcl(actual_gui_font_treeview_name) TkDefaultFont
###########################################
set vTcl(actual_gui_bg) #d9d9d9
set vTcl(actual_gui_fg) #000000
set vTcl(actual_gui_analog) #ececec
set vTcl(actual_gui_menu_analog) #ececec
set vTcl(actual_gui_menu_bg) #d9d9d9
set vTcl(actual_gui_menu_fg) #000000
set vTcl(complement_color) gray40
set vTcl(analog_color_p) #c3c3c3
set vTcl(analog_color_m) beige
set vTcl(tabfg1) black
set vTcl(tabfg2) white
set vTcl(actual_gui_menu_active_bg) #ececec
set vTcl(actual_gui_menu_active_fg) #000000
###########################################
set vTcl(pr,autoalias) 1
set vTcl(pr,relative_placement) 1
set vTcl(mode) Relative
set vTcl(project_theme) default
proc vTclWindow.top1 {base} {
global vTcl
if {$base == ""} {
set base .top1
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
set top $base
set target $base
###################
# CREATING WIDGETS
###################
vTcl::widgets::core::toplevel::createCmd $top -class Toplevel \
-background #d9d9d9 -highlightbackground #d9d9d9 \
-highlightcolor #000000
wm focusmodel $top passive
wm geometry $top 600x450+374+144
update
# set in toplevel.wgt.
global vTcl
global img_list
set vTcl(save,dflt,origin) 0
wm maxsize $top 3364 881
wm minsize $top 120 1
wm overrideredirect $top 0
wm resizable $top 1 1
wm deiconify $top
set toptitle "Toplevel 0"
wm title $top $toptitle
namespace eval ::widgets::${top}::ClassOption {}
set ::widgets::${top}::ClassOption(-toptitle) $toptitle
vTcl:DefineAlias "$top" "Toplevel1" vTcl:Toplevel:WidgetProc "" 1
set vTcl(real_top) {}
button "$top.but47" \
-activebackground #d9d9d9 -activeforeground black -background #d9d9d9 \
-disabledforeground #a3a3a3 -font "-family {Segoe UI} -size 9" \
-foreground #000000 -highlightbackground #d9d9d9 \
-highlightcolor #000000 -text "Button"
vTcl:DefineAlias "$top.but47" "Button1" vTcl:WidgetProc "Toplevel1" 1
frame "$top.fra48" \
-borderwidth 2 -relief groove -background #d9d9d9 -height 355 \
-highlightbackground #d9d9d9 -highlightcolor #000000 -width 565
vTcl:DefineAlias "$top.fra48" "Frame1" vTcl:WidgetProc "Toplevel1" 1
set site_3_0 $top.fra48
vTcl::widgets::ttk::pnotebook::createCmd "$site_3_0.pNo49" \
-width 512 -height 304 -style "PC.TNotebook" -style PC.TNotebook
vTcl:DefineAlias "$site_3_0.pNo49" "PNotebook1" vTcl:WidgetProc "Toplevel1" 1
$site_3_0.pNo49 configure -style "PC.TNotebook"
bind $site_3_0.pNo49 <Button-1> {
_button_press
}
bind $site_3_0.pNo49 <ButtonRelease-1> {
_button_release
}
bind $site_3_0.pNo49 <Motion> {
_mouse_over
}
ttk::frame "$site_3_0.pNo49.t0"
vTcl:DefineAlias "$site_3_0.pNo49.t0" "PNotebook1_t1" vTcl:WidgetProc "Toplevel1" 1
$site_3_0.pNo49 add $site_3_0.pNo49.t0 \
-padding 0 -sticky nsew -state normal -text "Page 1" -image image6 \
-compound right -underline -1
set site_5_0 $site_3_0.pNo49.t0
ttk::frame "$site_3_0.pNo49.t1"
vTcl:DefineAlias "$site_3_0.pNo49.t1" "PNotebook1_t2" vTcl:WidgetProc "Toplevel1" 1
$site_3_0.pNo49 add $site_3_0.pNo49.t1 \
-padding 0 -sticky nsew -state normal -text "Page 2" -image image6 \
-compound right -underline -1
set site_5_1 $site_3_0.pNo49.t1
place $site_3_0.pNo49 \
-in $site_3_0 -x 0 -relx 0.035 -y 0 -rely 0.056 -width 0 \
-relwidth 0.906 -height 0 -relheight 0.856 -anchor nw \
-bordermode ignore
###################
# SETTING GEOMETRY
###################
place $top.but47 \
-in $top -x 0 -relx 0.033 -y 0 -rely 0.022 -width 97 -relwidth 0 \
-height 46 -relheight 0 -anchor nw -bordermode ignore
place $top.fra48 \
-in $top -x 0 -relx 0.033 -y 0 -rely 0.178 -width 0 -relwidth 0.942 \
-height 0 -relheight 0.789 -anchor nw -bordermode ignore
vTcl:FireEvent $base <<Ready>>
}
proc 36 {args} {return 1}
Window show .
set btop1 ""
if {$vTcl(borrow)} {
set btop1 .bor[expr int([expr rand() * 100])]
while {[lsearch $btop1 $vTcl(tops)] != -1} {
set btop1 .bor[expr int([expr rand() * 100])]
}
}
set vTcl(btop) $btop1
Window show .top1 $btop1
if {$vTcl(borrow)} {
$btop1 configure -background plum
}

148
backups/autosave.tcl.bak2 Normal file
View File

@@ -0,0 +1,148 @@
#############################################################################
# Generated by PAGE version 8.0
# in conjunction with Tcl version 8.6
# Sep 15, 2025 05:34:52 PM CEST platform: Windows NT
set vTcl(timestamp) ""
if {![info exists vTcl(borrow)]} {
::vTcl::MessageBox -title Error -message "You must open project files from within PAGE."
exit}
set vTcl(actual_gui_font_dft_desc) TkDefaultFont
set vTcl(actual_gui_font_dft_name) TkDefaultFont
set vTcl(actual_gui_font_text_desc) TkTextFont
set vTcl(actual_gui_font_text_name) TkTextFont
set vTcl(actual_gui_font_fixed_desc) TkFixedFont
set vTcl(actual_gui_font_fixed_name) TkFixedFont
set vTcl(actual_gui_font_menu_desc) TkMenuFont
set vTcl(actual_gui_font_menu_name) TkMenuFont
set vTcl(actual_gui_font_tooltip_desc) TkDefaultFont
set vTcl(actual_gui_font_tooltip_name) TkDefaultFont
set vTcl(actual_gui_font_treeview_desc) TkDefaultFont
set vTcl(actual_gui_font_treeview_name) TkDefaultFont
###########################################
set vTcl(actual_gui_bg) #d9d9d9
set vTcl(actual_gui_fg) #000000
set vTcl(actual_gui_analog) #ececec
set vTcl(actual_gui_menu_analog) #ececec
set vTcl(actual_gui_menu_bg) #d9d9d9
set vTcl(actual_gui_menu_fg) #000000
set vTcl(complement_color) gray40
set vTcl(analog_color_p) #c3c3c3
set vTcl(analog_color_m) beige
set vTcl(tabfg1) black
set vTcl(tabfg2) white
set vTcl(actual_gui_menu_active_bg) #ececec
set vTcl(actual_gui_menu_active_fg) #000000
###########################################
set vTcl(pr,autoalias) 1
set vTcl(pr,relative_placement) 1
set vTcl(mode) Relative
set vTcl(project_theme) default
proc vTclWindow.top1 {base} {
global vTcl
if {$base == ""} {
set base .top1
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
set top $base
set target $base
###################
# CREATING WIDGETS
###################
vTcl::widgets::core::toplevel::createCmd $top -class Toplevel \
-background #d9d9d9 -highlightbackground #d9d9d9 \
-highlightcolor #000000
wm focusmodel $top passive
wm geometry $top 600x450+374+144
update
# set in toplevel.wgt.
global vTcl
global img_list
set vTcl(save,dflt,origin) 0
wm maxsize $top 3364 881
wm minsize $top 120 1
wm overrideredirect $top 0
wm resizable $top 1 1
wm deiconify $top
set toptitle "Toplevel 0"
wm title $top $toptitle
namespace eval ::widgets::${top}::ClassOption {}
set ::widgets::${top}::ClassOption(-toptitle) $toptitle
vTcl:DefineAlias "$top" "Toplevel1" vTcl:Toplevel:WidgetProc "" 1
set vTcl(real_top) {}
button "$top.but47" \
-activebackground #d9d9d9 -activeforeground black -background #d9d9d9 \
-disabledforeground #a3a3a3 -font "-family {Segoe UI} -size 9" \
-foreground #000000 -highlightbackground #d9d9d9 \
-highlightcolor #000000 -text "Button"
vTcl:DefineAlias "$top.but47" "Button1" vTcl:WidgetProc "Toplevel1" 1
frame "$top.fra48" \
-borderwidth 2 -relief groove -background #d9d9d9 -height 355 \
-highlightbackground #d9d9d9 -highlightcolor #000000 -width 565
vTcl:DefineAlias "$top.fra48" "Frame1" vTcl:WidgetProc "Toplevel1" 1
set site_3_0 $top.fra48
vTcl::widgets::ttk::pnotebook::createCmd "$site_3_0.pNo49" \
-width 300 -height 200 -style "PC.TNotebook" -style PC.TNotebook
vTcl:DefineAlias "$site_3_0.pNo49" "PNotebook1" vTcl:WidgetProc "Toplevel1" 1
$site_3_0.pNo49 configure -style "PC.TNotebook"
bind $site_3_0.pNo49 <Button-1> {
_button_press
}
bind $site_3_0.pNo49 <ButtonRelease-1> {
_button_release
}
bind $site_3_0.pNo49 <Motion> {
_mouse_over
}
ttk::frame "$site_3_0.pNo49.t0"
vTcl:DefineAlias "$site_3_0.pNo49.t0" "PNotebook1_t1" vTcl:WidgetProc "Toplevel1" 1
$site_3_0.pNo49 add $site_3_0.pNo49.t0 \
-padding 0 -sticky nsew -state normal -text "Page 1" -image image6 \
-compound right -underline -1
set site_5_0 $site_3_0.pNo49.t0
ttk::frame "$site_3_0.pNo49.t1"
vTcl:DefineAlias "$site_3_0.pNo49.t1" "PNotebook1_t2" vTcl:WidgetProc "Toplevel1" 1
$site_3_0.pNo49 add $site_3_0.pNo49.t1 \
-padding 0 -sticky nsew -state normal -text "Page 2" -image image6 \
-compound right -underline -1
set site_5_1 $site_3_0.pNo49.t1
place $site_3_0.pNo49 \
-in $site_3_0 -x 0 -relx 0.035 -y 0 -rely 0.056 -width 0 \
-relwidth 0.535 -height 0 -relheight 0.631 -anchor nw \
-bordermode ignore
###################
# SETTING GEOMETRY
###################
place $top.but47 \
-in $top -x 0 -relx 0.033 -y 0 -rely 0.022 -width 97 -relwidth 0 \
-height 46 -relheight 0 -anchor nw -bordermode ignore
place $top.fra48 \
-in $top -x 0 -relx 0.033 -y 0 -rely 0.178 -width 0 -relwidth 0.942 \
-height 0 -relheight 0.789 -anchor nw -bordermode ignore
vTcl:FireEvent $base <<Ready>>
}
proc 36 {args} {return 1}
Window show .
set btop1 ""
if {$vTcl(borrow)} {
set btop1 .bor[expr int([expr rand() * 100])]
while {[lsearch $btop1 $vTcl(tops)] != -1} {
set btop1 .bor[expr int([expr rand() * 100])]
}
}
set vTcl(btop) $btop1
Window show .top1 $btop1
if {$vTcl(borrow)} {
$btop1 configure -background plum
}