Result:
found more than 464 distributions - search limited to the first 2001 files matching your query
( run in 2.110 )
CPANPLUS-Shell-Tk
view release on metacpan or search on metacpan
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
my $button3_menu = $self->_create_button3_menu($update);
$update->bindRows('<ButtonPress-3>',
[ sub {
my @sel = $update->curselection;
@{$self->{MODS}} = map {$update->columnGet(0)->get($_, $_)} @sel;
$button3_menu->Popup(-popover => 'cursor', -popanchor => 'nw');
},
]
);
$update->insert(0, map { [$_, 1] } sort keys %{$self->{NOT_UPTODATE}});
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
my $button3_menu = $self->_create_button3_menu($installed);
$installed->bindRows('<ButtonPress-3>',
[ sub {
my @sel = $installed->curselection;
@{$self->{MODS}} = map {$installed->columnGet(0)->get($_, $_)} @sel;
$button3_menu->Popup(-popover => 'cursor', -popanchor => 'nw');
},
]
);
$installed->insert(0, map { [$_, 1] } sort keys %{$self->{INSTALLED}});
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
my $button3_menu = $self->_create_button3_menu($search);
$search->bindRows('<ButtonPress-3>',
[ sub {
my @sel = $search->curselection;
@{$self->{MODS}} = map {$search->columnGet(0)->get($_, $_)} @sel;
$button3_menu->Popup(-popover => 'cursor', -popanchor => 'nw');
},
]
);
$search->pack(-side => 'bottom', -fill => 'both', -expand => 1);
}
CPP-Boost-Mini
view release on metacpan or search on metacpan
include/boost/container/vector.hpp view on Meta::CPAN
BOOST_CONTAINER_FORCEINLINE friend bool operator>= (const vec_iterator& l, const vec_iterator& r) BOOST_NOEXCEPT_OR_NOTHROW
{ return l.m_ptr >= r.m_ptr; }
};
template<class BiDirPosConstIt, class BiDirValueIt>
struct vector_insert_ordered_cursor
{
typedef typename iterator_traits<BiDirPosConstIt>::value_type size_type;
typedef typename iterator_traits<BiDirValueIt>::reference reference;
BOOST_CONTAINER_FORCEINLINE vector_insert_ordered_cursor(BiDirPosConstIt posit, BiDirValueIt valueit)
: last_position_it(posit), last_value_it(valueit)
{}
void operator --()
{
include/boost/container/vector.hpp view on Meta::CPAN
//Absolutely experimental. This function might change, disappear or simply crash!
template<class BiDirPosConstIt, class BiDirValueIt>
BOOST_CONTAINER_FORCEINLINE void insert_ordered_at(const size_type element_count, BiDirPosConstIt last_position_it, BiDirValueIt last_value_it)
{
typedef vector_insert_ordered_cursor<BiDirPosConstIt, BiDirValueIt> inserter_t;
return this->priv_insert_ordered_at(element_count, inserter_t(last_position_it, last_value_it));
}
template<class InputIt>
BOOST_CONTAINER_FORCEINLINE void merge(InputIt first, InputIt last)
CPU-Z80-Disassembler
view release on metacpan or search on metacpan
t/data/zx48.asm view on Meta::CPAN
;; ED-CONTR
L0F6C: CALL L15D4 ; routine WAIT-KEY for control.
; input address will be key-next.
PUSH DE ; saved code/parameters
LD HL,($5C5B) ; fetch address of keyboard cursor from K_CUR
RES 0,(IY+$07) ; set MODE to 'L'
CALL L1655 ; routine MAKE-ROOM makes 2/3 spaces at cursor
POP BC ; restore code/parameters
INC HL ; address first location
LD (HL),B ; place code (ink etc.)
INC HL ; address next
t/data/zx48.asm view on Meta::CPAN
; it is also the OUTPUT service routine for system channel 'R'.
;; ADD-CHAR
L0F81: RES 0,(IY+$07) ; set MODE to 'L'
X0F85: LD HL,($5C5B) ; fetch address of keyboard cursor from K_CUR
CALL L1652 ; routine ONE-SPACE creates one space.
; either a continuation of above or from ED-CONTR with ED-LOOP on stack.
t/data/zx48.asm view on Meta::CPAN
LD HL,L0FA0 - 7 ; base address of editing keys table. $0F99
ADD HL,DE ; add E
LD E,(HL) ; fetch offset to E
ADD HL,DE ; add offset for address of handling routine.
PUSH HL ; push the address on machine stack.
LD HL,($5C5B) ; load address of cursor from K_CUR.
RET ; Make an indirect jump forward to routine.
; ------------------
; Editing keys table
; ------------------
t/data/zx48.asm view on Meta::CPAN
OR E ; contain zero so test for this.
JP Z,L1097 ; jump to CLEAR-SP if so.
; Note. at this point we have a validated line number, not just an
; approximation and it would be best to update E_PPC with the true
; cursor line value which would enable the line cursor to be suppressed
; in all situations - see shortly.
PUSH HL ; save address of line.
INC HL ; address low byte of length.
LD C,(HL) ; transfer to C
t/data/zx48.asm view on Meta::CPAN
LD A,$FF ; select system channel 'R'
CALL L1601 ; routine CHAN-OPEN opens it
POP HL ; drop line address
DEC HL ; make it point to first byte of line num.
DEC (IY+$0F) ; decrease E_PPC_lo to suppress line cursor.
; Note. ineffective when E_PPC is one
; greater than last line of program perhaps
; as a result of a delete.
; credit. Paul Harrison 1982.
t/data/zx48.asm view on Meta::CPAN
; -------------------
; Cursor down editing
; -------------------
; The BASIC lines are displayed at the top of the screen and the user
; wishes to move the cursor down one line in edit mode.
; With INPUT LINE, this key must be used instead of entering STOP.
;; ED-DOWN
L0FF3: BIT 5,(IY+$37) ; test FLAGX - Input Mode ?
JR NZ,L1001 ; skip to ED-STOP if so
t/data/zx48.asm view on Meta::CPAN
JR L1024 ; forward to ED-ENTER to produce error.
; -------------------
; Cursor left editing
; -------------------
; This acts on the cursor in the lower section of the screen in both
; editing and input mode.
;; ED-LEFT
L1007: CALL L1031 ; routine ED-EDGE moves left if possible
JR L1011 ; forward to ED-CUR to update K-CUR
; and return to ED-LOOP.
; --------------------
; Cursor right editing
; --------------------
; This acts on the cursor in the lower screen in both editing and input
; mode and moves it to the right.
;; ED-RIGHT
L100C: LD A,(HL) ; fetch addressed character.
CP $0D ; is it carriage return ?
t/data/zx48.asm view on Meta::CPAN
; --------------
; DELETE editing
; --------------
; This acts on the lower screen and deletes the character to left of
; cursor. If control characters are present these are deleted first
; leaving the naked parameter (0-7) which appears as a '?' except in the
; case of chr$ 6 which is the comma control character. It is not mandatory
; to delete these second characters.
;; ED-DELETE
L1015: CALL L1031 ; routine ED-EDGE moves cursor to left.
LD BC,$0001 ; of character to be deleted.
JP L19E8 ; to RECLAIM-2 reclaim the character.
; ------------------------------------------
; Ignore next 2 codes from key-input routine
t/data/zx48.asm view on Meta::CPAN
LD SP,HL ; else put error routine on stack
RET ; and make an indirect jump to it.
; -----------------------------
; Move cursor left when editing
; -----------------------------
; This routine moves the cursor left. The complication is that it must
; not position the cursor between control codes and their parameters.
; It is further complicated in that it deals with TAB and AT characters
; which are never present from the keyboard.
; The method is to advance from the beginning of the line each time,
; jumping one, two, or three characters as necessary saving the original
; position at each jump in DE. Once it arrives at the cursor then the next
; legitimate leftmost position is in DE.
;; ED-EDGE
L1031: SCF ; carry flag must be set to call the nested
CALL L1195 ; subroutine SET-DE.
t/data/zx48.asm view on Meta::CPAN
POP BC ; drop return address
RET C ; return to ED-LOOP if already at left
; of line.
PUSH BC ; resave return address - ED-LOOP.
LD B,H ; transfer HL - cursor address
LD C,L ; to BC register pair.
; at this point DE addresses start of line.
;; ED-EDGE-1
L103E: LD H,D ; transfer DE - leftmost pointer
t/data/zx48.asm view on Meta::CPAN
INC HL ; increment a third time for 'at'/'tab'
;; ED-EDGE-2
L1051: AND A ; prepare for true subtraction
SBC HL,BC ; subtract cursor address from pointer
ADD HL,BC ; and add back
; Note when HL matches the cursor position BC,
; there is no carry and the previous
; position is in DE.
EX DE,HL ; transfer result to DE if looping again.
; transfer DE to HL to be used as K-CUR
; if exiting loop.
JR C,L103E ; back to ED-EDGE-1 if cursor not matched.
RET ; return.
; -----------------
; Cursor up editing
t/data/zx48.asm view on Meta::CPAN
; --------------------
; Lower screen copying
; --------------------
; This subroutine is called whenever the line in the editing area or
; input workspace is required to be printed to the lower screen.
; It is by calling this routine after any change that the cursor, for
; instance, appears to move to the left.
; Remember the edit line will contain characters and tokens
; e.g. "1000 LET a=1" is 8 characters.
;; ED-COPY
t/data/zx48.asm view on Meta::CPAN
CALL L187D ; routine OUT-LINE2 outputs entire line up to
; carriage return including initial
; characterized line number when present.
EX DE,HL ; transfer new address to DE
CALL L18E1 ; routine OUT-CURS considers a
; terminating cursor.
LD HL,($5C8A) ; fetch updated SPOSNL
EX (SP),HL ; exchange with ECHO_E on stack
EX DE,HL ; transfer ECHO_E to DE
CALL L0D4D ; routine TEMPS to re-set attributes
t/data/zx48.asm view on Meta::CPAN
; displaying an error.
;; SET-MIN
L16B0: LD HL,($5C59) ; fetch E_LINE
LD (HL),$0D ; insert carriage return
LD ($5C5B),HL ; make K_CUR keyboard cursor point there.
INC HL ; next location
LD (HL),$80 ; holds end-marker $80
INC HL ; next location becomes
LD ($5C61),HL ; start of WORKSP
t/data/zx48.asm view on Meta::CPAN
;; OUT-LINE
L1855: LD BC,($5C49) ; fetch E_PPC the current line which may be
; unchecked and not exist.
CALL L1980 ; routine CP-LINES finds match or line after.
LD D,$3E ; prepare cursor '>' in D.
JR Z,L1865 ; to OUT-LINE1 if matched or line after.
LD DE,$0000 ; put zero in D, to suppress line cursor.
RL E ; pick up carry in E if line before current
; leave E zero if same or after.
;; OUT-LINE1
L1865: LD (IY+$2D),E ; save flag in BREG which is spare.
t/data/zx48.asm view on Meta::CPAN
; with leading space.
INC HL ; skip low number byte.
INC HL ; and the two
INC HL ; length bytes.
RES 0,(IY+$01) ; update FLAGS - signal leading space required.
LD A,D ; fetch the cursor.
AND A ; test for zero.
JR Z,L1881 ; to OUT-LINE3 if zero.
RST 10H ; PRINT-A prints '>' the current line cursor.
; this entry point is called from ED-COPY
;; OUT-LINE2
L187D: SET 0,(IY+$01) ; update FLAGS - suppress leading space.
t/data/zx48.asm view on Meta::CPAN
LD A,$3F ; load A with '?' the error marker.
CALL L18C1 ; routine OUT-FLASH to print flashing marker.
;; OUT-LINE5
L18A1: CALL L18E1 ; routine OUT-CURS will print the cursor if
; this is the right position.
EX DE,HL ; restore address pointer to HL.
LD A,(HL) ; fetch the addressed character.
CALL L18B6 ; routine NUMBER skips a hidden floating
; point number if present.
t/data/zx48.asm view on Meta::CPAN
; --------------------------
; Print a flashing character
; --------------------------
; This subroutine is called from OUT-LINE to print a flashing error
; marker '?' or from the next routine to print a flashing cursor e.g. 'L'.
; However, this only gets called from OUT-LINE when printing the edit line
; or the input buffer to the lower screen so a direct call to $09F4 can
; be used, even though out-line outputs to other streams.
; In fact the alternate set is used for the whole routine.
t/data/zx48.asm view on Meta::CPAN
EXX ; switch back to main set
RET ; return
; ----------------
; Print the cursor
; ----------------
; This routine is called before any character is output while outputting
; a BASIC line or the input buffer. This includes listing to a printer
; or screen, copying a BASIC line to the edit buffer and printing the
; input buffer or edit buffer to the lower screen. It is only in the
; latter two cases that it has any relevance and in the last case it
; performs another very important function also.
;; OUT-CURS
L18E1: LD HL,($5C5B) ; fetch K_CUR the current cursor address
AND A ; prepare for true subtraction.
SBC HL,DE ; test against pointer address in DE and
RET NZ ; return if not at exact position.
; the value of MODE, maintained by KEY-INPUT, is tested and if non-zero
t/data/zx48.asm view on Meta::CPAN
; ---
; If mode was zero then, while printing a BASIC line, bit 2 of flags has been
; set if 'THEN' or ':' was encountered as a main character and reset otherwise.
; This is now used to determine if the 'K' cursor is to be printed but this
; transient state is also now transferred permanently to bit 3 of FLAGS
; to let the interrupt routine know how to decode the next key.
;; OUT-C-1
L18F3: LD HL,$5C3B ; Address FLAGS
t/data/zx48.asm view on Meta::CPAN
XOR $04 ; toggle the quotes flag.
LD ($5C6A),A ; update FLAGS2
POP AF ; and restore character.
;; OUT-CH-2
L1968: SET 2,(IY+$01) ; update FLAGS - signal L mode if the cursor
; is next.
;; OUT-CH-3
L196C: RST 10H ; PRINT-A vectors the character to
; channel 'S', 'K', 'R' or 'P'.
t/data/zx48.asm view on Meta::CPAN
LD (DE),A ; place quote in first new location at DE.
DEC HL ; decrease HL - from carriage return.
LD (HL),A ; and place a quote in second location.
;; IN-PR-3
L2129: LD ($5C5B),HL ; set keyboard cursor K_CUR to HL
BIT 7,(IY+$37) ; test FLAGX - is this INPUT LINE ??
JR NZ,L215E ; forward to IN-VAR-3 if so as input will
; be accepted without checking its syntax.
LD HL,($5C5D) ; fetch CH_ADD
t/data/zx48.asm view on Meta::CPAN
; when ENTER received rejoin other route but with no syntax check.
; INPUT and INPUT LINE converge here.
;; IN-VAR-4
L2161: LD (IY+$22),$00 ; set K_CUR_hi to a low value so that the cursor
; no longer appears in the input line.
CALL L21D6 ; routine IN-CHAN-K tests if the keyboard
; is being used for input.
JR NZ,L2174 ; forward to IN-VAR-5 if using another input
t/data/zx48.asm view on Meta::CPAN
; continue here if using the keyboard.
CALL L111D ; routine ED-COPY overprints the edit line
; to the lower screen. The only visible
; affect is that the cursor disappears.
; if you're inputting more than one item in
; a statement then that becomes apparent.
LD BC,($5C82) ; fetch line and column from ECHO_E
CALL L0DD9 ; routine CL-SET sets S-POSNL to those
CSS-Adaptor-Whitelist
view release on metacpan or search on metacpan
lib/CSS/Adaptor/Whitelist.pm view on Meta::CPAN
none | circle | disc | square | armenian
| decimal(?:-leading-zero)? | georgian | lower-greek | (?:lower|upper)-(?:alpha|latin|roman)
) \b )/x;
# various
my $re_cursor = qr/(?:
(?: $re_url (?: \s*,\s* $re_url )* \s* , )?
(?: auto | crosshair | default | help | move | pointer | progress | text | wait
| (?:[news]|[ns][ew])-resize
) \b
)/x;
lib/CSS/Adaptor/Whitelist.pm view on Meta::CPAN
overflow => list2hash(qw(visible hidden scroll auto)),
float => list2hash(qw(left right none)),
clear => list2hash(qw(left right none both)),
clip => qr/^(?:auto\b|rect\(\s*$re_dim(?:\s*,\s*$re_dim){3}\s*\))$/,
cursor => qr/^$re_cursor$/,
direction => list2hash(qw(ltr trl)),
height => qr/^(?:auto\b|$re_ndim)$/,
width => qr/^(?:auto\b|$re_ndim)$/,
'min-width' => qr/^$re_ndim$/,
lib/CSS/Adaptor/Whitelist.pm view on Meta::CPAN
CSS::Adaptor::Whitelist::set_url_re(qr{url(https?://example\.com/[\w/]+)});
Notice that the regexp should not be anchored (no C<^> and C<$> at the edges).
It is being used in these properties:
cursor
background
background-image
list-style
list-style-image
CSS-Croco
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libdbd-sqlite2-perl", "DBD-SQLite2", "0.33", "0", "0"
"libdbd-sqlite3-perl", "DBD-SQLite", "1.27", "0", "0"
"libdbd-xbase-perl", "DBD-XBase", "0.241", "1", "0"
"libdbi-perl", "DBI", "1.609", "5", "0"
"libdbicx-testdatabase-perl", "DBICx-TestDatabase", "0.02", "0", "0"
"libdbix-class-cursor-cached-perl", "DBIx-Class-Cursor-Cached", "1.0.1", "0", "0"
"libdbix-class-datetime-epoch-perl", "DBIx-Class-DateTime-Epoch", "0.05", "0", "0"
"libdbix-class-dynamicdefault-perl", "DBIx-Class-DynamicDefault", "0.03", "0", "0"
"libdbix-class-encodedcolumn-perl", "DBIx-Class-EncodedColumn", "0.00005", "0", "0"
"libdbix-class-perl", "DBIx-Class", "0.08115", "0", "0"
"libdbix-class-schema-loader-perl", "DBIx-Class-Schema-Loader", "0.04006", "0", "0"
CSS-DOM
view release on metacpan or search on metacpan
lib/CSS/DOM/Interface.pm view on Meta::CPAN
counterIncrement => STR,
counterReset => STR,
cue => STR,
cueAfter => STR,
cueBefore => STR,
cursor => STR,
direction => STR,
display => STR,
elevation => STR,
emptyCells => STR,
cssFloat => STR,
CSS-Flip
view release on metacpan or search on metacpan
lib/CSS/Janus.pm view on Meta::CPAN
return $line;
}
# fixCursorProperties ($line)
#
# Changes directional CSS cursor properties:
# 'cursor: ne-resize' => 'cursor: nw-resize'
sub fixCursorProperties {
my $self = shift;
my $line = shift;
CSS-Inliner
view release on metacpan or search on metacpan
t/html/linebreaktest.html view on Meta::CPAN
}
</style>
</head>
<body>
<p style="color:border-bottom:2px dotted rgb(54, 99,
136);cursor:pointer;">Email</p>
</body>
</html>
CSS-Orientation
view release on metacpan or search on metacpan
lib/CSS/Orientation.pm view on Meta::CPAN
$POSSIBLY_NEGATIVE_QUANTITY_SPACE,
$POSSIBLY_NEGATIVE_QUANTITY );
# Compile the cursor resize regexes
our $CURSOR_EAST_RE = resprintf( $LOOKBEHIND_NOT_LETTER . '([ns]?)e-resize' );
our $CURSOR_WEST_RE = resprintf( $LOOKBEHIND_NOT_LETTER . '([ns]?)w-resize' );
# Matches the condition where we need to replace the horizontal component
# of a background-position value when expressed in horizontal percentage.
CSS-Prepare
view release on metacpan or search on metacpan
lib/CSS/Prepare/Property/UI.pm view on Meta::CPAN
error => "invalid ${type} property: '${value}'"
};
}
};
&$valid_property_or_error( 'cursor' )
if 'cursor' eq $property;
&$valid_property_or_error( 'outline_width' )
if 'outline-width' eq $property;
&$valid_property_or_error( 'outline_style' )
lib/CSS/Prepare/Property/UI.pm view on Meta::CPAN
error => "invalid outline property: '${value}'"
}
unless %canonical;
}
if ( defined $canonical{'cursor'} ) {
$canonical{'cursor'} = shorten_url_value(
$canonical{'cursor'},
$location,
$self,
);
}
lib/CSS/Prepare/Property/UI.pm view on Meta::CPAN
push @output, @outline;
}
push @output,
sprintf( $self->output_format,
'cursor:', $block->{'cursor'},
)
if defined $block->{'cursor'};
return @output;
}
1;
CSS-Sass
view release on metacpan or search on metacpan
t/sass-spec/benchmarks/vanilla_css_huge.scss view on Meta::CPAN
/**
* 1. Avoid the WebKit bug in Android 4.0.* where (2) destroys native `audio`
* and `video` controls.
* 2. Correct inability to style clickable `input` types in iOS.
* 3. Improve usability and consistency of cursor style between image-type
* `input` and others.
*/
button,
html input[type="button"],
input[type="reset"],
input[type="submit"] {
-webkit-appearance: button;
/* 2 */
cursor: pointer;
/* 3 */ }
/**
* Re-set default cursor for disabled elements.
*/
button[disabled],
html input[disabled] {
cursor: default; }
/**
* 1. Address box sizing set to `content-box` in IE 8/9.
* 2. Remove excess padding in IE 8/9.
*/
t/sass-spec/benchmarks/vanilla_css_huge.scss view on Meta::CPAN
vertical-align: top; } }
.customer-filter {
display: block;
list-style: none;
cursor: pointer; }
.customer-filter:hover {
color: #049fde; }
@media screen and (min-width: 960px) {
.customer-filter {
padding: 0 15px;
t/sass-spec/benchmarks/vanilla_css_huge.scss view on Meta::CPAN
.main-footer-navlist > .menu-item > a, .main-footer-navlist > .menu-item > a:visited, .main-footer-navlist > .menu-item > a:link {
text-transform: uppercase;
color: white;
font-weight: 400;
margin-bottom: 10px;
cursor: default; }
.main-footer-navlist > .menu-item > a:hover, .main-footer-navlist > .menu-item a:active {
color: white;
opacity: 1; }
.main-footer-navlist > .menu-item:nth-child(1) {
CWB-CQI
view release on metacpan or search on metacpan
examples/Tkwic.perl view on Meta::CPAN
# Wenn man hier Busy() verwendet, kann es passieren, dass
# einige Fenster trotz Unbusy() gesperrt bleiben. Damit
# der Benutzer trotzdem ein Feedback bekommt, wird eine
# Uhr als Mauszeiger verwendet.
#$_->Busy(-recurse => 1);
$_->configure(-cursor => 'watch');
}
}
}
sub unbusy {
examples/Tkwic.perl view on Meta::CPAN
my $main_window = $self->{main_window};
my @kids = $main_window->children();
foreach (@kids) {
if ($_->class() eq 'Toplevel') {
#$_->Unbusy();
$_->configure(-cursor => 'left_ptr');
}
}
$main_window->Unbusy();
}
examples/Tkwic.perl view on Meta::CPAN
$query_entry = $vbox->Entry();
$query_entry->pack(-fill => 'x', -expand => 1);
}
$query_entry->bind('<FocusIn>', [ \&query_focus_in, $self, $i ]);
$query_entry->bind('<Button-3>',
sub { $popup->Popup(-popover => 'cursor', -popanchor => 'nw'); });
$self->{query_entry}[$i] = $query_entry;
}
$self->{query_entry}[0]->focus();
my $hbox = $vbox->Frame();
my $history_button =
Cache-BDB
view release on metacpan or search on metacpan
lib/Cache/BDB.pm view on Meta::CPAN
my $self = shift;
my $t = time();
my $count = 0;
my $db = $self->{__db};
my $cursor = $db->db_cursor();
my %ret;
my ($k, $v) = ('','');
while($cursor->c_get($k, $v, DB_NEXT) == 0) {
my $d = $self->get($k);
$ret{$k} = $d if $d;
}
$cursor->c_close();
return \%ret;
}
sub _update_access_time {
lib/Cache/BDB.pm view on Meta::CPAN
}
my ($k, $v) = ('','');
my $size = 0;
my $cursor = $self->{__db}->db_cursor();
while($cursor->c_get($k, $v, DB_NEXT) == 0) {
$size += total_size($v->{__data});
}
$cursor->c_close();
return $size;
}
##############################################
# Methods for removing items from the cache. #
lib/Cache/BDB.pm view on Meta::CPAN
my $self = shift;
my $t = time();
my $count = 0;
my $db = $self->{__db};
my $cursor = $db->db_cursor(DB_WRITECURSOR);
my ($k, $v) = ('','');
while($cursor->c_get($k, $v, DB_NEXT) == 0) {
if($self->__is_expired($v, $t)) {
$cursor->c_del();
$count++;
}
}
$cursor->c_close();
warn "compaction failed!" if $self->_compact();
return $count;
}
Cache-BerkeleyDB
view release on metacpan or search on metacpan
lib/Cache/BerkeleyDB_Backend.pm view on Meta::CPAN
my ($self, $namespace) = @_;
$self->_retie($namespace);
my $db = $Caches->{ $self->{_namespace} }->{obj};
my ($k,$v) = ('','');
my @keys = ();
my $cursor = $db->db_cursor();
while ($cursor->c_get($k, $v, DB_NEXT) == 0) {
push @keys, $k;
}
undef $cursor;
return @keys;
}
sub get_namespaces {
my $self = shift;
Cache-KyotoTycoon
view release on metacpan or search on metacpan
lib/Cache/KyotoTycoon.pm view on Meta::CPAN
my $self = shift;
$self->{db} = shift if @_;
$self->{db};
}
sub make_cursor {
my ($self, $cursor_id) = @_;
return Cache::KyotoTycoon::Cursor->new($cursor_id, $self->{db}, $self->{client});
}
sub echo {
my ($self, $args) = @_;
my ($code, $body, $msg) = $self->{client}->call('echo', $args);
lib/Cache/KyotoTycoon.pm view on Meta::CPAN
=item C<< $kt->db() >>
Getter/Setter of DB name/id.
=item C<< my $cursor: Cache::KyotoTycoon::Cursor = $kt->make_cursor($cursor_number: Int); >>
Create new cursor object. This method returns instance of L<Cache::KyotoTycoon::Cursor>.
=item C<< my $res = $kt->echo($args) >>
The server returns $args. This method is useful for testing server.
Calendar-Model
view release on metacpan or search on metacpan
examples/css/bootstrap.css view on Meta::CPAN
}
button,
input[type="button"],
input[type="reset"],
input[type="submit"] {
cursor: pointer;
-webkit-appearance: button;
}
input[type="search"] {
-webkit-appearance: textfield;
-webkit-box-sizing: content-box;
examples/css/bootstrap.css view on Meta::CPAN
}
abbr {
font-size: 90%;
text-transform: uppercase;
border-bottom: 1px dotted #ddd;
cursor: help;
}
blockquote {
padding: 0 0 0 15px;
margin: 0 0 18px;
border-left: 5px solid #eeeeee;
examples/css/bootstrap.css view on Meta::CPAN
*margin-top: 0;
/* IE7 */
line-height: normal;
border: 0;
cursor: pointer;
-webkit-border-radius: 0;
-moz-border-radius: 0;
border-radius: 0;
}
input[type="file"] {
examples/css/bootstrap.css view on Meta::CPAN
input[readonly],
select[readonly],
textarea[readonly] {
background-color: #f5f5f5;
border-color: #ddd;
cursor: not-allowed;
}
.control-group.warning > label, .control-group.warning .help-block, .control-group.warning .help-inline {
color: #c09853;
}
.control-group.warning input, .control-group.warning select, .control-group.warning textarea {
examples/css/bootstrap.css view on Meta::CPAN
background-color: #ffffff;
border-color: #eee;
-webkit-box-shadow: inset 0 1px 2px rgba(0, 0, 0, 0.025);
-moz-box-shadow: inset 0 1px 2px rgba(0, 0, 0, 0.025);
box-shadow: inset 0 1px 2px rgba(0, 0, 0, 0.025);
cursor: not-allowed;
}
:-moz-placeholder {
color: #999999;
}
::-webkit-input-placeholder {
examples/css/bootstrap.css view on Meta::CPAN
.close:hover {
color: #000000;
text-decoration: none;
opacity: 0.4;
filter: alpha(opacity=40);
cursor: pointer;
}
.btn {
display: inline-block;
padding: 4px 10px 4px;
font-size: 13px;
examples/css/bootstrap.css view on Meta::CPAN
-moz-border-radius: 4px;
border-radius: 4px;
-webkit-box-shadow: inset 0 1px 0 rgba(255, 255, 255, 0.2), 0 1px 2px rgba(0, 0, 0, 0.05);
-moz-box-shadow: inset 0 1px 0 rgba(255, 255, 255, 0.2), 0 1px 2px rgba(0, 0, 0, 0.05);
box-shadow: inset 0 1px 0 rgba(255, 255, 255, 0.2), 0 1px 2px rgba(0, 0, 0, 0.05);
cursor: pointer;
*margin-left: .3em;
}
.btn:first-child {
*margin-left: 0;
}
examples/css/bootstrap.css view on Meta::CPAN
background-color: #d9d9d9 \9;
color: rgba(0, 0, 0, 0.5);
outline: 0;
}
.btn.disabled, .btn[disabled] {
cursor: default;
background-image: none;
background-color: #e6e6e6;
opacity: 0.65;
filter: alpha(opacity=65);
-webkit-box-shadow: none;
examples/css/bootstrap.css view on Meta::CPAN
.nav-tabs > .active > a, .nav-tabs > .active > a:hover {
color: #555555;
background-color: #ffffff;
border: 1px solid #ddd;
border-bottom-color: transparent;
cursor: default;
}
.nav-pills > li > a {
padding-top: 8px;
padding-bottom: 8px;
margin-top: 2px;
examples/css/bootstrap.css view on Meta::CPAN
.nav-tabs .active .dropdown-toggle .caret, .nav-pills .active .dropdown-toggle .caret {
border-top-color: #333333;
}
.nav > .dropdown.active > a:hover {
color: #000000;
cursor: pointer;
}
.nav-tabs .open .dropdown-toggle, .nav-pills .open .dropdown-toggle, .nav > .open.active > a:hover {
color: #ffffff;
background-color: #999999;
border-color: #999999;
examples/css/bootstrap.css view on Meta::CPAN
.pagination a:hover, .pagination .active a {
background-color: #f5f5f5;
}
.pagination .active a {
color: #999999;
cursor: default;
}
.pagination .disabled a, .pagination .disabled a:hover {
color: #999999;
background-color: transparent;
cursor: default;
}
.pagination li:first-child a {
border-left-width: 1px;
-webkit-border-radius: 3px 0 0 3px;
-moz-border-radius: 3px 0 0 3px;
CallBackery
view release on metacpan or search on metacpan
lib/CallBackery/qooxdoo/callbackery/source/class/callbackery/ui/Login.js view on Meta::CPAN
}
},
__makeExtraButton: function(cfg,label) {
var ul = this.tr('<span style="text-decoration: underline;">%1</span>',label);
var button = new qx.ui.basic.Label(ul).set({
cursor: 'pointer',
rich: true
});
button.addListener('tap',function(e) {
var popup = new callbackery.ui.Popup(cfg);
popup.addListenerOnce('close', function(e) {
Caroline
view release on metacpan or search on metacpan
lib/Caroline.pm view on Meta::CPAN
my $rows = int(($plen + vwidth($state->buf) + $state->cols -1) / $state->cols);
if (defined $state->query) {
$rows++;
}
# cursor relative row
my $rpos = int(($plen + $state->oldpos + $state->cols) / $state->cols);
my $old_rows = $state->maxrows;
# update maxrows if needed.
lib/Caroline.pm view on Meta::CPAN
if ($rows > $state->maxrows) {
$state->maxrows(int $rows);
}
}
# Move cursor to right position
my $rpos2 = int(($plen + $state->vpos + $state->cols) / $state->cols); # current cursor relative row
$self->debug(sprintf ", rpos2 %d", $rpos2);
# Go up till we reach the expected position
if ($rows - $rpos2 > 0) {
# cursor up
printf "\x1b[%dA", $rows-$rpos2;
}
# Set column
my $col;
lib/Caroline.pm view on Meta::CPAN
}
while (vwidth($state->prompt) + vwidth($buf) > $state->cols) {
$len--;
}
print STDOUT "\x1b[0G"; # cursor to left edge
print STDOUT $state->{prompt};
print STDOUT $buf;
print STDOUT "\x1b[0K"; # erase to right
# Move cursor to original position
printf "\x1b[0G\x1b[%dC", (
length($state->{prompt})
+ vwidth(substr($buf, 0, $pos))
);
}
Carrot
view release on metacpan or search on metacpan
lib/Carrot/Individuality/Controlled/Customized_Settings.pm view on Meta::CPAN
my $expressiveness = Carrot::individuality;
$expressiveness->package_resolver->provide(
my $dot_ini_class = '::Meta::Greenhouse::Dot_Ini',
my $inheritance_class = '::Modularity::Object::Inheritance::ISA_Occupancy',
'::Personality::',
my $cursor_class = '::Reflective::Iterate::Array::Cursor',
my $search_path_class = '::Valued::File::Name::Type::Directory::Search_Path',
my $line_class = '[=this_pkg=]::Dot_Cfg::Line',
);
$expressiveness->package_resolver->provide_name_only(
my $monad_class = '[=this_pkg=]::Monad');
lib/Carrot/Individuality/Controlled/Customized_Settings.pm view on Meta::CPAN
# //returns
{
my ($this, $file_name) = @ARGUMENTS;
my $line = $line_class->indirect_constructor;
my $cursor = $cursor_class->indirect_constructor(
$file_name->read_lines,
$line);
my $section = [];
my $name = IS_UNDEFINED;
my $config = $this->[ATR_CONFIG];
while ($cursor->advance)
{
if ($line->is_comment_or_empty)
{
next;
Catalyst-Authentication-Store-KiokuDB
view release on metacpan or search on metacpan
lib/Catalyst/Authentication/User/KiokuDB.pm view on Meta::CPAN
);
sub supports {
my ($self, @spec) = @_;
my $cursor = \%features;
return 1 if @spec == 1 and $self->can($spec[0]);
# XXX is this correct?
for (@spec) {
return if ref($cursor) ne "HASH";
$cursor = $cursor->{$_};
}
if (ref $cursor) {
die "Bad feature spec: '@spec'" unless ref $cursor eq "ARRAY";
foreach my $key (@$cursor) {
return undef unless $self->can($key);
}
return 1;
}
else {
return $cursor;
}
}
sub for_session {
my $self = shift;
Catalyst-Authentication-Store-LDAP
view release on metacpan or search on metacpan
* Cache - this hits the directory a lot during full Auth/Authz usage.
* Recipes - We could handle some default recipes in the documentation for
different usage patterns.
* Tests - We don't do any but the most cursory of tests
(13:22:23) jayk: karpet: yah. the ability to define the user class to use
in config would make the module much more flexible.
able to customize without so much hacking around.
Catalyst-Controller-AutoAssets
view release on metacpan or search on metacpan
t/var/eg_src/stylesheets/normalize.css view on Meta::CPAN
/**
* 1. Avoid the WebKit bug in Android 4.0.* where (2) destroys native `audio`
* and `video` controls.
* 2. Correct inability to style clickable `input` types in iOS.
* 3. Improve usability and consistency of cursor style between image-type
* `input` and others.
*/
button,
html input[type="button"], /* 1 */
input[type="reset"],
input[type="submit"] {
-webkit-appearance: button; /* 2 */
cursor: pointer; /* 3 */
}
/**
* Re-set default cursor for disabled elements.
*/
button[disabled],
html input[disabled] {
cursor: default;
}
/**
* 1. Address box sizing set to `content-box` in IE 8/9.
* 2. Remove excess padding in IE 8/9.
Catalyst-Controller-POD
view release on metacpan or search on metacpan
share/ext/ext-all-debug.js view on Meta::CPAN
this.makeFloating(this.floating);
}
if(this.collapsible && this.titleCollapse && this.header){
this.mon(this.header, 'click', this.toggleCollapse, this);
this.header.setStyle('cursor', 'pointer');
}
if(ts){
this.addTool.apply(this, ts);
}
share/ext/ext-all-debug.js view on Meta::CPAN
for (var i=0; i<len; ++i) {
var dd = dds[i];
if (dd.cursorIsOver) {
winner = dd;
break;
} else {
if (!winner ||
share/ext/ext-all-debug.js view on Meta::CPAN
if (!loc) {
return false;
}
oTarget.cursorIsOver = loc.contains( pt );
var dc = this.dragCurrent;
if (!dc || !dc.getTargetCoord ||
(!intersect && !dc.constrainX && !dc.constrainY)) {
return oTarget.cursorIsOver;
}
oTarget.overlap = null;
share/ext/ext-all-debug.js view on Meta::CPAN
var overlap = curRegion.intersect(loc);
if (overlap) {
oTarget.overlap = overlap;
return (intersect) ? true : oTarget.cursorIsOver;
} else {
return false;
}
},
share/ext/ext-all-debug.js view on Meta::CPAN
div.id = this.dragElId;
var s = div.style;
s.position = "absolute";
s.visibility = "hidden";
s.cursor = "move";
s.border = "2px solid #aaa";
s.zIndex = 999;
share/ext/ext-all-debug.js view on Meta::CPAN
scope: this,
mousemove: this.onMouseMove,
mouseup: this.onMouseUp
});
}
this.overlay.setStyle('cursor', handle.el.getStyle('cursor'));
this.resizing = true;
this.startBox = this.el.getBox();
this.startPoint = e.getXY();
this.offsets = [(this.startBox.x + this.startBox.width) - this.startPoint[0],
share/ext/ext-all-debug.js view on Meta::CPAN
});
dlg.render(document.body);
dlg.getEl().addClass('x-window-dlg');
mask = dlg.mask;
bodyEl = dlg.body.createChild({
html:'<div class="ext-mb-icon"></div><div class="ext-mb-content"><span class="ext-mb-text"></span><br /><div class="ext-mb-fix-cursor"><input type="text" class="ext-mb-input" /><textarea class="ext-mb-textarea"></textarea></div></...
});
iconEl = Ext.get(bodyEl.dom.firstChild);
var contentEl = bodyEl.dom.childNodes[1];
msgEl = Ext.get(contentEl.firstChild);
textboxEl = Ext.get(contentEl.childNodes[2].firstChild);
share/ext/ext-all-debug.js view on Meta::CPAN
el = panel.body;
if(h){
this.setHandleElId(h.id);
el = panel.header;
}
el.setStyle('cursor', 'move');
this.scroll = false;
},
showFrame: Ext.emptyFn,
startDrag: Ext.emptyFn,
share/ext/ext-all-debug.js view on Meta::CPAN
style = header.dom.style,
parentNode = header.dom.parentNode;
if(x - region.left <= handleWidth && parentNode != parentNode.parentNode.firstChild){
this.activeHd = Ext.get(parentNode.previousSibling.firstChild);
style.cursor = Ext.isWebKit ? 'e-resize' : 'col-resize';
} else if(region.right - x <= handleWidth && parentNode != parentNode.parentNode.lastChild.previousSibling){
this.activeHd = header;
style.cursor = Ext.isWebKit ? 'w-resize' : 'col-resize';
} else{
delete this.activeHd;
style.cursor = '';
}
}
},
onBeforeStart : function(e){
share/ext/ext-all-debug.js view on Meta::CPAN
}
},
onDrag: function(e){
var me = this,
cursorX = me.tracker.getXY()[0].constrain(me.minX, me.maxX);
me.proxy.setWidth(cursorX - this.dragX);
},
onEnd: function(e){
var newWidth = this.proxy.getWidth(),
share/ext/ext-all-debug.js view on Meta::CPAN
listView.on('render', this.initEvents, this);
},
initEvents : function(view){
view.mon(view.innerHd, 'click', this.onHdClick, this);
view.innerHd.setStyle('cursor', 'pointer');
view.mon(view.store, 'datachanged', this.updateSortState, this);
this.updateSortState.defer(10, this, [view.store]);
},
updateSortState : function(store){
share/ext/ext-all-debug.js view on Meta::CPAN
'change',
'beforechange'
);
this.on('afterlayout', this.onFirstLayout, this, {single: true});
this.cursor = 0;
this.bindStore(this.store, true);
},
onFirstLayout : function(){
share/ext/ext-all-debug.js view on Meta::CPAN
var count = this.store.getCount();
var msg = count == 0 ?
this.emptyMsg :
String.format(
this.displayMsg,
this.cursor+1, this.cursor+count, this.store.getTotalCount()
);
this.displayItem.setText(msg);
}
},
share/ext/ext-all-debug.js view on Meta::CPAN
if(!this.rendered){
this.dsLoaded = [store, r, o];
return;
}
var p = this.getParams();
this.cursor = (o.params && o.params[p.start]) ? o.params[p.start] : 0;
var d = this.getPageData(), ap = d.activePage, ps = d.pages;
this.afterTextItem.setText(String.format(this.afterPageText, d.pages));
this.inputItem.setValue(ap);
this.first.setDisabled(ap == 1);
share/ext/ext-all-debug.js view on Meta::CPAN
getPageData : function(){
var total = this.store.getTotalCount();
return {
total : total,
activePage : Math.ceil((this.cursor+this.pageSize)/this.pageSize),
pages : total < this.pageSize ? 1 : Math.ceil(total/this.pageSize)
};
},
share/ext/ext-all-debug.js view on Meta::CPAN
this.doLoad(0);
},
movePrevious : function(){
this.doLoad(Math.max(0, this.cursor-this.pageSize));
},
moveNext : function(){
this.doLoad(this.cursor+this.pageSize);
},
moveLast : function(){
var total = this.store.getTotalCount(),
share/ext/ext-all-debug.js view on Meta::CPAN
this.doLoad(extra ? (total - extra) : total - this.pageSize);
},
doRefresh : function(){
this.doLoad(this.cursor);
},
bindStore : function(store, initial){
var doLoad;
share/ext/ext-all-debug.js view on Meta::CPAN
}else{
this.setDesignMode(!readOnly);
}
var bd = this.getEditorBody();
if(bd){
bd.style.cursor = this.readOnly ? 'default' : 'text';
}
this.disableItems(readOnly);
}
},
getDocMarkup : function(){
var h = Ext.fly(this.iframe).getHeight() - this.iframePad * 2;
return String.format('<html><head><style type="text/css">body{border: 0; margin: 0; padding: {0}px; height: {1}px; cursor: text}</style></head><body></body></html>', this.iframePad, h);
},
getEditorBody : function(){
var doc = this.getDoc();
share/ext/ext-all-debug.js view on Meta::CPAN
if (header && !this.headersDisabled) {
var handleWidth = this.splitHandleWidth || 5,
activeRegion = this.activeHdRegion,
headerStyle = header.style,
colModel = this.cm,
cursor = '',
pageX = e.getPageX();
if (this.grid.enableColumnResize !== false) {
var activeHeaderIndex = this.activeHdIndex,
previousVisible = this.getPreviousVisible(activeHeaderIndex),
share/ext/ext-all-debug.js view on Meta::CPAN
previousResizable = previousVisible && colModel.isResizable(previousVisible),
inLeftResizer = pageX - activeRegion.left <= handleWidth,
inRightResizer = activeRegion.right - pageX <= (!this.activeHdBtn ? handleWidth : 2);
if (inLeftResizer && previousResizable) {
cursor = Ext.isAir ? 'move' : Ext.isWebKit ? 'e-resize' : 'col-resize';
} else if (inRightResizer && currentResizable) {
cursor = Ext.isAir ? 'move' : Ext.isWebKit ? 'w-resize' : 'col-resize';
}
}
headerStyle.cursor = cursor;
}
},
getPreviousVisible: function(index) {
share/ext/ext-all-debug.js view on Meta::CPAN
var header = this.findHeaderCell(target);
if (header && (!Ext.isIE || !e.within(header, true))) {
this.activeHdRef = null;
this.fly(header).removeClass('x-grid3-hd-over');
header.style.cursor = '';
}
},
isMenuDisabled: function(cellIndex, el) {
Catalyst-Helper-View-TT-Bootstrap
view release on metacpan or search on metacpan
lib/Catalyst/Helper/View/TT/Bootstrap.pm view on Meta::CPAN
.hide { display: none !important }
.left { display: inline; float: left }
.right { display: inline; float: right }
.clear { clear: both }
/* cursor styles */
.clickable { cursor: pointer; cursor: hand; }
.unclickable { cursor: default !important; }
.movable { cursor: move; }
__nav_default_css__
/* Define the style for the default site navigation here */
#nav {
width: 750px;
margin: 0 auto 1.2em;
Catalyst-Manual
view release on metacpan or search on metacpan
lib/Catalyst/Manual/Tutorial/10_Appendices.pod view on Meta::CPAN
=item *
C<":.,$s/^ ">
Removes the first four spaces from the line the cursor is on at the time
the regex command is executed (".") to the last line of the file.
=item *
C<":.,44s/^ ">
lib/Catalyst/Manual/Tutorial/10_Appendices.pod view on Meta::CPAN
four spaces after the "^" on the "Replace regexp:" line and no spaces
entered on the last line.
You can limit the replacement operation by selecting text first (depending
on your version of Emacs, you can either use the mouse or experiment with
commands such as C<C-SPC> to set the mark at the cursor location and
C<< C-< >> and C<< C-> >> to set the mark at the beginning and end of the
file respectively.
Also, Stefan Kangas sent in the following tip about an alternate
approach using the command C<indent-region> to redo the indentation
Catalyst-Model-DBIC-Schema
view release on metacpan or search on metacpan
lib/Catalyst/Helper/Model/DBIC/Schema.pm view on Meta::CPAN
Same, with extra connect_info args
user and pass can be omitted for sqlite, since they are always empty
script/myapp_create.pl model CatalystModelName DBIC::Schema \
MyApp::SchemaClass create=static dbi:SQLite:foo.db \
AutoCommit=1 cursor_class=DBIx::Class::Cursor::Cached \
on_connect_do='["select 1", "select 2"]' quote_names=1
B<ON WINDOWS COMMAND LINES QUOTING RULES ARE DIFFERENT>
In C<cmd.exe> the above example would be:
script/myapp_create.pl model CatalystModelName DBIC::Schema \
MyApp::SchemaClass create=static dbi:SQLite:foo.db \
AutoCommit=1 cursor_class=DBIx::Class::Cursor::Cached \
on_connect_do="[\"select 1\", \"select 2\"]" quote_names=1
Same, but with extra Schema::Loader args (separate multiple values by commas):
script/myapp_create.pl model CatalystModelName DBIC::Schema \
Catalyst-Model-KiokuDB
view release on metacpan or search on metacpan
lib/Catalyst/Authentication/Store/Model/KiokuDB/UserWrapper.pm view on Meta::CPAN
);
sub supports {
my ($self, @spec) = @_;
my $cursor = \%supports;
return 1 if @spec == 1 and $self->can($spec[0]);
# XXX is this correct?
for (@spec) {
return if ref($cursor) ne "HASH";
$cursor = $cursor->{$_};
}
if (ref $cursor) {
die "Bad feature spec: '@spec'" unless ref $cursor eq "ARRAY";
foreach my $key (@$cursor) {
return undef unless $self->can($key);
}
return 1;
}
else {
return $cursor;
}
}
sub for_session {
my $self = shift;
Catalyst-Model-Sedna
view release on metacpan or search on metacpan
lib/Catalyst/Model/Sedna.pm view on Meta::CPAN
=head1 DESCRIPTION
This module will manage a connection to the sedna database and perform
queries. The connection attributes are set in the config file. Note
that the Sedna connection does not support cursors, so if you need to
insert data while traversing another query, you need a second
connection.
=head1 METHODS
Catalyst-Plugin-Authentication
view release on metacpan or search on metacpan
lib/Catalyst/Authentication/User.pm view on Meta::CPAN
## but it is not an error if it is not. it just means you support nothing.
## nihilist user objects are welcome here.
sub supports {
my ( $self, @spec ) = @_;
my $cursor = undef;
if ($self->can('supported_features')) {
$cursor = $self->supported_features;
# traverse the feature list,
for (@spec) {
#die "bad feature spec: @spec" if ref($cursor) ne "HASH";
return if ref($cursor) ne "HASH";
$cursor = $cursor->{$_};
}
}
return $cursor;
}
## REQUIRED.
## get should return the value of the field specified as it's single argument from the underlying
## user object. This is here to provide a simple, standard way of accessing individual elements of a user
Catalyst-Plugin-Authorization-Abilities
view release on metacpan or search on metacpan
t/root/static/css/blueprint/plugins/buttons/screen.css view on Meta::CPAN
font-size:100%;
line-height:130%;
text-decoration:none;
font-weight:bold;
color:#565656;
cursor:pointer;
}
button {
width:auto;
overflow:visible;
padding:4px 10px 3px 7px; /* IE6 */
( run in 2.110 seconds using v1.01-cache-2.11-cpan-cdf2f3d4e48 )