home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / sharewar / winbatch / winbatch.exe / DDETEST.WB_ < prev    next >
Encoding:
Text File  |  1996-10-24  |  3.4 KB  |  80 lines
  1. ;;Program manager WBT script.  Adding/Deleting/Showing Program Manager Groups and Icons.  
  2.  
  3.                     ;;Written February 1994  by Wilson WindowWare, Inc.  
  4.                     ;;Modifed July 1995
  5.                     ;;Progbuild removed Oct 96
  6.  
  7. ;;Call Progman.wil
  8. ;;Syntax of commands:
  9. ;;    Call("progman.wil", "AddGroup 'Group Title'")
  10. ;;        (             , "DelGroup 'Group Title'")
  11. ;;        (             , "AddIcon 'Group Title' 'File and Path' 'Icon Description''wrk dir'")
  12. ;;        (             , "DelIcon 'Group Title' 'Icon Description'")
  13. ;;        (             , "ShowGroup 'Group Title' ShowCommand")
  14. ;;        (             , "ReplaceItem 'Group Title' 'Icon Description'")
  15. ;;        (             , "Reload 'Group Title'")
  16. ;;        (             , "IconDump 'Group Title''Icon Description' 'variable name'")
  17. ;;        (             , "ListGroups")    ; Sets variable GROUPS to tab delimited list of groups
  18. ;;        (             , "ListIcons 'Group Title' 'variable name'")    ; Creates a tab delimited list of icons.
  19. ;;    Call("progman.wil", "AddNewData '%grptitle%' '%data%'")
  20.  
  21.  
  22. ;;Show command is an integer which specifies the action Program Manager is to perform on the group window.
  23. ;;        VALUE          ACTION
  24. ;;          1               Restores group to its original size and position.
  25. ;;          2               Displays group as an icon.
  26. ;;          3               Displays group as a maximized window.
  27. ;;          6               Minimizes the group window.
  28. ;;                                 
  29.  
  30.  
  31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  33.  
  34. Display(5, "Progman.Wil Test Run", "Progman.wil will show the accessories group in various display modes.")
  35.  
  36.  
  37. Call("Progman.wil", "ShowGroup 'Accessories' 1 ")
  38. delay(2)
  39. Call("Progman.wil", "ShowGroup 'Accessories' 2 ")
  40. delay(2)
  41. Call("Progman.wil", "ShowGroup 'Accessories' 3 ")
  42. delay(2)
  43. Call("Progman.wil", "ShowGroup 'Accessories' 6 ")                         
  44. delay(2)
  45. ;Call("Progman.wil", "Reload 'Accessories'")  ; Not implemented in Win95/NT4.0
  46. ;delay(2)
  47. ;exit
  48.  
  49. Display(5, "Progman.Wil Test Run",  "Progman.wil will now add a group, an icon, and then replace the icon.")
  50.  
  51. Call("progman.wil", "ADDGroup 'Group One' ")
  52. delay(2)
  53. Call("Progman.wil", "AddIcon 'Group One' 'C:\windows\clock.exe' 'tick tock' ")
  54. delay(2)
  55. Call("Progman.wil", "ReplaceItem 'Group One' 'tick tock'")
  56. delay(2)
  57. Call("Progman.wil", "AddIcon 'Group One' 'C:\WINDOWS\NOTEPAD.EXE' 'Notepad' ")
  58. delay(2)
  59.  
  60. Call("Progman.wil", "ListGroups 'joan'")
  61. mygroup=AskItemList("Select a Group for IconDump",joan,@tab,@sorted,@single)
  62. Call("Progman.wil", "ListIcons '%mygroup%' 'sally'")    ; Creates a tab delimited list of icons.
  63. myicon=AskItemList("Select an item for IconDump",sally,@tab,@sorted,@single)
  64. myicon=ItemExtract(1,myicon,",")
  65. myicon=StrReplace(myicon,'"','')
  66.  
  67. Message("IconDump Test Run for %myicon%", "By passing a groupname and icon, this command can return the icons syntax.") 
  68. Call("progman.wil", "Icondump '%mygroup%' '%myicon%' 'fred'")
  69. fred=StrReplace(fred,'"','')        ;replace quotes with null-string.
  70. Message("Dump of %myicon%", fred)
  71.  
  72. Call("progman.wil", "DelIcon 'Group One' 'Notepad'")
  73. delay(1)
  74. Call("progman.wil", "DelGroup 'Group One' ")
  75. delay(1)
  76.  
  77.  
  78.  
  79. Message("DDETEST.WBT EXAMPLE", "That's all folks..")
  80.