RDI 0.1.0.20091020

data/lib/rdi/Plugins/RubyGemsDepDesc.rb

@@ -0,0 +1,41 @@
+#--
+# Copyright (c) 2009 Muriel Salvan (murielsalvan@users.sourceforge.net)
+# Licensed under the terms specified in LICENSE file. No warranty is provided.
+#++
+
+module RDI
+
+  # Give the description of the RubyGems dependency
+  # It has been put in this singular file because it is required by many different plugins
+  #
+  # Return:
+  # * <em>map<Symbol,Object></em>: The description
+  def self.getRubyGemsDepDesc
+    return RDI::Model::DependencyDescription.new('RubyGems 1.3.5').addDescription( {
+      :Testers => [
+        {
+          :Type => 'RubyRequires',
+          :Content => [ 'rubygems' ]
+        }
+      ],
+      :Installers => [
+        {
+          :Type => 'DownloadAndInstall',
+          :Content => [
+            'http://rubyforge.org/frs/download.php/60719/rubygems-1.3.5.zip',
+            Proc.new do |iInstallLocation|
+              next system("ruby -w setup.rb --destdir #{iInstallLocation}")
+            end
+          ],
+          :ContextModifiers => [
+            {
+              :Type => 'RubyLoadPath',
+              :Content => "%INSTALLDIR%/lib/ruby/site_ruby/#{Config::CONFIG['ruby_version']}"
+            }
+          ]
+        }
+      ]
+    } )
+  end
+
+end

data/lib/rdi/Plugins/Testers/Binaries.rb

@@ -0,0 +1,56 @@
+#--
+# Copyright (c) 2009 Muriel Salvan (murielsalvan@users.sourceforge.net)
+# Licensed under the terms specified in LICENSE file. No warranty is provided.
+#++
+
+require 'rdi/Model/Tester'
+
+module RDI
+
+  module Testers
+
+    # Test that some Exes are accessible
+    class Binaries < RDI::Model::Tester
+
+      # Give the name of possible ContextModifiers that might change the resolution of this Tester.
+      # This is used to know what context modifiers the user can use to resolve dependencies without having to install.
+      #
+      # Return:
+      # * <em>list<String></em>: The list of ContextModifiers names
+      def getAffectingContextModifiers
+        return [ 'SystemPath' ]
+      end
+
+      # Test if a given content is resolved
+      #
+      # Parameters:
+      # * *iContent* (_Object_): The tester's content
+      # Return:
+      # * _Boolean_: Is the content resolved ?
+      def isContentResolved?(iContent)
+        # * *iContent* (<em>list<String></em>): The list of Exes to resolve (extensions might be guessed)
+        rSuccess = false
+
+        # For each required file, test that it exists among PATH
+        iContent.each do |iExeName|
+          $rUtilAnts_Platform_Info.getSystemExePath.each do |iDir|
+            rSuccess = (!Dir.glob(File.expand_path("#{iDir}/#{iExeName}{,#{$rUtilAnts_Platform_Info.getDiscreteExeExtensions.join(',')}}")).empty?)
+            if (rSuccess)
+              # We found it. Don't try other paths.
+              break
+            end
+          end
+          if (!rSuccess)
+            # We didn't find this exe. Don't try other requires.
+            break
+          end
+        end
+
+        return rSuccess
+      end
+
+    end
+
+  end
+
+end

data/lib/rdi/Plugins/Testers/DynamicLibraries.rb

