mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-22 11:21:47 -05:00
Shiftoriumable File Skimmer
This commit is contained in:
EverythingWindows
parent
245fadfa72
commit
16094d6b2f
4 changed files with 208 additions and 3 deletions
|
|
@ -168,6 +168,35 @@
|
|||
Else
|
||||
If Strings.AvailableFeature(44) = 0 Then
|
||||
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 Sub
|
||||
|
|
@ -565,7 +594,106 @@
|
|||
ManHeader(1) = "250 CP"
|
||||
NewLine(ManHeader(0))
|
||||
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(ManHeader(1))
|
||||
NormalCommand()
|
||||
|
|
@ -709,6 +837,36 @@
|
|||
Case "ki_us"
|
||||
Shiftorium_InstallFeatures(True, "ki_us", 42, 300)
|
||||
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
|
||||
NormalCommand()
|
||||
NewLine("Shiftorium: Bad command or not available")
|
||||
|
|
@ -879,6 +1037,7 @@
|
|||
GUISCustomizations.DesktopColor = Color.Black
|
||||
Strings.AvailableFeature(36) = "0"
|
||||
Strings.AvailableFeature(37) = "0"
|
||||
Strings.AvailableFeature(43) = "0"
|
||||
success = True
|
||||
Case "shifter"
|
||||
Strings.AvailableFeature(36) = "1"
|
||||
|
|
@ -907,6 +1066,45 @@
|
|||
Case "ki_us"
|
||||
Strings.AvailableFeature(42) = "1"
|
||||
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
|
||||
If success = False Then
|
||||
If IsCLI = True Then
|
||||
|
|
|
|||
|
|
@ -11,7 +11,6 @@ Public Class Uni_FileSkimmer
|
|||
'End thingy
|
||||
CurrentDir = Strings.OnceInfo(1)
|
||||
txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!\")
|
||||
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_folder
|
||||
ShowContent()
|
||||
End Sub
|
||||
|
||||
|
|
@ -228,6 +227,9 @@ Public Class Uni_FileSkimmer
|
|||
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown
|
||||
lbl_filetype.Text = "Unknown File Type"
|
||||
IsFile = True
|
||||
ElseIf lsv_Content.SelectedItems(0).Text = "???" Then
|
||||
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown
|
||||
lbl_filetype.Text = "Unknown Type"
|
||||
End If
|
||||
If IsFile = True Then
|
||||
lbl_filesize.Visible = True
|
||||
|
|
|
|||
|
|
@ -15,7 +15,9 @@
|
|||
DuWM_NewProcess(DuWM_Shifter)
|
||||
End If
|
||||
Case "file_skimmer"
|
||||
If Strings.AvailableFeature(44) = 1 Then
|
||||
DuWM_NewProcess(Uni_FileSkimmer)
|
||||
End If
|
||||
End Select
|
||||
End Select
|
||||
End Sub
|
||||
|
|
|
|||
|
|
@ -3,6 +3,9 @@
|
|||
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(Nothing)
|
||||
If Strings.AvailableFeature(44) = 1 Then
|
||||
NewLine("FILE_SKIMMER A file manager for ShiftOS")
|
||||
End If
|
||||
If Strings.AvailableFeature(37) = 1 Then
|
||||
NewLine("KNOWLEDGE_INPUT Simple puzzle game where you guess as many things as you can")
|
||||
End If
|
||||
|
|
|
|||
Loading…
Reference in a new issue