DZone Snippets: block code

J2ME - Alert Bloccante

whitetiger () — Sat, 24 Feb 2007 14:20:02 GMT

// description of your code here



import javax.microedition.lcdui.Alert;

import javax.microedition.lcdui.AlertType;

import javax.microedition.lcdui.Command;

import javax.microedition.lcdui.CommandListener;

import javax.microedition.lcdui.Displayable;



public class MessageBox extends Alert implements CommandListener

{

	protected Chattando midlet;

	

	private boolean isReady = false;

	

	private Displayable dspBACK;

	

	public MessageBox(String title, String text, AlertType type, Chattando midlet)

	{

		super(title, text, null, type);

		

		this.midlet = midlet;

		

		this.setCommandListener(this);

		this.setTimeout(Alert.FOREVER);

		

		// Display Precedente

		dspBACK = midlet.getDisplay().getCurrent();

		

		// Mostra l'alert

		midlet.getDisplay().setCurrent(this);

		

		// Attendi la conferma di chiusura

		waitForDone();

		

		// Visualizza il precedente Display

		midlet.getDisplay().setCurrent(dspBACK);

	}

	

	private void waitForDone()

	{

		try

		{

			while(!isReady)

			{

				synchronized(this)

				{

					this.wait();

					

				}

			}

		}

		catch(Exception error)

		{

			

		}

	}



	public void commandAction(Command cmd, Displayable dsp)

	{

		if(cmd == Alert.DISMISS_COMMAND)

		{

			isReady = true;

			

			synchronized(this)

			{

				this.notify();

			}			

		}

	}

}

BlockFlash-Revisited.user.js

mcandre (Andrew Pennebaker) — Wed, 29 Nov 2006 01:03:18 GMT



// ==UserScript==

// @name		BlockFlash-Revisited

// @namespace		http://snippets.dzone.com/posts/show/3054

// @description	Do not start Flash animation until you click on them.

// @include		*

// @exclude		http://www.macromedia.com/*

// @exclude		http://www.atomfilms.com/*

// @exclude		http://uploads.ungrounded.net/*

// @exclude		http://www.albinoblacksheep.com/*

// ==/UserScript==



/*

	Revised by Andrew Pennebaker (andrew.pennebaker@gmail.com)



	Author: Jos van den Oever (jos@vandenoever.info)



	License: GPL



	Version history:

		2006-02-12: initial version

		2006-11-28: changed appearance



Inspiration for this script comes from the removeFlash script and the FlashBlock firefox extension.

*/



(function () {

	var objects=document.getElementsByTagName("object");



	for (i=0; i		var flash=objects[i];



		if (flash.innerHTML.match(/.swf|shockwave|flash/)) {

			var placeholder=document.createElement("div");



			placeholder.style.cursor='pointer';

			placeholder.style.background='orange'; // 'gray '

			placeholder.style.textAlign='center';

			placeholder.style.color='black';

			placeholder.innerHTML="[Play Flash]";



			flash.parentNode.insertBefore(placeholder, flash);

			flash.on=false;



			placeholder.addEventListener(

				'click',

				function() {

					if (flash.on) {

						flash.style.display='none';

						placeholder.innerHTML="[Play Flash]";

						flash.on=false;

					}

					else {

						flash.style.display='';

						placeholder.innerHTML="[Stop Flash]";

						flash.on=true;

					}

				},

				true

			);



			flash.style.display='none';

		}

	}

})();

sparse-rec-to-fixed-block

gregg.irwin (Gregg Irwin) — Sun, 19 Nov 2006 02:22:05 GMT



	sparse-rec-to-fixed-block: func [

		rec [block!]

		col-names [block!] "All column names in full schema"

	][

		if not all-words? col-names [alert join "sparse-rec-to-fixed-block: col-names has non-word values: " mold col-names]

		collect/only val [

			foreach name col-names [

				val: attempt [first select/skip rec name 2]

			]

		]

	]

SINGLE-LINE-MOLD

gregg.irwin (Gregg Irwin) — Thu, 16 Nov 2006 05:09:18 GMT



	single-line-mold: func [

	    "Reformats a block or object-spec to a single line."

	    val [any-block! object!]

	] [

	    val: copy either any-block? val [val] [third val]

	    replace/all mold new-line/all val  off  "^/" "^^/"

	]

GROUP - group like elements in a block

gregg.irwin (Gregg Irwin) — Wed, 01 Nov 2006 21:30:12 GMT



    group: func [

        {Returns a block of sub-blocks with items partitioned by value.}

        block  [any-block!]

        /local result

    ][

        result: copy []

        ; First, build up a list of keys, with a place for values

        ; to go with each key.

        foreach item block [

            if not find/only/skip result item 2 [

                repend result [item copy []]

            ]

        ]

        ; Add items to the block associated with each key.

        foreach item block [append/only select result item item]

        result

    ]

call sort with a block

MattScilipoti (Matt Scilipoti) — Tue, 30 May 2006 09:05:27 GMT

From http://practicalruby.blogspot.com/2006/05/call-sort-with-block.html:

I needed to sort a list of partners today so I added:



class Partner

  def <=>(other)

     self.name <=> other.name

  end

end

However, I could have just done:



Partner.find(:all).sort { |one, other| one.name <=> other.name }

Doc for sort here.

From Comments:
You could also have used sort_by as long as the target supports the spaceship operator. ie:



Partner.find(:all).sort_by { |partner| partner.name }

With active_support required (or 'facet/symbol/to_proc' from the facets library) you can even:



Partner.find(:all).sort_by(&:name)

Sweet.

content_tag that accepts a block = block_tag

canadaduane (Duane Johnson) — Thu, 13 Apr 2006 02:08:07 GMT

Sometimes I want to do something like this:



<% content_tag("div", :class => "section_with_error" do %>

  HTML GOES HERE

<% end %>

instead of this:



<%= content_tag("div", "HTML GOES HERE", :class => "section_with_error") %>

Put the following code in ApplicationHelper, and you can do just that (replacing "content_tag" in the example above with "block_tag", of course):



  def block_tag(tag, options = {}, &block)

    concat(content_tag(tag, capture(&block), options), block.binding)

  end

spec-block-to-named-block

gregg.irwin (Gregg Irwin) — Fri, 24 Feb 2006 22:33:58 GMT



spec-block-to-named-block: func [

    "Change all set-words in a spec block to regular words."

    input [block!]

][

    input: copy input

    parse input [

        some [mark: set-word! any-type! (change mark to word! first mark)]

    ]

    input

]

spec-block-is-subset? - is a spec block a subset of an object's spec?

gregg.irwin (Gregg Irwin) — Tue, 21 Feb 2006 07:09:40 GMT



spec-block-is-subset?: func [block [block!] object [object!]] [

    all [

        spec-block? block

        subset? first construct block  first object

    ]

]

spec-block-matches? - does a spec block match the spec for an object?

gregg.irwin (Gregg Irwin) — Tue, 21 Feb 2006 07:08:38 GMT



spec-block-matches?: func [block [block!] object [object!]] [

    all [

        spec-block? block

        equal? first construct block  first object

    ]

]