@@ -0,0 +1,56 @@
+#--
+# Copyright (c) 2009 Muriel Salvan (murielsalvan@users.sourceforge.net)
+# Licensed under the terms specified in LICENSE file. No warranty is provided.
+#++
+
+require 'rdi/Model/Tester'
+
+module RDI
+
+  module Testers
+
+    # Test that some DLLs are accessible
+    class DynamicLibraries < RDI::Model::Tester
+
+      # Give the name of possible ContextModifiers that might change the resolution of this Tester.
+      # This is used to know what context modifiers the user can use to resolve dependencies without having to install.
+      #
+      # Return:
+      # * <em>list<String></em>: The list of ContextModifiers names
+      def getAffectingContextModifiers
+        return [ 'LibraryPath' ]
+      end
+
+      # Test if a given content is resolved
+      #
+      # Parameters:
+      # * *iContent* (_Object_): The tester's content
+      # Return:
+      # * _Boolean_: Is the content resolved ?
+      def isContentResolved?(iContent)
+        # * *iContent* (<em>list<String></em>): The list of DLLs to resolve
+        rSuccess = false
+
+        # For each required file, test that it exists among $LOAD_PATH
+        iContent.each do |iDLLName|
+          $rUtilAnts_Platform_Info.getSystemLibsPath.each do |iDir|
+            rSuccess = File.exists?("#{iDir}/#{iDLLName}")
+            if (rSuccess)
+              # We found it. Don't try other paths.
+              break
+            end
+          end
+          if (!rSuccess)
+            # We didn't find this require. Don't try other requires.
+            break
+          end
+        end
+
+        return rSuccess
+      end
+
+    end
+
+  end
+
+end

data/lib/rdi/Plugins/Testers/RubyRequires.rb

@@ -0,0 +1,76 @@
+#--
+# Copyright (c) 2009 Muriel Salvan (murielsalvan@users.sourceforge.net)
+# Licensed under the terms specified in LICENSE file. No warranty is provided.
+#++
+
+require 'rdi/Model/Tester'
+require 'rdi/Plugins/GemCommon'
+
+module RDI
+
+  module Testers
+
+    # Test that some Ruby files are accessible
+    class RubyRequires < RDI::Model::Tester
+
+      # Give the name of possible ContextModifiers that might change the resolution of this Tester.
+      # This is used to know what context modifiers the user can use to resolve dependencies without having to install.
+      #
+      # Return:
+      # * <em>list<String></em>: The list of ContextModifiers names
+      def getAffectingContextModifiers
+        return [ 'GemPath', 'RubyLoadPath' ]
+      end
+
+      # Test if a given content is resolved
+      #
+      # Parameters:
+      # * *iContent* (_Object_): The tester's content
+      # Return:
+      # * _Boolean_: Is the content resolved ?
+      def isContentResolved?(iContent)
+        # * *iContent* (<em>list<String></em>): The list of requires to resolve
+        rSuccess = false
+
+        # Handle RubyGems as an option
+        if (defined?(Gem) == nil)
+          # No RubyGem.
+          # For each required file, test that it exists among $LOAD_PATH
+          iContent.each do |iRequireName|
+            lFileFilter = iRequireName
+            if (File.extname(iRequireName).empty?)
+              lFileFilter = "#{iRequireName}.{rb,so,o,sl,dll}"
+            end
+            rSuccess = false
+            $LOAD_PATH.each do |iDir|
+              rSuccess = (!Dir.glob(File.expand_path("#{iDir}/#{lFileFilter}")).empty?)
+              if (rSuccess)
+                # We found it. Don't try other paths.
+                break
+              end
+            end
+            if (!rSuccess)
+              # We didn't find this require. Don't try other requires.
+              break
+            end
+          end
+        else
+          # RubyGems is here. Use it.
+          # For each required file, test that it exists among the RubyGems' loaded paths
+          iContent.each do |iRequireName|
+            rSuccess = (!Gem.find_files(iRequireName).empty?)
+            if (!rSuccess)
+              # We did not find this one: don't even try the next ones
+              break
+            end
+          end
+        end
+
+        return rSuccess
+      end
+
+    end
+
+  end
+
+end

data/lib/rdi/Plugins/Views/SimpleWxGUI/DependenciesLoaderDialog.rb

