RSokoban 0.74 → 0.76

data/lib/rsokoban/ui/tk_dialogs.rb

@@ -13,10 +13,9 @@ module RSokoban::UI
 			@state = :cancel
 			grab
 			
-			@frame_north = TkFrame.new(self) do
+			@frame_north = Tk::Tile::Frame.new(self) do
 				grid(:row => 0, :column => 0, :columnspan => 2, :sticky => :we)
-				padx 10
-				pady 10
+				padding 10
 			end
 			
 			$spinval = TkVariable.new
@@ -30,14 +29,14 @@ module RSokoban::UI
 			@spin.focus
 			@spin.bind 'Key-Return', proc{ ok_on_clic }
 			
-			@ok = TkButton.new(self) do
+			@ok = Tk::Tile::Button.new(self) do
 				text 'OK'
 				grid(:row => 1, :column => 0)
 				default :active
 			end
 			@ok.command { ok_on_clic }
 			
-			@cancel = TkButton.new(self) do
+			@cancel = Tk::Tile::Button.new(self) do
 				text 'Cancel'
 				grid(:row => 1, :column => 1)
 			end
@@ -69,6 +68,95 @@ module RSokoban::UI
 		end
 	end
 	
+	# As dialog box, I allow the user to select a skin.
+	# @since 0.76
+	class SkinDialog < TkToplevel
+		include RSokoban
+		
+		def initialize(root, title)
+			super(root)
+			title(title)
+			width(300)
+			height(400)
+			@state = 'CANCEL'
+			grab
+			self['resizable'] = false, false
+			
+			@skins = Skin.new.list_skins
+			$listval = TkVariable.new(@skins)
+			@value = @skins[0]
+			
+			# A frame for the listbox
+			@frame_north = Tk::Tile::Frame.new(self) do
+				grid(:row => 0, :column => 0, :columnspan => 2, :sticky => :we)
+				padding 10
+			end
+			
+			@list = TkListbox.new(@frame_north) do
+				width 40
+			 	height 8
+			 	listvariable $listval
+			 	grid(:row => 0, :column => 0, :sticky => :we)
+			end
+			
+			@list.bind 'Double-1', proc{ ok_on_clic }
+			@list.bind 'Return', proc{ ok_on_clic }
+
+			
+			scroll = Tk::Tile::Scrollbar.new(@frame_north) do
+				orient 'vertical'
+				grid(:row => 0, :column => 1, :sticky => :ns)
+			end
+
+			@list.yscrollcommand(proc { |*args| scroll.set(*args) })
+			scroll.command(proc { |*args| @list.yview(*args) })
+			
+			# The buttons
+			@ok = Tk::Tile::Button.new(self) do
+				text 'OK'
+				grid(:row => 2, :column => 0)
+				default :active
+			end
+			@ok.command { ok_on_clic }
+			
+			@cancel = Tk::Tile::Button.new(self) do
+				text 'Cancel'
+				grid(:row => 2, :column => 1)
+			end
+			@cancel.command { cancel_on_clic }
+			
+			@list.focus
+			wait_destroy
+		end
+		
+		# @return true if user clicked the OK button
+		def ok?
+			@state == 'OK'
+		end
+		
+		# @return [String] the name of the set
+		def value
+			@value
+		end
+		
+		private
+		
+		def ok_on_clic
+			@state = 'OK'
+			idx = @list.curselection
+			unless idx.empty?
+				@value = Skin.new.path_of_skin @skins[idx[0]]
+			end
+			destroy
+		end
+		
+		def cancel_on_clic
+			@state = 'CANCEL'
+			destroy
+		end
+		
+	end
+	
 	# As dialog box, I allow the user to choose a set name.
 	class SetDialog < TkToplevel
 		include RSokoban
@@ -89,10 +177,9 @@ module RSokoban::UI
 			@value = @xsb[0]
 			
 			# A frame for the listbox
-			@frame_north = TkFrame.new(self) do
+			@frame_north = Tk::Tile::Frame.new(self) do
 				grid(:row => 0, :column => 0, :columnspan => 2, :sticky => :we)
-				padx 10
-				pady 10
+				padding 10
 			end
 			
 			@list = TkListbox.new(@frame_north) do
@@ -107,7 +194,7 @@ module RSokoban::UI
 			@list.bind 'Return', proc{ ok_on_clic }
 
 			
-			scroll = TkScrollbar.new(@frame_north) do
+			scroll = Tk::Tile::Scrollbar.new(@frame_north) do
 				orient 'vertical'
 				grid(:row => 0, :column => 1, :sticky => :ns)
 			end
@@ -116,10 +203,9 @@ module RSokoban::UI
 			scroll.command(proc { |*args| @list.yview(*args) })
 			
 			# A frame for the set description
-			@frame_desc = TkFrame.new(self) do
+			@frame_desc = Tk::Tile::Frame.new(self) do
 				grid(:row => 1, :column => 0, :columnspan => 2, :sticky => :we)
-				padx 10
-				pady 10
+				padding 10
 			end
 			
 			@desc = TkText.new(@frame_desc) do
@@ -131,7 +217,7 @@ module RSokoban::UI
 			 	grid(:row => 0, :column => 0)
 			end
 			
-			scroll2 = TkScrollbar.new(@frame_desc) do
+			scroll2 = Tk::Tile::Scrollbar.new(@frame_desc) do
 				orient 'vertical'
 				grid(:row => 0, :column => 1, :sticky => :ns)
 			end
@@ -140,14 +226,14 @@ module RSokoban::UI
 			scroll2.command(proc { |*args| @desc.yview(*args) }) 
 			
 			# The buttons
-			@ok = TkButton.new(self) do
+			@ok = Tk::Tile::Button.new(self) do
 				text 'OK'
 				grid(:row => 2, :column => 0)
 				default :active
 			end
 			@ok.command { ok_on_clic }
 			
-			@cancel = TkButton.new(self) do
+			@cancel = Tk::Tile::Button.new(self) do
 				text 'Cancel'
 				grid(:row => 2, :column => 1)
 			end
@@ -193,7 +279,7 @@ module RSokoban::UI
 		
 		def show_description
 			idx = @list.curselection
-			ll = LevelLoader.new @xsb[idx[0]]
+			ll = SetLoader.new @xsb[idx[0]]
 			@desc.delete '1.0', :end
 			@desc.insert :end, ll.file_description
 		end
@@ -211,7 +297,7 @@ module RSokoban::UI
 
 			text = TkText.new(self) do
 				borderwidth 1
-				font TkFont.new('times 12 bold')
+				font 'TkTextFont'
 				grid('row' => 0, 'column' => 0)
 			end
 			
@@ -225,7 +311,7 @@ EOS
 			
 			text.insert 'end', help
 
-			@ok = TkButton.new(self) do
+			@ok = Tk::Tile::Button.new(self) do
 				text 'OK'
 				grid('row'=>1, 'column'=>0)
 			end