@@ -54,6 +54,34 @@ function WindUI:Notify(Config)
5454end
5555
5656
57+ function Window :AddTheme (LTheme )
58+ Themes [LTheme .Name ] = LTheme
59+ return LTheme
60+ end
61+
62+ function Window :SetTheme (Value )
63+ if Themes [Value ] then
64+ WindUI .Theme = Themes [Value ]
65+ Creator .SetTheme (Themes [Value ])
66+ Creator .UpdateTheme ()
67+
68+ return Themes [Value ]
69+ end
70+ return nil
71+ end
72+
73+ function Window :GetThemes ()
74+ return Themes
75+ end
76+ function Window :GetCurrentTheme ()
77+ return WindUI .Theme .Name
78+ end
79+ function Window :GetTransparency ()
80+ return WindUI .Transparent or false
81+ end
82+ function Window :GetWindowSize ()
83+ return Window .UIElements .Main .Size
84+ end
5785
5886
5987
@@ -434,34 +462,7 @@ function WindUI:CreateWindow(Config)
434462 WindUI .Transparent = Config .Transparent
435463 WindUI .Window = Window
436464
437- function Window :AddTheme (LTheme )
438- Themes [LTheme .Name ] = LTheme
439- return LTheme
440- end
441-
442- function Window :SetTheme (Value )
443- if Themes [Value ] then
444- WindUI .Theme = Themes [Value ]
445- Creator .SetTheme (Themes [Value ])
446- Creator .UpdateTheme ()
447-
448- return Themes [Value ]
449- end
450- return nil
451- end
452465
453- function Window :GetThemes ()
454- return Themes
455- end
456- function Window :GetCurrentTheme ()
457- return WindUI .Theme .Name
458- end
459- function Window :GetTransparency ()
460- return WindUI .Transparent or false
461- end
462- function Window :GetWindowSize ()
463- return Window .UIElements .Main .Size
464- end
465466
466467
467468 function Window :ToggleTransparency (Value )
0 commit comments