@@ -0,0 +1,147 @@
+#--
+# Copyright (c) 2009 Muriel Salvan (murielsalvan@users.sourceforge.net)
+# Licensed under the terms specified in LICENSE file. No warranty is provided.
+#++
+
+module RDI
+
+  module Views
+
+    class SimpleWxGUI
+
+      # Dialog that downloads missing dependencies
+      # Apart launchers, only this class has a dependency on RubyGems
+      class DependenciesLoaderDialog < Wx::Dialog
+
+        # Constructor
+        #
+        # Parameters:
+        # * *iParent* (<em>Wx::Window</em>): The parent
+        # * *ioInstaller* (_Installer_): The installer
+        # * *iDepsUserChoices* (<em>list<DependencyUserChoice></em>): The dependency user choices to reflect in this dialog
+        def initialize(iParent, ioInstaller, iDepsUserChoices)
+          super(iParent,
+            :title => 'RDI: Runtime Dependencies Installer',
+            :style => Wx::DEFAULT_DIALOG_STYLE|Wx::RESIZE_BORDER|Wx::MAXIMIZE_BOX
+          )
+
+          # This boolean will prevent undesirable refreshes
+          @DuringInit = true
+
+          @Installer, @DepsUserChoices = ioInstaller, iDepsUserChoices
+          @IconsDir = "#{File.dirname(__FILE__)}/Icons"
+
+          # Create components
+          @BApply = Wx::Button.new(self, Wx::ID_ANY, 'Apply')
+          lSTMessage = Wx::StaticText.new(self, Wx::ID_ANY, "#{@DepsUserChoices.size} dependencies could not be found.\nPlease indicate what action to take for each one of them before continuing.",
+            :style => Wx::ALIGN_CENTRE
+          )
+          lFont = lSTMessage.font
+          lFont.weight = Wx::FONTWEIGHT_BOLD
+          lSTMessage.font = lFont
+
+          # The notebook containing the scroll windows
+          @NBDeps = Wx::Notebook.new(self)
+          # Create the image list for the notebook
+          lNotebookImageList = Wx::ImageList.new(16, 16)
+          @NBDeps.image_list = lNotebookImageList
+          # Make this image list driven by a manager
+          @NBImageListManager = RUtilAnts::GUI::ImageListManager.new(lNotebookImageList, 16, 16)
+
+          # Create the list of Panels displaying each dependency
+          @DependencyPanels = []
+          require 'rdi/Plugins/Views/SimpleWxGUI/DependencyPanel'
+          @DepsUserChoices.each do |iDepUserChoice|
+            @DependencyPanels << DependencyPanel.new(
+              @NBDeps,
+              @Installer,
+              iDepUserChoice,
+              self
+            )
+          end
+
+          # The notebook pages, 1 per dependency
+          lIdx = 0
+          @DepsUserChoices.each do |iDepUserChoice|
+            @NBDeps.add_page(
+              @DependencyPanels[lIdx],
+              iDepUserChoice.DepDesc.ID,
+              false,
+              -1
+            )
+            lIdx += 1
+          end
+
+          # Resize some components as they will be used for sizers
+          @NBDeps.fit
+
+          # Put everything in sizers
+          lMainSizer = Wx::BoxSizer.new(Wx::VERTICAL)
+          lMainSizer.add_item(lSTMessage, :border => 8, :flag => Wx::ALIGN_CENTER|Wx::ALL, :proportion => 0)
+          lMainSizer.add_item(@NBDeps, :flag => Wx::GROW, :proportion => 1)
+          lMainSizer.add_item(@BApply, :border => 8, :flag => Wx::ALIGN_RIGHT|Wx::ALL, :proportion => 0)
+          self.sizer = lMainSizer
+
+          self.fit
+
+          # Events
+          evt_button(@BApply) do |iEvent|
+            self.end_modal(Wx::ID_OK)
+          end
+
+          @DuringInit = false
+
+          # Update the tabs
+          @DependencyPanels.each do |iPanel|
+            notifyRefresh(iPanel)
+          end
+
+        end
+
+        # A panel has been refreshed
+        #
+        # Parameters:
+        # * *iPanel* (<em>Wx::Panel</em>): The panel just refreshed
+        def notifyRefresh(iPanel)
+          if (!@DuringInit)
+            # Find the Tab containing this Panel
+            lIdx = @DependencyPanels.index(iPanel)
+            lDepUserChoice = @DepsUserChoices[lIdx]
+            lIconName = "#{@IconsDir}/Dependency.png"
+            if (lDepUserChoice.Locate)
+              if (lDepUserChoice.ResolvedTesters.size == lDepUserChoice.DepDesc.Testers.size)
+                # Complete
+                lIconName = "#{@IconsDir}/ValidOK.png"
+              else
+                # Incomplete
+                lIconName = "#{@IconsDir}/ValidKO.png"
+              end
+            elsif (lDepUserChoice.Ignore)
+              lIconName = "#{@IconsDir}/Ignore.png"
+            else
+              # Get the icon of the selected Installer
+              lInstallerName = lDepUserChoice.DepDesc.Installers[lDepUserChoice.IdxInstaller][0]
+              # TODO: Accept more data formats
+              lInstallerIconName = "#{@Installer.RDILibDir}/Plugins/Installers/Icons/#{lInstallerName}.png"
+              if (File.exists?(lInstallerIconName))
+                lIconName = lInstallerIconName
+              end
+            end
+            lIdxImage = @NBImageListManager.getImageIndex(lIconName) do
+              lIcon, lError = getBitmapFromURL(lIconName)
+              if (lIcon == nil)
+                lIcon, lError = getBitmapFromURL("#{@IconsDir}/Dependency.png")
+              end
+              next lIcon
+            end
+            @NBDeps.set_page_image(lIdx, lIdxImage)
+          end
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/lib/rdi/Plugins/Views/SimpleWxGUI/DependencyPanel.rb

