shiftos-archive/ShiftOS-TheRevival-Old
1
0
Fork 0
mirror of https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git synced 2025-01-22 18:02:16 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Shiftoriumable File Skimmer

Browse source
This commit is contained in:
EverythingWindows 2022-12-03 14:41:48 +07:00
parent 245fadfa72
commit 16094d6b2f
4 changed files with 208 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

200
ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
View file

@ -168,8 +168,37 @@
Else Else
If Strings.AvailableFeature(44) = 0 Then If Strings.AvailableFeature(44) = 0 Then
NewLine("(fileskimmer | 300 CP) File Skimmer") NewLine("(fileskimmer | 300 CP) File Skimmer")
Else
If Strings.AvailableFeature(45) = 0 Then
NewLine("(fs_folder | 325 CP) FS Folder Support")
Else
If Strings.AvailableFeature(46) = 0 Then
NewLine("(fs_file | 350 CP) FS File Support")
Else
If Strings.AvailableFeature(47) = 0 Then
NewLine("(fs_delete | 400 CP) FS Delete Support")
End If
If Strings.AvailableFeature(48) = 0 Then
NewLine("(fs_zip | 500 CP) FS ZIP Support")
End If
End If
End If
If Strings.AvailableFeature(49) = 0 Then
NewLine("(fs_ppane | 350 CP) FS Property Pane")
End If
If Strings.AvailableFeature(50) = 0 Then
NewLine("(fs_jobbar | 400 CP) FS JobBar")
Else
If Strings.AvailableFeature(51) = 0 Then
NewLine("(fs_smallicons | 425 CP) FS Small Icons Layout")
End If
If Strings.AvailableFeature(52) = 0 Then
NewLine("(fs_list | 425 CP) FS List Layout")
End If
End If
End If End If
End If End If
End If
End Sub End Sub
Public Sub Shiftorium_InformationFeatures() Public Sub Shiftorium_InformationFeatures()
@ -565,7 +594,106 @@
ManHeader(1) = "250 CP" ManHeader(1) = "250 CP"
NewLine(ManHeader(0)) NewLine(ManHeader(0))
NewLine(Nothing) NewLine(Nothing)
NewLine("Adds US States category into Knowledge Input") NewLine("Expands read and write support for Dual Window Manager")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fileskimmer"
If Strings.AvailableFeature(44) = 0 Then
ManHeader(0) = "File Skimmer"
ManHeader(1) = "300 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("A file manager for ShiftOS")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_folder"
If Strings.AvailableFeature(45) = 0 Then
ManHeader(0) = "FS Folder support"
ManHeader(1) = "325 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds folder read and write support for File Skimmer")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_file"
If Strings.AvailableFeature(46) = 0 Then
ManHeader(0) = "FS File support"
ManHeader(1) = "350 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds file read and write support for File Skimmer")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_delete"
If Strings.AvailableFeature(47) = 0 Then
ManHeader(0) = "FS Delete support"
ManHeader(1) = "400 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Supports file or directory deletion function in ShiftOS")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_zip"
If Strings.AvailableFeature(48) = 0 Then
ManHeader(0) = "FS Delete support"
ManHeader(1) = "500 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Supports ZIP compression function in ShiftOS")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_ppane"
If Strings.AvailableFeature(49) = 0 Then
ManHeader(0) = "FS Property Pane"
ManHeader(1) = "350 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("A sidebar for displaying informations about the file / directory")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_jobbar"
If Strings.AvailableFeature(50) = 0 Then
ManHeader(0) = "FS JobBar"
ManHeader(1) = "400 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("A top panel contains certain actions for File Skimmer")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_smallicons"
If Strings.AvailableFeature(51) = 0 Then
ManHeader(0) = "FS Small Icons Layout"
ManHeader(1) = "425 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds small icons as a display layout in File Skimmer")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_list"
If Strings.AvailableFeature(51) = 0 Then
ManHeader(0) = "FS List"
ManHeader(1) = "425 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds list as a display layout in File Skimmer")
NewLine(Nothing) NewLine(Nothing)
NewLine(ManHeader(1)) NewLine(ManHeader(1))
NormalCommand() NormalCommand()
@ -709,6 +837,36 @@
Case "ki_us" Case "ki_us"
Shiftorium_InstallFeatures(True, "ki_us", 42, 300) Shiftorium_InstallFeatures(True, "ki_us", 42, 300)
NormalCommand() NormalCommand()
Case "duwm_rw"
Shiftorium_InstallFeatures(True, "duwm_rw", 43, 250)
NormalCommand()
Case "fileskimmer"
Shiftorium_InstallFeatures(True, "fileskimmer", 44, 300)
NormalCommand()
Case "fs_folder"
Shiftorium_InstallFeatures(True, "fs_folder", 45, 325)
NormalCommand()
Case "fs_file"
Shiftorium_InstallFeatures(True, "fs_file", 46, 350)
NormalCommand()
Case "fs_delete"
Shiftorium_InstallFeatures(True, "fs_delete", 47, 400)
NormalCommand()
Case "fs_zip"
Shiftorium_InstallFeatures(True, "fs_zip", 48, 500)
NormalCommand()
Case "fs_ppane"
Shiftorium_InstallFeatures(True, "fs_ppane", 49, 350)
NormalCommand()
Case "fs_jobbar"
Shiftorium_InstallFeatures(True, "fs_jobbar", 50, 400)
NormalCommand()
Case "fs_smallicons"
Shiftorium_InstallFeatures(True, "fs_smallicons", 51, 425)
NormalCommand()
Case "fs_list"
Shiftorium_InstallFeatures(True, "fs_list", 52, 425)
NormalCommand()
Case Else Case Else
NormalCommand() NormalCommand()
NewLine("Shiftorium: Bad command or not available") NewLine("Shiftorium: Bad command or not available")
@ -879,6 +1037,7 @@
GUISCustomizations.DesktopColor = Color.Black GUISCustomizations.DesktopColor = Color.Black
Strings.AvailableFeature(36) = "0" Strings.AvailableFeature(36) = "0"
Strings.AvailableFeature(37) = "0" Strings.AvailableFeature(37) = "0"
Strings.AvailableFeature(43) = "0"
success = True success = True
Case "shifter" Case "shifter"
Strings.AvailableFeature(36) = "1" Strings.AvailableFeature(36) = "1"
@ -907,6 +1066,45 @@
Case "ki_us" Case "ki_us"
Strings.AvailableFeature(42) = "1" Strings.AvailableFeature(42) = "1"
success = True success = True
Case "duwm_rw"
Strings.AvailableFeature(43) = "1"
Strings.AvailableFeature(44) = "0"
success = True
Case "fileskimmer"
Strings.AvailableFeature(44) = "1"
Strings.AvailableFeature(45) = "0"
Strings.AvailableFeature(49) = "0"
Strings.AvailableFeature(50) = "0"
success = True
Case "fs_folder"
Strings.AvailableFeature(45) = "1"
Strings.AvailableFeature(46) = "0"
success = True
Case "fs_file"
Strings.AvailableFeature(46) = "1"
Strings.AvailableFeature(47) = "0"
Strings.AvailableFeature(48) = "0"
success = True
Case "fs_delete"
Strings.AvailableFeature(47) = "1"
success = True
Case "fs_zip"
Strings.AvailableFeature(48) = "1"
success = True
Case "fs_ppane"
Strings.AvailableFeature(49) = "1"
success = True
Case "fs_jobbar"
Strings.AvailableFeature(50) = "1"
Strings.AvailableFeature(51) = "0"
Strings.AvailableFeature(52) = "0"
success = True
Case "fs_smallicons"
Strings.AvailableFeature(51) = "1"
success = True
Case "fs_list"
Strings.AvailableFeature(52) = "1"
success = True
End Select End Select
If success = False Then If success = False Then
If IsCLI = True Then If IsCLI = True Then

