home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 May / CDROM.ISO / setup.mnu < prev    next >
Encoding:
Text File  |  1999-01-19  |  3.5 KB  |  131 lines
  1. start main
  2.  
  3. ; NOTE: This file needs LSETUP >= v1.4 !!!
  4.  
  5.  
  6.  
  7. ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  8. ;@@@@@@@@@@@@@@@@@@@@@@@  CONFIGURATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
  9. ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  10.  
  11.  
  12. ;         +---- normattrib
  13. ;         |     +-- inversattrib
  14. ;         |     |     +-- highlightattrib
  15. ;         |     |     |     +-- frameattrib
  16. ;colors (0x0f, 0x6f, 0x10, 0x07, 0x07, 0x70, 0x0f, 0x07) ; standard set, black background
  17. ;              the same for MDA---^-----^-----^-----^
  18. colors (0x70, 0x0e, 0x0e, 0x70, 0x07, 0x70, 0x0f, 0x07)    ; light background, a little color
  19. ;colors (0x70, 0x0f, 0xf0, 0x7f, 0x07, 0x70, 0x0f, 0x07)    ; light background, no color
  20. ;colors (0x07, 0x70, 0x0f, 0x07, 0x07, 0x70, 0x0f, 0x07)    ; for MDA, Hercules
  21.  
  22.  
  23. ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  24. ;@@@@@@@@@@@@@@@@@@@@@@@@@  MENU PART  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  25. ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  26.  
  27. lang_defines:  string {"-DGERMAN\n-DENGLISH\n-DSPANISH\n-DFRENCH\n-DINDONESIA\n-DITALIAN\n-DHUNGARIA\n-DDUTCH\n-DPOLISH\n-DPORTUGUESE\n-DBRAZIL\n-DRUSSIA"}
  28. lang_choicetx: string {"Deutsch\nEnglish\nEspanol\nFrançais\nIndonesia\nItaliano\nMagyar\nNederlands\nPolish\nPortuguese\nPortuguese Brazil\nRussian"}
  29.  
  30. ;===========================================================================
  31.  
  32. main_log_colum:     string {"40"}
  33.  
  34. main: menu (0,0,80,3,0) {
  35.   image {
  36.     "SuSE Linux Setup                            Copyright 1994-1999 SuSE GmbH"
  37.   }
  38.   action {
  39.     show ( main2 )
  40.   }
  41. }
  42.  
  43. ; Main window body
  44.  
  45. main2: menu (0,2,80,25-2,1) {
  46.  
  47.   image {  "" }
  48.  
  49.   action {
  50.     set buttontextlist = lang_choicetx
  51.     show ( big_empty_menu,
  52.     "       Bitte wählen Sie die Sprache für Setup\n"
  53.     "        Please choose the language for setup\n"
  54.     "             Prego scegliete una lingua\n"
  55.     "          Choisissez votre langue pour Setup"
  56.     , button_ask
  57.     )
  58.     call strcpyitem(work1, lang_defines , buttonresult)
  59. ;    call strprefix(work1,"-v ")
  60. #ifdef LOADLIN_TEST
  61.     call strcat(work1," -DLOADLIN_TEST")
  62. #endif
  63. #ifdef FINAL_TEST
  64.     call strcat(work1," -DFINAL_TEST")
  65. #endif
  66. #ifdef LOADLIN_EXE_TEST
  67.     call strcat(work1," -DLOADLIN_EXE_TEST")
  68. #endif
  69.     call existfile("c:/loadlin/susesave.mnu");
  70.     iftrue strcat(work1," -DSUSE_SAVE")
  71. ;    call exit(work1)
  72.     call restart_myself(work1,"setup/setupprg.mnu")
  73.   }
  74. }
  75.  
  76.  
  77. ;-----------------
  78. big_empty_menu: menu (10,3, 80-2*10, 25-2*2,0) {
  79.   image { "" }
  80. }
  81.  
  82.  
  83. ;-----------------
  84. #ifdef USE_LANGUAGE_BUTTONS
  85.  
  86. button_ask: function {
  87.   ; uses the string buttontextlist as input
  88.   ; and returns the selected item number in
  89.   call buttons(buttontextlist)
  90.   iffalse cancelinstall(0)
  91.   set  buttonresult = __lastresult__
  92. }
  93.  
  94. #else
  95.  
  96. scroll_result: string
  97.  
  98. scroll_window: menu (40-10, 25-2*8, 2*10, 14, 0) {
  99.   image { "" }
  100.   action {
  101.      call scrollbar (scroll_result, buttontextlist, 1)
  102.      iffalse cancelinstall(0)
  103.      set buttonresult = __lastresult__
  104.   }
  105. }
  106.  
  107. button_ask: function {
  108.   show ( scroll_window )
  109. }
  110. #endif
  111.  
  112. ;-----------------
  113. cancelinstall: function {
  114.  
  115. #ifdef TESTING
  116.   show (debug_stop,nextjob)
  117. #endif
  118.   call exit(cancelmesg)
  119. }
  120.  
  121.  
  122. ; params for button menues:
  123. buttontextlist:   string
  124. buttonresult:     string
  125.  
  126. ; some work string definitions
  127. cancelmesg:       string { "Sie haben die Installation abgebrochen!\n"
  128.                            "You have canceled the installation!" }
  129. work1:            string
  130.  
  131.