@@ -0,0 +1,301 @@
+#--
+# Copyright (c) 2009 Muriel Salvan (murielsalvan@users.sourceforge.net)
+# Licensed under the terms specified in LICENSE file. No warranty is provided.
+#++
+
+module RDI
+
+  module Views
+
+    class SimpleWxGUI
+
+      # Panel that proposes how to resolve a dependency
+      class DependencyPanel < Wx::Panel
+
+        # Constructor
+        # The notifier control window must have a notifyInstallDecisionChanged method implemented
+        #
+        # Parameters:
+        # * *iParent* (<em>Wx::Window</em>): The parent window
+        # * *ioInstaller* (_Installer_): The installer
+        # * *iDepUserChoice* (_DependencyUserChoice_): The dependency's user choice
+        # * *iNotifierControl* (_Object_): The notifier control that will be notified upon changes
+        def initialize(iParent, ioInstaller, iDepUserChoice, iNotifierControl)
+          super(iParent)
+
+          @Installer, @DepUserChoice, @NotifierControl = ioInstaller, iDepUserChoice, iNotifierControl
+          @IconsDir = "#{File.dirname(__FILE__)}/Icons"
+
+          # Create components
+
+          # The locate part
+          @RBLocate = Wx::RadioButton.new(self, Wx::ID_ANY, 'Locate', :style => Wx::RB_GROUP)
+          # The Testers' statuses
+          # The list of [ StaticBitmap, StaticText ] used to represent Testers' state
+          # list< [ Wx::StaticBitmap, Wx::StaticText ] >
+          @TesterComponents = []
+          @DepUserChoice.DepDesc.Testers.each do |iTesterInfo|
+            iTesterName, iTesterContent = iTesterInfo
+            @TesterComponents << [
+              Wx::StaticBitmap.new(self, Wx::ID_ANY, Wx::Bitmap.new),
+              Wx::StaticText.new(self, Wx::ID_ANY, "#{iTesterName}: #{iTesterContent}")
+            ]
+          end
+          # The buttons affecting ContextModifiers
+          # The list of Buttons used to affect ContextModifiers
+          # list< Wx::Button >
+          lACMComponents = []
+          @DepUserChoice.AffectingContextModifiers.each do |iCMName|
+            lACMComponents << Wx::Button.new(self, Wx::ID_ANY, "Change #{iCMName}")
+          end
+
+          # The ignore part
+          @RBIgnore = Wx::RadioButton.new(self, Wx::ID_ANY, 'Ignore')
+
+          # The install part
+          @RBInstall = Wx::RadioButton.new(self, Wx::ID_ANY, 'Install')
+          # The list of installers info
+          # list< [ RadioButton, StaticBitmap, list< RadioButton > ] >
+          @InstallerComponents = []
+          # First, create the installers radio buttons before their respective destinations radio buttons.
+          # This is done this way to ensure correct radio buttons grouping
+          @DepUserChoice.DepDesc.Installers.each do |iInstallerInfo|
+            iInstallerName, iInstallerContent, iContextModifiers = iInstallerInfo
+            lRBInstaller = nil
+            if (@InstallerComponents.empty?)
+              # First item of the group
+              lRBInstaller = Wx::RadioButton.new(self, Wx::ID_ANY, "#{iInstallerName} - #{iInstallerContent}", :style => Wx::RB_GROUP)
+            else
+              lRBInstaller = Wx::RadioButton.new(self, Wx::ID_ANY, "#{iInstallerName} - #{iInstallerContent}")
+            end
+            # Icon of the installer
+            lIconName = "#{@IconsDir}/Dependency.png"
+            # TODO: Accept more data formats
+            lInstallerIconName = "#{@Installer.RDILibDir}/Plugins/Installers/Icons/#{iInstallerName}.png"
+            if (File.exists?(lInstallerIconName))
+              lIconName = lInstallerIconName
+            end
+            @InstallerComponents << [
+              lRBInstaller,
+              Wx::StaticBitmap.new(self, Wx::ID_ANY, Wx::Bitmap.new(lIconName)),
+              []
+            ]
+          end
+          lIdxInstaller = 0
+          @DepUserChoice.DepDesc.Installers.each do |iInstallerInfo|
+            iInstallerName, iInstallerContent, iContextModifiers = iInstallerInfo
+            lDestinationComponents = @InstallerComponents[lIdxInstaller][2]
+            @Installer.accessPlugin('Installers', iInstallerName) do |iPlugin|
+              iPlugin.PossibleDestinations.each do |iDestInfo|
+                iFlavour, iLocation = iDestInfo
+                lFlavourText = nil
+                lDestLocation = iLocation
+                case iFlavour
+                when DEST_LOCAL
+                  lFlavourText = 'Local'
+                when DEST_SYSTEM
+                  lFlavourText = 'System'
+                when DEST_USER
+                  lFlavourText = 'User'
+                when DEST_TEMP
+                  lFlavourText = 'Temporary'
+                when DEST_OTHER
+                  lFlavourText = 'Other'
+                  lDestLocation = "Choose #{iLocation}"
+                else
+                  logBug "Unknown flavour ID: #{iFlavour}"
+                  lFlavourText = 'Unknown'
+                end
+                if (lDestinationComponents.empty?)
+                  # First destination radio button
+                  lDestinationComponents << Wx::RadioButton.new(self, Wx::ID_ANY, "#{lFlavourText} - #{lDestLocation}", :style => Wx::RB_GROUP)
+                else
+                  lDestinationComponents << Wx::RadioButton.new(self, Wx::ID_ANY, "#{lFlavourText} - #{lDestLocation}")
+                end
+              end
+            end
+            lIdxInstaller += 1
+          end
+
+          # Put them into sizers
+          lMainSizer = Wx::BoxSizer.new(Wx::VERTICAL)
+          lMainSizer.add_item(@RBLocate, :proportion => 0)
+
+          lLocateSizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
+          lLocateSizer.add_item([16,0], :proportion => 0)
+
+          lLocateChoicesSizer = Wx::BoxSizer.new(Wx::VERTICAL)
+          @TesterComponents.each do |iTesterComponentsList|
+            lSB, lST = iTesterComponentsList
+            lTesterSizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
+            lTesterSizer.add_item(lSB, :proportion => 0)
+            lTesterSizer.add_item([8,0], :proportion => 0)
+            lTesterSizer.add_item(lST, :proportion => 0)
+            lLocateChoicesSizer.add_item(lTesterSizer, :proportion => 0)
+          end
+          lACMComponents.each do |iACMButton|
+            lLocateChoicesSizer.add_item(iACMButton, :proportion => 0)
+          end
+
+          lLocateSizer.add_item(lLocateChoicesSizer, :proportion => 0)
+
+          lMainSizer.add_item(lLocateSizer, :proportion => 0)
+          lMainSizer.add_item([0,16], :proportion => 0)
+          lMainSizer.add_item(@RBIgnore, :proportion => 0)
+          lMainSizer.add_item([0,16], :proportion => 0)
+          lMainSizer.add_item(@RBInstall, :proportion => 0)
+
+          lInstallSizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
+          lInstallSizer.add_item([16,0], :proportion => 0)
+
+          lInstallersListSizer = Wx::BoxSizer.new(Wx::VERTICAL)
+          @InstallerComponents.each do |iInstallerComponentsInfo|
+            lRBInstaller, lSBIcon, lRBListDests = iInstallerComponentsInfo
+
+            lInstallerChoiceSizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
+            lInstallerChoiceSizer.add_item(lRBInstaller, :proportion => 0)
+            lInstallerChoiceSizer.add_item(lSBIcon, :proportion => 0)
+
+            lInstallersListSizer.add_item(lInstallerChoiceSizer, :proportion => 0)
+
+            lDestinationsListWithTabSizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
+            lDestinationsListWithTabSizer.add_item([16,0], :proportion => 0)
+
+            lDestinationsListSizer = Wx::BoxSizer.new(Wx::VERTICAL)
+            lRBListDests.each do |iRBDestination|
+              lDestinationsListSizer.add_item(iRBDestination, :proportion => 0)
+            end
+
+            lDestinationsListWithTabSizer.add_item(lDestinationsListSizer, :proportion => 0)
+
+            lInstallersListSizer.add_item(lDestinationsListWithTabSizer, :proportion => 0)
+          end
+
+          lInstallSizer.add_item(lInstallersListSizer, :proportion => 0)
+
+          lMainSizer.add_item(lInstallSizer, :proportion => 0)
+
+          self.sizer = lMainSizer
+          self.fit
+
+          # Set events
+          # Click on "Locate"
+          evt_radiobutton(@RBLocate) do |iEvent|
+            @DepUserChoice.setLocate
+            refreshComponents
+          end
+          # Click on any of the ACM
+          lACMIdx = 0
+          lACMComponents.each do |iACMButton|
+            # Clone indexes for them to be persistent in the code block
+            lACMIdxCloned = lACMIdx
+            evt_button(iACMButton) do |iEvent|
+              # Call the correct LocationSelector
+              @DepUserChoice.affectContextModifier(@DepUserChoice.AffectingContextModifiers[lACMIdxCloned])
+              refreshComponents
+            end
+            lACMIdx += 1
+          end
+          # Click on "Ignore"
+          evt_radiobutton(@RBIgnore) do |iEvent|
+            @DepUserChoice.setIgnore
+            refreshComponents
+          end
+          # Click on "Install"
+          evt_radiobutton(@RBInstall) do |iEvent|
+            @DepUserChoice.setInstaller(0, 0)
+            refreshComponents
+          end
+          # Click on any of the installers
+          lIdxInstaller = 0
+          @InstallerComponents.each do |iInstallerComponentsInfo|
+            # Clone the indexes to make them persistent in the code block
+            lIdxInstallerCloned = lIdxInstaller
+            lRBInstaller, lSBIcon, lRBListDests = iInstallerComponentsInfo
+            evt_radiobutton(lRBInstaller) do |iEvent|
+              @DepUserChoice.setInstaller(lIdxInstallerCloned, 0)
+              refreshComponents
+            end
+            # Click on any of the destinations
+            lIdxDest = 0
+            lRBListDests.each do |iRBDestination|
+              lIdxDestCloned = lIdxDest
+              evt_radiobutton(iRBDestination) do |iEvent|
+                @DepUserChoice.setInstaller(lIdxInstallerCloned, lIdxDestCloned)
+                # If it is DEST_OTHER, call the LocationSelector
+                @Installer.accessPlugin('Installers', @DepUserChoice.DepDesc.Installers[lIdxInstallerCloned][0]) do |iPlugin|
+                  iFlavour, iLocation = iPlugin.PossibleDestinations[lIdxDestCloned]
+                  if (iFlavour == DEST_OTHER)
+                    @DepUserChoice.selectOtherInstallLocation(iLocation)
+                  end
+                end
+                refreshComponents
+              end
+              lIdxDest += 1
+            end
+            lIdxInstaller += 1
+          end
+
+          # Refresh the components
+          refreshComponents
+
+        end
+
+        # Refresh components
+        def refreshComponents
+          # Testers icons
+          lIdxTester = 0
+          @TesterComponents.each do |iTesterComponentsList|
+            iSBStatus, iSTTitle = iTesterComponentsList
+            # Check if the Tester is resolved
+            if (@DepUserChoice.ResolvedTesters.has_key?(lIdxTester))
+              iSBStatus.bitmap, lError = getBitmapFromURL("#{@IconsDir}/ValidOK.png")
+            else
+              iSBStatus.bitmap, lError = getBitmapFromURL("#{@IconsDir}/ValidKO.png")
+            end
+            lIdxTester += 1
+          end
+          # Selections
+          @RBLocate.set_value(@DepUserChoice.Locate)
+          @RBIgnore.set_value(@DepUserChoice.Ignore)
+          @RBInstall.set_value(@DepUserChoice.IdxInstaller != nil)
+          lIdxInstaller = 0
+          @InstallerComponents.each do |iInstallerComponentsInfo|
+            lRBInstaller, lSBIcon, lRBListDests = iInstallerComponentsInfo
+            lRBInstaller.set_value((@DepUserChoice.IdxInstaller == lIdxInstaller))
+            lIdxDest = 0
+            lRBListDests.each do |iRBDestination|
+              iRBDestination.set_value(
+                ((@DepUserChoice.IdxInstaller == lIdxInstaller) and
+                 (@DepUserChoice.IdxDestination == lIdxDest))
+              )
+              # Change the text if it is DEST_OTHER
+              @Installer.accessPlugin('Installers', @DepUserChoice.DepDesc.Installers[lIdxInstaller][0]) do |iPlugin|
+                iFlavour, iLocation = iPlugin.PossibleDestinations[lIdxDest]
+                if (iFlavour == DEST_OTHER)
+                  # If it is the current one, use OtherLocation
+                  if ((@DepUserChoice.IdxInstaller == lIdxInstaller) and
+                      (@DepUserChoice.IdxDestination == lIdxDest))
+                    iRBDestination.label = "Other (#{@DepUserChoice.OtherLocation})"
+                  else
+                    iRBDestination.label = "Other (Choose #{iLocation})"
+                  end
+                end
+              end
+              lIdxDest += 1
+            end
+            lIdxInstaller += 1
+          end
+          # Fit again, as some labels might have changed
+          self.fit
+          # Notify refresh
+          @NotifierControl.notifyRefresh(self)
+        end
+
+      end
+
+    end
+
+  end
+
+end