4
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb
View file

@ -11,7 +11,6 @@ Public Class Uni_FileSkimmer
'End thingy 'End thingy
CurrentDir = Strings.OnceInfo(1) CurrentDir = Strings.OnceInfo(1)
txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!\") txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!\")
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_folder
ShowContent() ShowContent()
End Sub End Sub
@ -228,6 +227,9 @@ Public Class Uni_FileSkimmer
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown
lbl_filetype.Text = "Unknown File Type" lbl_filetype.Text = "Unknown File Type"
IsFile = True IsFile = True
ElseIf lsv_Content.SelectedItems(0).Text = "???" Then
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown
lbl_filetype.Text = "Unknown Type"
End If End If
If IsFile = True Then If IsFile = True Then
lbl_filesize.Visible = True lbl_filesize.Visible = True

4
ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb
View file

@ -15,7 +15,9 @@
DuWM_NewProcess(DuWM_Shifter) DuWM_NewProcess(DuWM_Shifter)
End If End If
Case "file_skimmer" Case "file_skimmer"
DuWM_NewProcess(Uni_FileSkimmer) If Strings.AvailableFeature(44) = 1 Then
DuWM_NewProcess(Uni_FileSkimmer)
End If
End Select End Select
End Select End Select
End Sub End Sub

3
ShiftOS-TheRevival/TerminalApplications/Internal/Com_Applist.vb
View file

@ -3,6 +3,9 @@
NewLine("ShiftOS Graphical Application List") NewLine("ShiftOS Graphical Application List")
NewLine("To run a program, you can type 'app ' and the name of the program listed below (along with its underscore or any symbols included)") NewLine("To run a program, you can type 'app ' and the name of the program listed below (along with its underscore or any symbols included)")
NewLine(Nothing) NewLine(Nothing)
If Strings.AvailableFeature(44) = 1 Then
NewLine("FILE_SKIMMER A file manager for ShiftOS")
End If
If Strings.AvailableFeature(37) = 1 Then If Strings.AvailableFeature(37) = 1 Then
NewLine("KNOWLEDGE_INPUT Simple puzzle game where you guess as many things as you can") NewLine("KNOWLEDGE_INPUT Simple puzzle game where you guess as many things as you can")
End If End If